Copier un classeur ouvert

[rjcb]

Bonjour à tous,

Je voudrais executer ce code:

Sub Sauvegarde()

 FileCopy ThisWorkbook.path & "\SUIVI PROD CBP VJC.xls", _
ThisWorkbook.path & "\Sauvegarde suivi PROD\Sauvegarde_SUIVI PROD CBP VJC " & Format(Date, "dd_mm_yy") & ".xls"

End Sub

sachant que ce code est dans le classeur SUIVI PROD CBP VJC.xls", j'ai ce message d'erreur:
permission denied, normal je suis dessus !!

Mais je voudrais savoir si il y a possibilité de contourner ce problème c'est à dire de rester sur ce classeur ouvert et executer cette macro.

Merci a vous

 

[Pierrot93]

Re : Copier un classeur ouvert

Bonjour,

essaye ceci, créera une copie du classeur où se trouve ton code, enfin si j'ai bien compris...

With ThisWorkbook
    .SaveCopyAs .Path & "\Sauvegarde suivi PROD\Sauvegarde_SUIVI PROD CBP VJC " & Format(Date, "dd_mm_yy") & ".xls"
End With

bonne journée
@+