fdelcuse
Messages postés1Date d'inscriptionmercredi 17 octobre 2007StatutMembreDernière intervention 5 février 2009
-
5 févr. 2009 à 00:24
pile_poil
Messages postés682Date d'inscriptionvendredi 6 avril 2007StatutMembreDernière intervention 4 août 2012
-
5 févr. 2009 à 03:19
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.
pile_poil
Messages postés682Date d'inscriptionvendredi 6 avril 2007StatutMembreDernière intervention 4 août 20126 5 févr. 2009 à 03:19
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