Microsoft 365 Copie classeur ouvert

[Ed's]

Bonjour,
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

 

[sylvanu]

Bonjour Ed's,
Un essai en PJ avec :

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

 

[Jacky67]

Bonjour,
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

Bonjour à tous
Peut-être en vba comme ceci

Sub copie()
    ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\copie classeur " & ThisWorkbook.Name
End Sub

 

[Ed's]

Bonjour à tous
Peut-être en vba comme ceci

Sub copie()
    ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\copie classeur " & ThisWorkbook.Name
End Sub

Bonjour Jacky,
c'est pile ce qu'il me fallait.

merci beaucoup

 

[Ed's]

Bonjour Ed's,
Un essai en PJ avec :

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 Sylvanu,

je vais opter pour la solution a Jacky qui est plus facile a adapter sur le reste de ma macro.
Un grand Merci