VBA copié collé dossier et fichier
Bonjour,
Je souhaiterais une macro qui fait un copié collé de tous les élements d'un dossier (dossier et fichier) qui se trouve sur un chemin vers un autre chemin quand je fait une combinaison de touches.
On ma transmis cela mais cela ne fonctionne pas est-ce que quelqu'un à une idée et est-ce possible
"
Sub CopierFichiers()
Dim dossierSource As String
Dim dossierDestination As String
Dim fichier As String
dossierSource = "C:\Chemin\vers\dossier\source\"
dossierDestination = "C:\Chemin\vers\dossier\destination\"
' Boucle sur tous les fichiers du dossier source
fichier = Dir(dossierSource & "*.*")
Do While fichier <> ""
' Copie le fichier dans le dossier de destination
FileCopy dossierSource & fichier, dossierDestination & fichier
' Passe au fichier suivant
fichier = Dir()
Loop"
Merci d'avance pour votre aide
Cordialement,
Bonjour,
Qu'est-ce qui ne fonctionne pas ? Qu'est-ce qui se passe ? Essaie en mettant :
fichier = DirBonjour,
Et bien quand je lance la macro rien ne se passe mes fichier ne sont pas copié collé donc je suppose que cela ne fonctionne pas
Cordialement,