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

Résolu
pygos Messages postés 185 Date d'inscription   Statut Membre Dernière intervention   -  
Le Pingou Messages postés 12248 Date d'inscription   Statut Contributeur Dernière intervention   - 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
A voir également:

3 réponses

Réponse 1 / 3
Le Pingou Messages postés 12248 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
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


1
pygos Messages postés 185 Date d'inscription   Statut Membre Dernière intervention  
 
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
Réponse 2 / 3
Le Pingou Messages postés 12248 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
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   Statut Membre Dernière intervention  
 
Tout à fait, c'est exactement ce que je cherchais !
Merci ! Bonne fin de journée!
0
Réponse 3 / 3
Le Pingou Messages postés 12248 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
Merci, de rien.
Marquer comme résolu...!
0