Bonjour,

Je souhaite effectuer automatiquement une copie de sauvegarde d'une base de données (Access 2003), copie déclenchée par le bouton quitter de mon formulaire principal.
La copie est placée dans un dossier particulier, elle est renommée avec le nom de la base auquel j'ajoute la date du jour ; la copie écrase le fichier s'il existe déjà, cela me permet d'avoir une copie journalière de ma base.

J'ai tenté d'utiliser la méthode copy de l'objet FSO, sans succès : j'obtiens une erreur 91 "Variable objet ou variable de bloc With non définie".
Ci dessous le code correspondant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim oFSO As Scripting.FileSystemObject
Dim oFl As Scripting.File
 
Set oFSO = New Scripting.FileSystemObject
Dim Db As Database
Dim tD As Recordset
Set Db = CurrentDb
Set tD = Db.OpenRecordset("T_PARAMETRES")
Chemin_Sauvegarde = tD!Chemin_Sauvegarde_Base
tD.Close
 
Nom_Base = Mid(Application.CurrentProject.Name, 1, InStr(Application.CurrentProject.Name, ".") - 1)
Date_Sauve = Date_Avec_Tiret(Now)
Nom_Fichier_Sauvegarde = Chemin_Sauvegarde & Nom_Base & "_" & Date_Sauve & ".mdb"
   oFl.Copy Nom_Fichier_Sauvegarde, True
Je ne suis pas un pro du VBA, si quelqu'un à une idée...

Merci d'avance

Chris du 25