Sauvgarde usb vers pc

bonsoir à vous

je cherche à copier mon fichier excel sur cle usb soit automatiquement à l'ouverture' worbook open' soit en passant par une macro via bouton mais j'avoue que la 1er solution serait mieux.

ce fichier sera copié de la cle usb à mon pc : le chemin sera Z:\mon fichier vers D:\retrocession 2014\mon fichier save

en vous remerciant par avance

Bonsoir @ tous,

Pourquoi ne pas faire avec Porte-Documents de Windows ??

@ + +

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é.

bonjour hervé

je suis sous xl2000. Ton code bloque à ce niveau Fso.CopyFile ThisWorkbook.FullName, DosDest, True

merci

Rechercher des sujets similaires à "sauvgarde usb"