Deplacer un repertoire avec VB

[le_coc]

Bonjour,
J'ai créé une macro qui fabrique un répertoire, génère des fichiers EXCEL à l'intérieur de ce répertoire et renomme mon répertoire à l'aide d'une Inputbox une fois cela fait.
Je voudrais maintenant déplacer ce répertoire ainsi que les fichiers qu'il contient dans un autre répertoire.
Si quelqu'un pouvait m'aider ce serait vraiment sympa, je n'arrive pas à trouver le script qui me déplace ce fichier.

 

[michel_m]

Re : Deplacer un repertoire avec VB

Bonsoir

Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.GetFolder(ton_dossier)

dossier.Move tonnouvelemplacement

Nota: regarde aussi dans l'aide la méthode "movefolder"

 

[le_coc]

Re : Deplacer un repertoire avec VB

Merci Michel
Ta macro marche parfaitement