Copie de fichier en VBA
Résolu/Fermé
Mistral_13200
Messages postés
610
Date d'inscription
mardi 5 août 2008
Statut
Membre
Dernière intervention
11 décembre 2022
-
26 nov. 2017 à 11:25
Mistral_13200 Messages postés 610 Date d'inscription mardi 5 août 2008 Statut Membre Dernière intervention 11 décembre 2022 - 26 nov. 2017 à 17:22
Mistral_13200 Messages postés 610 Date d'inscription mardi 5 août 2008 Statut Membre Dernière intervention 11 décembre 2022 - 26 nov. 2017 à 17:22
A voir également:
- Copier fichier vba
- Fichier rar - Guide
- Fichier host - Guide
- Erreur 1004 vba ✓ - Forum VB / VBA
- Fichier iso - Guide
- Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
4 réponses
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
Modifié le 26 nov. 2017 à 16:02
Modifié le 26 nov. 2017 à 16:02
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