Discussion :

[CC25]

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

[SSJconsult]

Bonjour,

Je pense que tu pourrais essayer avec ca :

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

[Tofalu]

oFl.Copy Nom_Fichier_Sauvegarde, True

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

[CC25]

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??

[Tofalu]

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

Mais les deux restent valables