Copier Coller un fichier avec changement de nom

sive91

XLDnaute Junior
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

VB:
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
 

Pièces jointes

  • Images.xlsm
    138.5 KB · Affichages: 17

Dranreb

XLDnaute Barbatruc
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
 

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG