Discussion :

[imagins]

Bonjour à tous,
j'ai besoin de copier certains fichiers, donc la liste est sur ma feuille, qui sont contenu dans un répertoire vers un autre répertoire. J'ai donc écrit ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Transfert()
    Dim C As Range, source As String, Desti As String
    source = "X:\scolaire\2020\Ecole1\commande\Photos HD\"
    Desti = "X:\scolaire\2020\Ecole1\commande\Pochette Fratrie\"
    For Each C In Range("A2", Cells(Rows.Count, 1).End(xlUp))
        If Dir(source & C.Value) <> "" Then
            FileCopy source & C.Value, Desti & C.Value
        End If
    Next C
End Sub

Cela fonctionne bien, mais...
Je souhaite avoir ma source et ma destination (Desti) qui soit en fonction d'une cellule, par exemple la cellule H4 (Source) et H6 (Desti), qui ont bien évidement pour valeur le même chemin
J'ai donc remplacé mes 2 chemins et j'ai donc écrit :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Transfert()
    Dim C As Range, source As String, Desti As String
    source = Range("H4").Value
    Desti = Range("H6").Value
    For Each C In Range("A2", Cells(Rows.Count, 1).End(xlUp))
        If Dir(source & C.Value) <> "" Then
            FileCopy source & C.Value, Desti & C.Value
        End If
    Next C
End Sub

Et la, ça ne marche pas... Pas d'erreur signalée mais pas de résultat non plus... Avez-vous une piste ?

Merci :-)

[Invité]

Bonjour,

Auriez-vous laissé les guillemets encadrants dans les cellules ?

[imagins]

Bonjour,
merci pour votre réponse. Effectivement, non, je n'ai pas laissé les guillements.
Par contre, si je les mets, j'ai une erreur sur la ligne

Code :

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

If Dir(source & C.Value) <> "" Then

[mfoxy]

Hello,

Justement, il ne faut pas laisser les guillemets.
Le \ est-il bien présent en dernier caractère dans le chemin du dossier? Ainsi que l'extension dans le nom de fichier ?
Les fichiers sont-ils bien existant dans le dossier source / pas déjà présent dans le dossier destination ?

Faire tourner ta macro en pas à pas (F8) et vérifier tes variables pourrait aussi permettre d'identifier le souci.

Bat,

[imagins]

Je viens de trouver le problème... Il manquait juste le \ à la fin du chemin.
Merci à tous pour votre aide.