Copier Coller un fichier avec changement de nom

sive91

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

Fichiers joints

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
 

Discussions similaires


Haut Bas