4 réponses
cs_Le Pivert
- Messages postés
- 6918
- Date d'inscription
- jeudi 13 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 7 septembre 2020
Bonjour,
voir ceci:
https://excel.developpez.com/faq/?page=FichiersDir#BoucleFichiers
et cela:
https://excel.developpez.com/faq/?page=FichiersDir#FileCopy
Ce qui donne cela à adapter les répertoires et les extensions:
@+ Le Pivert
voir ceci:
https://excel.developpez.com/faq/?page=FichiersDir#BoucleFichiers
et cela:
https://excel.developpez.com/faq/?page=FichiersDir#FileCopy
Ce qui donne cela à adapter les répertoires et les extensions:
Sub BoucleFichiers()
Dim Chemin As String, Fichier As String
Dim Destination As String
'Définit le répertoire contenant les fichiers
Chemin = "C:\chemin dossier source\"
'Définit le répertoire recevant les fichiers
Destination = "C:\chemin dossier destination\"
'Boucle sur tous les fichiers jpg du répertoire.
Fichier = Dir(Chemin & "*.jpg") 'a adapter l'extension
'Utilisez la syntaxe suivante pour boucler sur tous les types de fichiers:
'Fichier = Dir(Chemin & "*.*")
Do While Len(Fichier) > 0
FileCopy Chemin & Fichier, Destination & Fichier 'copie les fichiers
Fichier = Dir()
Loop
End Sub
@+ Le Pivert
Mistral_13200
- Messages postés
- 549
- Date d'inscription
- mardi 5 août 2008
- Statut
- Membre
- Dernière intervention
- 31 août 2020
Merci Le Pivert,
Je viens de tester la macro mais il ne se passe rien.
J'ai bien adapté les noms des répertoires source et destination mais le nom du fichier à copier n'est jamais renseigné, il reste vide.
On sort de la boucle au premier passage.
Mistral
Je viens de tester la macro mais il ne se passe rien.
J'ai bien adapté les noms des répertoires source et destination mais le nom du fichier à copier n'est jamais renseigné, il reste vide.
On sort de la boucle au premier passage.
Mistral