enregistrer sous le nom de deux cellule

thiroux

XLDnaute Nouveau
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
 
G

GIBI

Guest
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

XLDnaute Impliqué
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
 

pinou13

XLDnaute Nouveau
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
 

Discussions similaires

Statistiques des forums

Discussions
300 718
Messages
1 986 644
Membres
209 555
dernier inscrit
Cookone