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

lebtibo33 · 9 Août 2011

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 · 9 Août 2011

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 · 9 Août 2011

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 · 9 Août 2011

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

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

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

lebtibo33

Guest

VDAVID

XLDnaute Impliqué

lebtibo33

Guest

VDAVID

XLDnaute Impliqué

Discussions similaires

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

lebtibo33

Guest

VDAVID

XLDnaute Impliqué

lebtibo33

Guest

VDAVID

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency