1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

Copier Coller un fichier avec changement de nom

Discussion dans 'Forum Excel' démarrée par sive91, 5 Décembre 2018.

  1. sive91

    sive91 XLDnaute Nouveau

    Inscrit depuis le :
    10 Avril 2017
    Messages :
    37
    "J'aime" reçus :
    0
    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

    Code (Visual Basic):

    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
      Taille du fichier:
      138.5 Ko
      Affichages:
      5
  2. Chargement...

    Discussions similaires - Copier Coller fichier Forum Date
    Macro Copier/Coller dans autre fichier excel sous condition Forum Excel 29 Octobre 2018
    Refermer fichiers apres boucle copier coller Forum Excel 20 Septembre 2018
    recopier les données du tableau d'un fichier A et coller par transposé dans le fichier B Forum Excel 28 Juillet 2018
    XL 2016 Application d'un copier coller sur plusieurs fichiers Forum Excel 9 Juillet 2018
    XL 2010 Copier coller tableau dans autre fichier Forum Excel 13 Juin 2018

  3. Dranreb

    Dranreb XLDnaute Barbatruc

    Inscrit depuis le :
    31 Janvier 2011
    Messages :
    14631
    "J'aime" reçus :
    887
    Sexe :
    Masculin
    Habite à:
    Belfort
    Utilise:
    Excel 2016 (PC)
    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
     

Partager cette page