VBA 'copie de fiers excel ou access

Version imprimable

02/07/2006, 16h08
VBBBA

VBA 'copie de fiers excel ou access

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
02/07/2006, 16h10
SfJ5Rpw8

filecopy,Dir et :f1: ;)

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

jai essayé ta methode ca marche pas.

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

02/07/2006, 16h42
SfJ5Rpw8

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

Citation:

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 ...
02/07/2006, 16h45
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...
02/07/2006, 16h46
SfJ5Rpw8

montre ton vrai code ... ce qu'il y a plus haut c'est pas fini non ...?
02/07/2006, 16h53
VBBBA

ben c'est ce que j'ai ecrit pour le moment...
il lui manque quelque chose?
02/07/2006, 16h55
SfJ5Rpw8

?

Code:

const PATH as string="chemin du fichier cible de sauvegarde"
02/07/2006, 17h00
VBBBA

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:\.......\......
02/07/2006, 17h02
SfJ5Rpw8

alors : "chemin du fichier cible de sauvegarde" c'est le nom du fichier destination ...?
02/07/2006, 17h05
VBBBA

excactement
02/07/2006, 17h10
SfJ5Rpw8

alors la copie doit marcher... !
02/07/2006, 17h14
VBBBA

et pourtant....
si tu me di que ca doit marcher et que ca ne marche pas...je vois pas ce que je dois faire
02/07/2006, 17h17
SfJ5Rpw8

Citation:

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.. ...) ,....

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

02/07/2006, 17h27
SfJ5Rpw8

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..)
02/07/2006, 17h54
VBBBA

ya pas e solutions pour moi!?
02/07/2006, 17h57
SfJ5Rpw8

Citation:

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..)
02/07/2006, 18h00
VBBBA

concrétement erreur 75
erreur d'accès chemin/fichier
02/07/2006, 18h01
VBBBA

Const PATH As String = "E:\Documents and Settings\abou\Bureau\TEMP"

B = "C:\finis\magazin.mdb "

voila mes chemins

Citation:

Envoyé par VBBBA

Const PATH As String = "E:\Documents and Settings\abou\Bureau\TEMP"

B = "C:\finis\magazin.mdb "

voila mes chemins

ne confond tu pas fichier et répertoire .... ? encore une fois comme je te l'ai dit plus haut tu n'as pas montrer tout ton code ... et PATH me semble être un nom de répertoire et pas un nom de fichier comme tu me la dit plus haut...

tu pourrai faire :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Dim A As String Dim B As String Dim C as string B = "T:\chemin de la base access\nom de la base.mdb " C = Dir (B) if C = "" then MsgBox "fichier " & c & " Inaccessible" exit sub endif A = PATH & "\" & C FileCopy B, A

02/07/2006, 18h14
VBBBA

je compren plus rien...
02/07/2006, 18h17
SfJ5Rpw8

reviens au début... FileCopy :f1: ...

Citation:

Envoyé par Aide en ligne VBA

FileCopy source, destination

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

Élément Description
source Expression de chaîne indiquant le nom du fichier à copier. L'argument source peut préciser le répertoire ou le dossier et le lecteur.
destination Expression de chaîne indiquant le nom du fichier de destination. L'argument destination peut préciser le répertoire ou le dossier et le lecteur.

Source et destination designe des nom "complet" de fichiers ... pas de répertoire...