Sub Enregistrement()
Dim Chemin1$, Chemin2$, Client$, Fichier$, Numfact$, Jour$, Annee$
Chemin1 = "H:\Zerobug backup\Factures\" & Annee
Chemin2 = "D:\Gestion\Factures\" & Annee
Jour = Format(Range("Date" ), "ddmmyyyy" )
Annee = Year(Range("Date" ))
Client = Range("Client" )
Numfact = Range("Numfact" )
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
End Sub |