Transfert des fichiers d'un répertoire à un autre suivant liste colonne I [Résolu]

Signaler
Messages postés
174
Date d'inscription
vendredi 5 septembre 2008
Statut
Membre
Dernière intervention
5 novembre 2020
-
Messages postés
9818
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
14 novembre 2020
-
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

Messages postés
9818
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
14 novembre 2020
1 095
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
Messages postés
174
Date d'inscription
vendredi 5 septembre 2008
Statut
Membre
Dernière intervention
5 novembre 2020

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,
Messages postés
9818
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
14 novembre 2020
1 095
Bonjour,
Avec l'instruction suivante
Kill repor & nomcla

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

Se devrait être OK
Messages postés
174
Date d'inscription
vendredi 5 septembre 2008
Statut
Membre
Dernière intervention
5 novembre 2020

Tout à fait, c'est exactement ce que je cherchais !
Merci ! Bonne fin de journée!
Messages postés
9818
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
14 novembre 2020
1 095
Merci, de rien.
Marquer comme résolu...!