Peut-être que: '---------- Chemin_et_nom_fichier_source.Copy Chemin_et_nom_fichier_destination '---------- Le dossier destination doit exister.
Ou alors directement avec l'explorateur de Windows
Salutations JJ
"Jojo" a écrit dans le message de news:clnsu2$klg$
bonjour,
je voudrais simplement faire la copie de fichiers d'un repertoire a un autre
sans les ouvrir et faire un vulgaire SaveAs..
Pourriez vous m'aider ?
Merci pr votre aide precieuse...
jojo
michdenis
Bonjour Jojo,
La procédure qui suit copie tous les fichiers d'un répertoire vers un autre répertoire sans modifier le nom du fichier.
Pour limiter les fichiers copiés à un certain type de fichiers, il faut modifier cette ligne de code : Source = Dir(CheminSource & "*.*") par Source = Dir(CheminSource & "*.xls") pour ne copier que les fichiers excel.
Évidemment les variables doivent être renseignées selon vos désirs !
'------------------------------ Dim Source As String Dim Dest As String Dim CheminDestination As String Dim CheminSource As String
Do While Source <> "" FileCopy CheminSource & Source, CheminDestination & Source Source = Dir() Loop
End Sub '------------------------------
"Jojo" a écrit dans le message de news:clnsu2$klg$ bonjour,
je voudrais simplement faire la copie de fichiers d'un repertoire a un autre sans les ouvrir et faire un vulgaire SaveAs..
Pourriez vous m'aider ?
Merci pr votre aide precieuse...
jojo
Bonjour Jojo,
La procédure qui suit copie tous les fichiers d'un répertoire vers un autre répertoire sans modifier le nom du fichier.
Pour limiter les fichiers copiés à un certain type de fichiers, il faut modifier cette ligne
de code :
Source = Dir(CheminSource & "*.*") par
Source = Dir(CheminSource & "*.xls") pour ne copier que les fichiers excel.
Évidemment les variables doivent être renseignées selon vos désirs !
'------------------------------
Dim Source As String
Dim Dest As String
Dim CheminDestination As String
Dim CheminSource As String
La procédure qui suit copie tous les fichiers d'un répertoire vers un autre répertoire sans modifier le nom du fichier.
Pour limiter les fichiers copiés à un certain type de fichiers, il faut modifier cette ligne de code : Source = Dir(CheminSource & "*.*") par Source = Dir(CheminSource & "*.xls") pour ne copier que les fichiers excel.
Évidemment les variables doivent être renseignées selon vos désirs !
'------------------------------ Dim Source As String Dim Dest As String Dim CheminDestination As String Dim CheminSource As String
