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
Le Pingou Messages postés 12248 Date d'inscription Statut Contributeur Dernière intervention - 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
- Déplacer colonne excel - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
- Suivi des modifications word - Guide
3 réponses
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
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,