P
POTIER
Guest
Bonjour,
Je souhaite enregister une copie de mon fichier original à l'aide d'une macro. Le nom de mon fichier correspond à une cellule excel
Cordialement
Sub Macro1()
Dim chem As String 'déclare la variable NF (Nom de Fichier)
NF = ThisWorkbook.FullName 'définit la variable NF (nom complet avec chemin d'accès)
ThisWorkbook.SaveAs Mid(NF, 1, Len(NF) - 4) & ' copie.xls' 'enregistre sous 'non_origine copie.xls'
End Sub