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 12035 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 1 avril 2024 - 5 nov. 2020 à 17:17
Le Pingou Messages postés 12035 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 1 avril 2024 - 5 nov. 2020 à 17:17
A voir également:
- Transfert des fichiers d'un répertoire à un autre suivant liste colonne I
- Liste déroulante excel - Guide
- We transfert - Guide
- Comment réduire la taille d'un fichier - Guide
- Déplacer une colonne excel - Guide
- Comment ouvrir un fichier epub ? - Guide
3 réponses
Le Pingou
Messages postés
12035
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
1 avril 2024
1 425
Modifié le 5 nov. 2020 à 16:53
Modifié le 5 nov. 2020 à 16:53
Bonjour,
Essayer cette possibilitée:
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
Le Pingou
Messages postés
12035
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
1 avril 2024
1 425
5 nov. 2020 à 17:11
5 nov. 2020 à 17:11
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
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
5 nov. 2020 à 17:14
Tout à fait, c'est exactement ce que je cherchais !
Merci ! Bonne fin de journée!
Merci ! Bonne fin de journée!
Le Pingou
Messages postés
12035
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
1 avril 2024
1 425
5 nov. 2020 à 17:17
5 nov. 2020 à 17:17
Merci, de rien.
Marquer comme résolu...!
Marquer comme résolu...!
5 nov. 2020 à 17:06
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,