Copie de fichier en VBA
Résolu/Fermé
Mistral_13200
Mistral_13200
- Messages postés
- 591
- Date d'inscription
- mardi 5 août 2008
- Statut
- Membre
- Dernière intervention
- 7 novembre 2021
Mistral_13200
- Messages postés
- 591
- Date d'inscription
- mardi 5 août 2008
- Statut
- Membre
- Dernière intervention
- 7 novembre 2021
A voir également:
- Vba copier un fichier
- Vba copier fichier - Meilleures réponses
- Copier fichier vba - Meilleures réponses
- Copie de fichier en VBA ✓ - Forum - VB / VBA
- Macro copier / coller multi fichiers ✓ - Forum - VB / VBA
- Copier des fichiers d'un répertoire vers un autre sans FileCopy - Forum - VB / VBA
- Vba ouvrir un fichier excel et copier coller - Forum - Excel
- Copier/coller fichier excel VBA ✓ - Forum - VB / VBA
4 réponses
cs_Le Pivert
Modifié le 26 nov. 2017 à 16:02
- Messages postés
- 7745
- Date d'inscription
- jeudi 13 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 20 mai 2022
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
Mistral_13200
26 nov. 2017 à 16:26
- Messages postés
- 591
- Date d'inscription
- mardi 5 août 2008
- Statut
- Membre
- Dernière intervention
- 7 novembre 2021
26 nov. 2017 à 16:26
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
cs_Le Pivert
26 nov. 2017 à 16:40
- Messages postés
- 7745
- Date d'inscription
- jeudi 13 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 20 mai 2022
26 nov. 2017 à 16:40
Il faut terminer le chemin des répertoires par \
cs_Le Pivert
26 nov. 2017 à 17:21
- Messages postés
- 7745
- Date d'inscription
- jeudi 13 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 20 mai 2022
26 nov. 2017 à 17:21
Voilà, je t'ai fait un exemple:
http://www.cjoint.com/c/GKAquCPzoWQ
http://www.cjoint.com/c/GKAquCPzoWQ
Mistral_13200
26 nov. 2017 à 17:22
- Messages postés
- 591
- Date d'inscription
- mardi 5 août 2008
- Statut
- Membre
- Dernière intervention
- 7 novembre 2021
26 nov. 2017 à 17:22
Il manquait effectivement le \ à la fin des chemins des répertoires.
C'est parfait comme ça marche parfaitement.
Un grand merci à toi.
Mistral
C'est parfait comme ça marche parfaitement.
Un grand merci à toi.
Mistral