Transfert des fichiers d'un répertoire à un autre suivant liste colonne I [Résolu]
Signaler
pygos
Le Pingou
- Messages postés
- 185
- Date d'inscription
- vendredi 5 septembre 2008
- Statut
- Membre
- Dernière intervention
- 3 mars 2021
Le Pingou
- Messages postés
- 9956
- Date d'inscription
- mercredi 11 août 2004
- Statut
- Contributeur
- Dernière intervention
- 4 mai 2021
A voir également:
- Transfert des fichiers d'un répertoire à un autre suivant liste colonne I
- Le fichier ou le répertoire est endommagé et illisible - Forum - Windows
- Erreur critique lors du transfert du fichier ✓ - Forum - Logiciels
- Logiciel de transfert de fichier android vers pc - Guide
- Disque dur externe endommagé et illisible ✓ - Forum - Disque dur / SSD / Clé USB
- Le transfert de fichier bluetooth n'a pas abouti - Forum - Pilotes (drivers)
3 réponses
Le Pingou
- Messages postés
- 9956
- Date d'inscription
- mercredi 11 août 2004
- Statut
- Contributeur
- Dernière intervention
- 4 mai 2021
Bonjour,
Essayer cette possibilitée:
Salutations.
Le Pingou
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
Le Pingou
- Messages postés
- 9956
- Date d'inscription
- mercredi 11 août 2004
- Statut
- Contributeur
- Dernière intervention
- 4 mai 2021
Bonjour,
Avec l'instruction suivante
à placer juste sous
Se devrait être OK
Avec l'instruction suivante
Kill repor & nomcla
à placer juste sous
FileCopy repor & nomc....
Se devrait être OK
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,