Bonjour Daniel,
Je cherche à déplacer des photos d'un répertoire à un autre en suivant une liste de fichier dans Excel 2010.
Mes recherches m'ont conduites à ta proposition dans cette discussion que j'ai modifiée en fonction de mes répertoires :
Mais cela ne semble pas fonctionner.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Sub Transfert() Dim C As Range, Source As String, Desti As String Source = "P:\French Digital Tour\__FDT_2015\Jugement_FDT_2015\Couleur" Desti = "P:\French Digital Tour\__FDT_2015\Jugement_FDT_2015\Couleur\Retenues" For Each C In Range("A1", Cells(Rows.Count, 1).End(xlUp)) If Dir(Source & C.Value) <> "" Then Name Source & C.Value As Desti & C.Value End If Next C End Sub
Je parcours bien la liste de fichiers à déplacer mais aucun d'eux n'est déplacés.
Petite précision je suis sous Excel 2010 et je suis loin d'être un expert en VBA.
Peux-tu m'aider?
D'avance merci.
Cordialement
Mistral
Partager