Citation:
Envoyé par VBBBA
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