recopier un fichier dans un autre dossier

[blackbird]

Bonsoir tout le monde

Dans le cadre d'une application EXCEL, que j'essaye de développer pour mon job, j'ai besoin,pour me simplifier la tâche de trouver un code qui me permettrait de manière pratiquement automatique de recopier "Fich1" situé dans le dossier "dossier1" vers le "dossier2" tout en le supprimant du dossier1.

SUr le principe je comprends, mais je n'arrive pas à trouver le code VBA.

Si vous pouviez m'aider cela me ferait faire un grand pas en paant.
Merci

Blcakbird

 

[Michel_M]

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

 

[blackbird]

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