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

lebtibo33

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

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

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

Discussions similaires

Statistiques des forums

Discussions
311 726
Messages
2 081 955
Membres
101 852
dernier inscrit
dthi16088