Copier des fichiers via listing Excel

Signaler
Messages postés
1
Date d'inscription
mercredi 17 octobre 2007
Statut
Membre
Dernière intervention
5 février 2009
-
Messages postés
682
Date d'inscription
vendredi 6 avril 2007
Statut
Membre
Dernière intervention
4 août 2012
-
Bonjour,
Je souhaite déplacer des fichiers d'un répertoir dans un autres via Excel.
J'ai listé en colonne A des fichiers avec le chemin complets.
J'ai copié et modifié  en colonne B le chemin pour les sauvegarder ailleur sur mon disque.
J'ai donc ecrits ce code:

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



With ThisWorkbook.Worksheets("feuil1")
'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 = 2 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
' Copie le fichier source dans le fichier cible.
FileCopy Source, Destination
Next i
End With
'
End Sub


Mais arrivé à 'FileCopy Source, Destination', la macro s'arette, et met une erreur 76 chemin d'accée introuvable.
J'ai essayé mkdir mais ça marche pas non plus.

Que faire?????
Merci d'avance.

1 réponse

Messages postés
682
Date d'inscription
vendredi 6 avril 2007
Statut
Membre
Dernière intervention
4 août 2012
6
vérifie le contenu de tes cellules car ton code est bon
par filecopy  tu ne peux copier que d'un répertoire existant vers un autre répertoire existant
si dans la destination le répertoire n'existe pas il faut alors le créer par mkdir  avant de faire le filecopy

par contre la prochaine fois que tu postes  fais attention  a le faire dans le bon theme
Excel  c'est du VBA et pas du VB6

[reglement.aspx ]si c'est la solution, penser : REPONSE ACCEPTEE