Copier Coller un fichier avec changement de nom

[sive91]

Bonjour,

Je dispose de deux colonnes dans mon fichier excel, K et L,
K contient l'ancien chemin de mon fichier et L le nouveau chemin de mon fichier
je souhaiterais que pour chaque ligne, la commande FileCopy se lance avec comme variables, la valeur des deux cellules.

je n'ai pas de message d'erreur lorsque j’exécute la requête mais la création ne se fait pas

Private Sub CommandButton2_Click()
 Dim i As Integer
Dim FileSource As String
Dim FileDest As String

For i = 2 To Range("A" & Range("A65536").Row)
FileSource = Sheets("Feuil1").Range("K" & i).Value
FileDest = Sheets(Feuil1).Range("L" & i).Value
FileCopy FileSource, FileDest
 
    Next

End Sub

 

[Dranreb]

Bonsoir.
Il y a quand même quelque chances que Range("A" & Range("Z65536").Row), ce qui équivaut à Range("A65536").Value, soit vide, non ?
Donc assumé 0 et For i = 2 To 0 ne passe pas du tout dans la boucle.
Ça aurait plus de sens de mettre For i = 2 To Workseets("Feuil1").Range("A65536").End(xlUp).Row