Sub Enregistrement()
Dim Chemin1$, Chemin2$, Client$, Fichier$, Numfact$, Jour$
Chemin1 = "G:\Facturation\"
Chemin2 = "G:\Facturebackup\"
Jour = Format(Now(), "ddmmyy")
Nom = Range("A10")
Prenom = Range("B10")
Nom3car = Left(Nom + "___", 3)
Prenom2Car = Left(Prenom + "___", 2)
Numfact = Range("E5")
Fichier = Jour & ".xls"
ActiveWorkbook.SaveAs Chemin1 & Nom3car & Prenom2Car & Fichier
ActiveWorkbook.SaveAs Chemin2 & Nom3car & Prenom2Car & Fichier
Workbooks.Close
End Sub