Discussion :

[Nhibel]

Salutation !
Je viens de m'inscrire sur ce forum afin de quérir un peu d'aide
Tout d'abord, je préfère préciser que je suis un absolu débutant en ce qui concerne les macro sous excel et je suis d'un niveau débutant sur son utilisation générale.

Bref, ma demande :
J'ai un fichier excel avec uniquement la colonne A remplie (11000 lignes) sous la forme :

Code :

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

1
2
3
4
5
6
7
8
9
10
aiguille_pour_laine_mes_plus_belles_creations_qfq6XU.jpg
crochet_acier_175_mes_plus_belles_creations_tA9XZA.jpg
aiguilles_a_tricoter_40_cm_mes_plus_belles_creations_wrtEzN.jpg
crochet_a_ouvrage_pour_laine_mes_plus_belles_creations_nP2D9R.jpg
aiguilles_circulaires_80_cm_mes_plus_belles_creations_Rx2Eq4.jpg
tricotin_mes_plus_belles_creations_pMErDr.jpg
distributeur_tournant_aiguille_mes_plus_belles_creations_cuw7w9.jpg
coussin_mousse_avec_ciseaux_mes_plus_belles_creations_sgkfYh.jpg
pince_precision_+_loupe_mes_plus_belles_creations_Q6JHSK.jpg
pince_precision_+_lampe_led_mes_plus_belles_creations_VgYmM7.jpg

Dans un dossier, j'ai des fichiers images dont le nom concorde avec cette liste, et d'autres fichiers images que je ne souhaite pas conserver.
Je cherche donc un moyen, via cette liste, d'aller sélectionner les nom concordants et de les déplacer.
Après avoir recherché sur les Internet, je suis tombé sur ce sujet : https://www.developpez.net/forums/d1...-vers-dossier/ qui correspond exactement à ma recherche.
Mais la formule qui semble fonctionner

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 = "D:\Users\Daniel\Documents\Donnees\Daniel\Photos\2015-04\"
    Desti = "D:\Users\Daniel\Documents\Donnees\Daniel\Photos\2015-07\"
    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

et que j'ai retranscris ci-dessous ne fonctionne pas, j'obtiens une erreur d’exécution 52 - Nom ou numéro de fichier incorrect

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 = "F:\Documents\WEB\Axecibles\Dossier_Images\Images"
    Desti = "F:\Documents\WEB\Axecibles\Dossier_Images\Images_2"
    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 me permets donc de venir ici chercher un peu d'aide, car je ne comprends pas où se situe l'erreur.
D'avance, un grand merci !