macro pour enregistrer sous avec deux cellules de références

[lebtibo33]

Bonjour,
j'ai un fichier excel avec en feuille2
case A1 une année
case A2 un code adhérent
et je souhaiterais à partir d'une macro pouvoir l'enregistrer dans un dossier étant le code adhérent et le nom du fichier serait le code adhérent + l'année
en espérant avoir été claire
en cas de questionnement n'hésiter pas je reste à votre disposition.

 

[VDAVID]

Re : macro pour enregistrer sous avec deux cellules de références

Bonjour Lebtibo33 ,

Essaye :

Sub SaveAsIn()
MkDir ThisWorkbook.Path & "\" & Range("A2").Value
ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & Range("A2").Value & "\" & Range("A3").Value & ".xls"
End Sub

Avec en cellule A3 CONCATENER(A1;A2)
Normalement ça marche je viens de la tester. Il faut juste faire attention aux / dans le nom de ton fichier ou autre caractère similaire sinon ça ne marchera pas.
Bonne journée 🙂

 

[lebtibo33]

Re : macro pour enregistrer sous avec deux cellules de références

en fait g réussi à le faire!!! il faut mettre cela

Sub sauve()
Dim chemin As String
chemin = "C:\Dossiers Clients\"
ActiveWorkbook.SaveAs Filename:=chemin & Worksheets("Sommaire").[A2] & "\" & [A1] & [A2] & ".xls"
End Sub

merci de ta réponse mais je l'ai vu après. je te fait confiance sur son bon fonctionnement
encore merci

 

[VDAVID]

Re : macro pour enregistrer sous avec deux cellules de références

Content que tu ais trouvé ! 🙂
Bonne journée !