Bonjour,
Teste mais auparavant, adapte le chemin du dossier de destination :
Private Sub Workbook_Open()
Dim Fso As Object
Dim DosDest As String
'adapter le chemin
DosDest = "C:\Mon Dossier de Destination\"
Set Fso = CreateObject("Scripting.FileSystemObject")
If Fso.FolderExists(DosDest) = False Then
MsgBox "Le dossier n'existe pas !"
Exit Sub
End If
Fso.CopyFile ThisWorkbook.FullName, DosDest, True
End Sub
Hervé.