Bonjour,
Pour sauvegarder ma base de données j'ai ce bout de code largement inspiré d'un tuto de la F.A.Q. :
Ce que je voudrais faire maintenant c'est restaurer la sauvegarde qui est sur la clé usb.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 On Error GoTo lettre_KeyDown_err Dim fs As Object Set fs = CreateObject("Scripting.FileSystemObject") fs.copyfile "c:\Hotellerie\hotel.accdr", Clef & ":\" 'fs.copyfile "c:\Users\G-Durand\Documents\hotel.accdb", Clef & ":\" Call FermerApplication lettre_KeyDown_exit: Exit Sub lettre_KeyDown_err: MsgBox err.Description, vbInformation, "hôtellerie" Resume lettre_KeyDown_exit
J'ai regardé un peu partout dans la F.A.Q. mais je n'ai rien trouvé.
Une idée...
Merci.
Cordialement.
Partager