Discussion :

[gerarddurand]

Bonjour,

Pour sauvegarder ma base de données j'ai ce bout de code largement inspiré d'un tuto de la F.A.Q. :

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

Ce que je voudrais faire maintenant c'est restaurer la sauvegarde qui est sur la clé usb.

J'ai regardé un peu partout dans la F.A.Q. mais je n'ai rien trouvé.

Une idée...

Merci.

Cordialement.

[ClaudeLELOUP]

Bonjour,

Vois ici pour les principales commandes, dont copier un fichier.

[gerarddurand]

Bonjour et bonne année à toutes et tous,

Vois ici pour les principales commandes, dont copier un fichier.

Merci claude mais j'avais déjà vu où tu m'envois.

En fait, ce que je cherche à faire, c'est une restauration avec l'idée de la sauvegarde.

Si tu as une piste!

en tout cas merci

Cordialement.