jojodanslalune
XLDnaute Junior
Bonjour à tous,
J'ai une macro qui enregistre mon fichier en fonction des valeurs d'une cellule.
Pour l'instant, le répertoire est automatiquement c:\bulletins.
Je voudrais que ce répertoire soit différent: c:·\bulletins\"valeur de la cellule D18.
Comment faire?
Voici ma macro actuelle:
J'ai une macro qui enregistre mon fichier en fonction des valeurs d'une cellule.
Pour l'instant, le répertoire est automatiquement c:\bulletins.
Je voudrais que ce répertoire soit différent: c:·\bulletins\"valeur de la cellule D18.
Comment faire?
Voici ma macro actuelle:
Code:
Sub enregistre()
On Error GoTo Fin
Call repert
Sheets("Infos Générales").Select
Range("D17").Select
Selection.Copy
ChDir "C:\Bulletins\"
ActiveWorkbook.SaveAs Filename:=Range("D17"), _
CreateBackup:=False
Fin:
End Sub
Sub repert()
On Error GoTo Fin
MkDir "c:\bulletins\"
Fin:
End Sub