Discussion :

[VBBBA]

bonjour
jessai de faire des copies de sauvegarde de bases acces via une macro vba


jessai deja de faire la macro que pour une seule base et ca beugue deja!!

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
34
35
36
37
38
39
40
41
42
43
 
 
Private Sub SAVE_Click()
 
'On Error GoTo G
 
'Dim o As FileSystemObject
 
'chek du serveur de sauvegarde
 
Set o = New FileSystemObject
 
If Not o.FolderExists(PATH) Then
 
    MsgBox "impossible de trouver le chemin réseau cible" & PATH & Chr(13) & "connecter ce lecteur réseau.", vbCritical
 
       Exit Sub
End If
 
 
 
 
 
 
 
 
Dim A As String
Dim B As String
 
A = PATH
B = "T:\backoffice\BO_RISK\Outils\IndicateursBO\copie (2) de boIndicators.mdb "
FileCopy B, A
 
msg = "La restauration de la base de registre s' est bien déroulée!"
MsgBox msg, vbOKOnly
 
 
G:
msg = "La sauvegarde des fichiers est impossible"
     MsgBox msg, vbExclamation, Title$
 
 
End Sub

besoin d'un ptit coup de pouce

[ActionAccess]

Bonjour,

Je crois bien qu'il faut commencer par ajouter la référence (VBE - > Outils - > Références) Microsoft Scripting Runtime.

Cdlt,

[VBBBA]

c'est fait déja!
c'est pas ca le pb!

[ActionAccess]

Dans ce cas, précise nous la ligne en erreur, le numéro d'erreur et le message d'erreur.

[VBBBA]

c'est la ligne "filecopy B, A" qui pose pb.
erreur d'éxecution 70
permission refusée. le pb c'est qu'on je fait la copie manuellement ca marche!!!!j'ai la permission sur le reseau.ya pas de soucis a ce niveau!

[VBBBA]

j'ai résolu le pb en fait il faut fermer toutes les connexions a mon lecteur!!!!
mais maintenant il affiche au meme endroit toujours: nom ou numéro de fichier incorect! erreur '52'

[philben]

bonjour,

et avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 
o.FileCopy B, A

ça devrait mieux marcher.

Ne pas oublier de libérer l'instance en fin de fonction sinon Papy Turbo va gronder !

Philippe