recopier un fichier dans un autre dossier

Bonsoir drôle d'oiseau lol,

ci dessous proposition tirée de mes vieilles archives poussièreuses.

tu peux bien sûr mettre les chemins et nom de fichier en variable string.

Avec un antivirus sérieux tu as le déclenchement d'un avertissement ( macafee -Hawk est hostile et le fait savoir aux mots copyfile et kill; heureusement d'ailleurs !)

remarque:
' la méthode move est particulièrement casse-gueule si il y a déjà le classeur dans la destination
''on emploie donc une copie (attention, écrasement automatique si doublon dans destination)
'et ensuite on supprime l'origine
' on peut employer les génériques * et ? dans la source


Sub deplacer_fichier()
Dim deplace As Object

Set deplace = CreateObject("Scripting.FileSystemObject")
deplace.copyfile "c:\mes documents\classeur1.xls", "c:\Windows\temp\"
Kill "c:\mes documents\classeur1.xls"


End Sub

Allez, une verveine et au dodo

Michel

Bonjour tout le forum
Bonjour Michel

Je viens de lire ta réponse, merci beaucoup. Je vois ça et te tiens au courant si je rencontre des difficultés.

Bonne journée à tous
Blackbird