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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas