A voir également:
- Vba copier fichier vers repertoire
- Vba copier fichier - Meilleures réponses
- Copier fichier vba - Meilleures réponses
- Copie de fichier en VBA ✓ - Forum - VB / VBA
- Copier des répertoire via macro excel VBA ✓ - Forum - VB / VBA
- Vba copier fichier ✓ - Forum - VB / VBA
- VBA Copier feuille vers le classeur choisi ✓ - Forum - VB / VBA
- VBA copier coller vers plusieurs feuilles excel ✓ - Forum - Excel
4 réponses
cs_Le Pivert
- Messages postés
- 7268
- Date d'inscription
- jeudi 13 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 22 février 2021
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
- 572
- Date d'inscription
- mardi 5 août 2008
- Statut
- Membre
- Dernière intervention
- 31 janvier 2021
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
