Bonjour à tousBonjour,
comment faire pour faire une copie d'un fichier qui est déjà ouvert dans le même dossier?
je précise que le fichier a copier est ouvert et que c'est depuis ce fichier que je lance la macro pour la copie.
merci
Sub copie()
ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\copie classeur " & ThisWorkbook.Name
End Sub
Sub Sauvegarde()
On Error GoTo Fin
Dim Chemin, Nom, Wb
Wb = ThisWorkbook.Name
Nom = Split(ThisWorkbook.Name, ".")
Chemin = CurDir & "\" & Nom(0) & "_sos." & Nom(1)
Workbooks(Wb).SaveCopyAs Chemin
MsgBox "Copie effectuée en : " & Chr(10) & Chemin
Fin:
End Sub
Bonjour à tousBonjour,
comment faire pour faire une copie d'un fichier qui est déjà ouvert dans le même dossier?
je précise que le fichier a copier est ouvert et que c'est depuis ce fichier que je lance la macro pour la copie.
merci
Sub copie()
ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\copie classeur " & ThisWorkbook.Name
End Sub
Bonjour Jacky,Bonjour à tous
Peut-être en vba comme ceci
VB:Sub copie() ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\copie classeur " & ThisWorkbook.Name End Sub
Bonjour Sylvanu,Bonjour Ed's,
Un essai en PJ avec :
VB:Sub Sauvegarde() On Error GoTo Fin Dim Chemin, Nom, Wb Wb = ThisWorkbook.Name Nom = Split(ThisWorkbook.Name, ".") Chemin = CurDir & "\" & Nom(0) & "_sos." & Nom(1) Workbooks(Wb).SaveCopyAs Chemin MsgBox "Copie effectuée en : " & Chr(10) & Chemin Fin: End Sub