Transfert des fichiers d'un répertoire à un autre suivant liste colonne I

Résolu/Fermé
pygos
Messages postés
185
Date d'inscription
vendredi 5 septembre 2008
Statut
Membre
Dernière intervention
3 mars 2021
- 5 nov. 2020 à 15:09
Le Pingou
Messages postés
11116
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
16 août 2022
- 5 nov. 2020 à 17:17
Bonjour,

J'ai une liste de fichier à déplacer, listée dans la colonne i.

Je cherche en vba, une macro pour transférer des fichiers du répertoire c:/Testnum1/ au répertoire C:/Testnum2/

Suivant la liste présente en colonne I

Merci d'avance



Configuration: Windows / Internet Explorer 11.0

3 réponses

Le Pingou
Messages postés
11116
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
16 août 2022
1 299
Modifié le 5 nov. 2020 à 16:53
Bonjour,
Essayer cette possibilitée:
Sub CopierFichier()
repor = "c:/Testnum1/": repde = "c:/Testnum2/"
c = 0
'boucle sur liste
For Each cla In Range("I2:I100")
If cla = vide Then
MsgBox "les " & c & "classeurs sont dans la répertoire " & repde '
Exit Sub
End If
nomcla = cla
' Copie le fichier dans un autre dossier :
FileCopy repor & nomcla, repde & nomcla
c = c + 1
Next cla

End Sub


Salutations.
Le Pingou
1
pygos
Messages postés
185
Date d'inscription
vendredi 5 septembre 2008
Statut
Membre
Dernière intervention
3 mars 2021

5 nov. 2020 à 17:06
Bonjour Le pingou,

Merci ! c'est un début de solution.

La macro copie le fichier, au lieu de le transférer . Est-il possible de couper - coller au lieu de Copier- coller ?

Merci pour le travail déjà accompli !
Cordialement,
0
Le Pingou
Messages postés
11116
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
16 août 2022
1 299
5 nov. 2020 à 17:11
Bonjour,
Avec l'instruction suivante
Kill repor & nomcla

à placer juste sous
FileCopy repor & nomc....

Se devrait être OK
1
pygos
Messages postés
185
Date d'inscription
vendredi 5 septembre 2008
Statut
Membre
Dernière intervention
3 mars 2021

5 nov. 2020 à 17:14
Tout à fait, c'est exactement ce que je cherchais !
Merci ! Bonne fin de journée!
0
Le Pingou
Messages postés
11116
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
16 août 2022
1 299
5 nov. 2020 à 17:17
Merci, de rien.
Marquer comme résolu...!
0