Discussion :

[dim_italia]

bonjour,

je cherche à copier un fichier dans un autre dossier. Aussi pour réaliser cela j'utilise une commande shell :

Code :

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

Shell ("copy C:\Documents and Settings\Mes documents\test.txt C:\Documents and Settings\Mes documents\classement\")

Cependant en lançant le programme l'erreur "fichier introuvable" est mentionnée.
J'ai donc testé ma commande sous "l'invite de commandes". Celle-ci ne fonctionne que si l'on rajoute des guillemets :

Code :

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

copy "C:\Documents and Settings\Mes documents\test.txt" "C:\Documents and Settings\Mes documents\classement\"

Malheureusement, access n'accepte pas:

Code :

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

Shell ("copy "C:\Documents and Settings\Mes documents\test.txt" "C:\Documents and Settings\Mes documents\classement\"")

Comment puis-je résoudre ce problème ?

Merci pour votre aide

[THOGAL]

avec l'utilisation de chr(34) ?????

[dim_italia]

Code :

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

Shell ("copy " & Chr(34) & "C:\Documents and Settings\bdimeglio\Mes documents\test.txt" & Chr(34) & " " & Chr(34) & "C:\Documents and Settings\bdimeglio\Mes documents\classement\" & Chr(34))

Malheureusement, j'ai toujours la meme erreur

[THOGAL]

si tu essayes dans un répertoire ou il n'y a pas d'espace ???

exemple :

c:\mondossier\monrep\monfic

:

[dim_italia]

sans espace dans le chemin il est certain que celui ci aurait fonctionné mais je devais prendre en compte toutes les solutions possibles.

Voici comment j résolu mon problème de copie de fichier :

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
 resultat = copier("c:\test.txt","c:\test2.txt") 'dans n'importe quel endroit de votre projet afin de copier un fichier
 
 
'Les lignes suivantes dans un module  ( projet/ajouter un module)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Declarations
Public Const FO_COPY = &H2
Public Const FO_DELETE = &H3
Public Const FO_MOVE = &H1
Public Const FO_RENAME = &H4
 
Public Const FOF_CONFIRMMOUSE = &H2
Public Const FOF_ALLOWUNDO = &H40
Public Const FOF_FILESONLY = &H80
Public Const FOF_MULTIDESTFILES = &H1
Public Const FOF_NOCONFIRMATION = &H10
Public Const FOF_NOCONFIRMMKDIR = &H200
Public Const FOF_NO_CONNECTED_ELEMENTS = &H1000
Public Const FOF_NOCOPYSECURITYATTRIBS = &H800
Public Const FOF_NOERRORUI = &H400
Public Const FOF_RENAMEONCOLLISION = &H8
Public Const FOF_SILENT = &H4
Public Const FOF_SIMPLEPROGRESS = &H100
Public Const FOF_WANTMAPPINGHANDLE = &H20
Public Const FOF_WANTNUKEWARNING = &H2000
Public Const FOF_NORECURSION = &H1000                '// don't recurse into directories.
 
Public Type SHFILEOPSTRUCT
    hWnd As Long
    wFunc As Long
    pFrom As String
    pTo As String
    fFlags As Integer
    fAnyOperationsAborted As Long
    hNameMappings As Long
    lpszProgressTitle As String
End Type
 
Public Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" _
    (Dest As Any, Sourc As Any, ByVal Length As Long)
 
Public Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" _
    (lpFileOp As Any) As Long
 
Public Function copier(FROM As String, copie As String)
On Error GoTo erreur
Dim fso, msg
    Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FileExists(FROM) Then 'on verifie si le fichier existe
copier = "Le fichier n'existe pas"
Exit Function
erreur:
copier = "Une erreur c'est produite"
Exit Function
End If
 
 
 
 
Dim fos As SHFILEOPSTRUCT        ' structure to pass to the function
Dim retval As Long              ' return value
 
             With fos
                .hWnd = 0                        'ou Me.hWnd si on a une Feuille par exemple
                .wFunc = FO_COPY                'Action == Copie
                .pFrom = FROM & vbNullChar 'Source path
                .pTo = copie & vbNullChar    'Dest Path
                .fFlags = FOF_NOCONFIRMMKDIR Or FOF_WANTMAPPINGHANDLE 'Flags de Copie
                .fAnyOperationsAborted = 0
                .hNameMappings = 0
                .lpszProgressTitle = vbNullChar
                End With
 
retval = SHFileOperation(fos)
copier = "OK"
End Function

[Maxence HUBICHE]

copy ... copy ...
C'est du bon vieux DOS ça !

Essaie plutôt un chemin en 8.3 !

sinon, tu as toujours l'instruction FileCopy de VBA.
ou alors, tu peux te pencher sur les FSO ...

[THOGAL]

HOU LA LA ... TRES JOLIE FONCTION ....

POUR INFO :

étant donné que tu fais appel à la fonction shell, il faut coder les noms de répertoire au format DOS :

C:\Program Files\monrep\monfic

DOIT ETRE ECRIT SOUS LA FORME :

C:\Progra~1\monrep\mon fic

[Maxence HUBICHE]

<PRIVATE JOKE ENTRE THOGAL ET MOI>

ben voilà !
Copieur en plus !

</PRIVATE JOKE ENTRE THOGAL ET MOI>