hyperion66
XLDnaute Nouveau
Je voudrais que ma feuille soit enregistrée dans un répertoire précis (ça, c'est déjà fait), mais dans un sous répertoire de l'année en cours ou de l'année récupérée sur cette meme feuille.
Voilà mon code actuel :
Pour Chemin2 par exemple, pour une facture ayant comme date 2007, que la macro me l'enregistre dans D:\Gestion\Factures\2007\[Client]\Fichier.xls
Comment faire ?
Merci
Voilà mon code actuel :
Code:
Sub Enregistrement()
Dim Chemin1$, Chemin2$, Client$, Fichier$, Numfact$, Jour$
Chemin1 = "H:\Zerobug backup\Factures\"
Chemin2 = "D:\Gestion\Factures\"
Jour = Format(Now(), "ddmmyyyy")
Client = Range("H7")
Numfact = Range("I15")
Fichier = Jour & "_" & Numfact & ".xls"
If Dir(Chemin1 & Client, 16) = "" Then MkDir Chemin1 & Client
ActiveWorkbook.SaveAs Chemin1 & Client & "\" & Fichier
If Dir(Chemin2 & Client, 16) = "" Then MkDir Chemin2 & Client
ActiveWorkbook.SaveAs Chemin2 & Client & "\" & Fichier
Comment faire ?
Merci