copie d'une liste de fichier dans nouveau dossier

[fdelcuse]

Bonjour à tous,
J'ai récupéré un listing de fichier dans Excel en collone A, et je voudrais copier ces fichiers dans un nouveau repertoir dont le chemin est défini en collone C , en collone B j'ai le chemin complet du fichier.
J'ai fait une Macro mais elle ne fonctionne pas biens:

Sub Copie_New_File()
'
' Fichiers Modifie Macro
' Macro enregistrée le 29/01/2009 par Franck
'
Dim derligne As Long, Source As String, Destination As String, Creer_dossier As sting

With ThisWorkbook.Worksheets("Nouveaux_Fichiers")
'Détermine le numéro de la dernière ligne remplie en feuille Nouveaux
derligne = .Range("A65536").End(xlUp).Row + 1
'Pour chaque ligne remplie en feuille Nouveaux_Fichiers
For i = 1 To derligne
' Définit le nom et le chemin du fichier source.
Source = Range("A" & i).Value
' Définit le nom du fichier et le nouveau chemin cible.
Destination = Range("B" & i).Value
' creer le nom du repertoir du nouveau chemin cible.
Creer_dossier = Range("C" & i).Value
MkDir "Creer_dossier"
' Copie le fichier source dans le fichier cible.
FileCopy Source, Destination
Next i
End With
'
End Sub

J'ai des erreur d'accès chemin fichier,pouvez vous m'aider Merci

 

[Guest]

Re : copie d'une liste de fichier dans nouveau dossier

Bonjour,

Au lieu de :

MkDir "Creer_dossier"

Ne serait-ce pas

MkDir Creer_dossier
(sans les guillemets)

Et

FileCopy Source, creer_dossier & "\" & Destination

A+

 

[fdelcuse]

Re : copie d'une liste de fichier dans nouveau dossier

VBA met comme message de debogage sur MkDir Creer_dossier chemin d'acces introuvable, que faire???
Mkdir est censé créer le chemin???

 

[fdelcuse]

Re : copie d'une liste de fichier dans nouveau dossier

Exemple de fichiers dans mes collone:
collone A:
C:\donnee\fichier\dossier1\dossier2\fichier.dwg
collone B:
C:\donnee\dossierCAO\dossier1\dossier2\fichier.dwg
collone C:
C:\donnee\dossierCAO\dossier1\dossier2