Pour copier un fichier d'un répertoir à un autre utilise fso (File System Object ), tu peu écrire:
Dim fso Set fso = CreateObject("Scripting.FileSystemObject") fso.CopyFile OldPath , NewPath
OldPath est le chemin complet du fichier qu'on veut copier NewPath est le nouveau emplacement de notre fichier
ceci va copier le fichier désigné par OldPath vers NewPath
neoleo
|