VBA 'copie de fiers excel ou access

**VBBBA** · 02/07/2006, 16h08

bonjour a tous

je souhaite faire une macro en vba qui copie certains fichiers (exel ou access) vers un dossier précis.

pouvez vous m'indiquer la méthode a suivre. toute aide est la bienvenue.mercie d'avance

**SfJ5Rpw8** · 02/07/2006, 16h10

filecopy,Dir et

**VBBBA** · 02/07/2006, 16h34

salut
t fidéle au poste a ce que je vois

jai essayé ta methode ca marche pas.

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
44
 
const PATH as string="chemin du fichier cible de sauvegarde"
 
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:\chemin de la base access\nom de la base.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

**SfJ5Rpw8** · 02/07/2006, 16h42

et tu essai de faire quoi avec ce code ... ? c'est quoi qui marche pas...?
ma "méthode" c'était F1 sur Filecopy ce qui donne

Envoyé par Aide en ligne

FileCopy, instruction

Copie un fichier.

Syntaxe

FileCopy source, destination

La syntaxe de l'instruction FileCopy comprend les arguments nommés suivants ...

**VBBBA** · 02/07/2006, 16h45

jessai de copier une base access vers un fichier spécifié.
c'est pas compliqué.mai je beugue au niveau de la ligne filecopy...

**SfJ5Rpw8** · 02/07/2006, 16h46

montre ton vrai code ... ce qu'il y a plus haut c'est pas fini non ...?

**VBBBA** · 02/07/2006, 16h53

ben c'est ce que j'ai ecrit pour le moment...
il lui manque quelque chose?

**SfJ5Rpw8** · 02/07/2006, 16h55

?

Code :

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

const PATH as string="chemin du fichier cible de sauvegarde"

**VBBBA** · 02/07/2006, 17h00

et bien c'est une declaration au debut de ma procédure puisque le chemin de mon fichier cible ne bouge pas. mon chemin est t:\.......\......

**SfJ5Rpw8** · 02/07/2006, 17h02

alors : "chemin du fichier cible de sauvegarde" c'est le nom du fichier destination ...?

**VBBBA** · 02/07/2006, 17h05

excactement

**SfJ5Rpw8** · 02/07/2006, 17h10

alors la copie doit marcher... !

**VBBBA** · 02/07/2006, 17h14

et pourtant....
si tu me di que ca doit marcher et que ca ne marche pas...je vois pas ce que je dois faire

**SfJ5Rpw8** · 02/07/2006, 17h17

Envoyé par VBBBA

jessai de copier une base access vers un fichier spécifié.
c'est pas compliqué.mai je beugue au niveau de la ligne filecopy...

traduit cela... ! déjà ..., ensuite nettoie ton code de ce qui te parait inutile et reposte le code que tu teste ... sans tes différents essais....(que viens faire fileSystemObject ici.. ...) ,....

**VBBBA** · 02/07/2006, 17h23

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
 
const PATH as string="chemin du fichier cible de sauvegarde"
 
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:\chemin de la base access\nom de la base.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

voila mon code propre.

**SfJ5Rpw8** · 02/07/2006, 17h27

et alors qu'est ce qui te fais dire que la copie ne marche pas ...? que se passe-t'il quand tu lance ton code ..? combien de messagebox ? ( au moins 2 vu ton code..)

**VBBBA** · 02/07/2006, 17h54

ya pas e solutions pour moi!?

**SfJ5Rpw8** · 02/07/2006, 17h57

Envoyé par bbil

et alors qu'est ce qui te fais dire que la copie ne marche pas ...? que se passe-t'il quand tu lance ton code ..? combien de messagebox ? ( au moins 2 vu ton code..)