enregistrer sous le nom de deux cellule

[thiroux]

bonjour a tous

voila mon soucis:
A1=1
B3=xy

je souhaiterais enregistrer le fichier sous le nom '1xy' ?????
comment faire ?!

pour enregistrer sous le nom de A1 c bon je connais la macro :

Sub Sauvegarde()

With Sheets('Feuil1').Range('A1')
If .Value <> '' Then
ThisWorkbook.SaveAs ThisWorkbook.Path & '\\' & .Value & '.xls'
Else
MsgBox 'Nom inexistant'
End If
End With

End Sub

Merci d'avance

 

[GIBI]

Bonjour,


tu peux passer par une variable ou utiliser directement la concaténation des deux cellules


Nom = Sheets('Feuil1').Range('A1').Value & Sheets('Feuil1').Range('B3').Value

If Nom<> '' Then
ThisWorkbook.SaveAs ThisWorkbook.Path & '' & Nom & '.xls'
Else
MsgBox 'Nom inexistant'
End If

concatenation directe

ThisWorkbook.SaveAs ThisWorkbook.Path & '' & Sheets('Feuil1').Range('A1').Value & Sheets('Feuil1').Range('B3').Value & '.xls'

CQFD

 

[excalibur]

bonjour thiroux GIBI le forum suit exemple que didier ta donne ....Sub Sauvegarde()

With Sheets('Feuil1').Range('b3') If .Value <> '' Then
ThisWorkbook.SaveAs ThisWorkbook.Path & '' & .Value & '.xls'
Else
MsgBox 'Nom inexistant'
End If
End With
End Sub'en b3 tu ecris 1xy salutations

 

[thiroux]

excelent j'ai un poil galéré pour le mettre a en application selon les besoin de mon fichier mais c'etait la bonne macro c super

je vous remercie encore

 

[pinou13]

bonsoir,
jai pompé la formule impecable elle marche.

j'ai quand meme un probleme mon fichier de départ est dans :
d:\\administratif\\mission
la premiere fois que j'enregistre il passe dans
d:\\administrtif
puis dans d:
comment faire pour qu'il reste dans le sous dossier mission