Copie de sauvegarde d'une base Access via VBA

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:

---

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

Bonjour,

Je pense que tu pourrais essayer avec ca :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

Dim tD As Recordset Dim oFSO As Variant Dim Nom_Base As String Dim Nom_Sauvegarde As String Dim Chemin_Sauvegarde As String   ' Declare un Scripting.FileSystemObject ' ------------------------------------- Set oFSO = CreateObject("Scripting.FileSystemObject")   ' Cherche le chemin de sauvegarde ' ------------------------------- Set tD = CurrentDb.OpenRecordset("T_PARAMETRES", dbOpenSnapshot) Chemin_Sauvegarde = tD.Fields("Chemin_Sauvegarde_Base").Value tD.Close Set tD = Nothing   ' Cherche le nom de la base courrante ' ----------------------------------- Nom_Base = Application.CurrentProject.Name   ' Construit le nom de la base de sauvegarde ' ----------------------------------------- Nom_Sauvegarde = Chemin_Sauvegarde & "\" & oFSO.GetBaseName(Nom_Base) & "_" & Date_Avec_Tiret(Now) & ".mdb" Nom_Sauvegarde = Replace(Nom_Sauvegarde, "\\", "\")   ' Effectue la copie ' ----------------- oFSO.CopyFile Nom_Base, Nom_Sauvegarde, True   ' Termine ' ------- Set oFSO = Nothing

---

Je ne l'ai pas teste mais je pense que ca ferait un bon debut :zoubi:

Citation:

---

oFl.Copy Nom_Fichier_Sauvegarde, True

---

C'est le FSO qui doit copier, pas le fichier oFl que vous n'avez pas instancié ;)

Merci les gars, cela fonctionne parfaitement.

Une question subsidiaire, j'utilise une syntaxe différente de la votre pour accéder à la valeur d'un champ;

]Votre syntaxe :

tD.Fields("Chemin_Sauvegarde_Base").ValueMa syntaxe

tD!Chemin_Sauvegade_BaseLaquelle est la plus efficace??;)

La deuxième est recommandée (avec le !)

Mais les deux restent valables ;)