Microsoft 365 VBA déplacer fichier ouvert dans un répertoire

[raf26]

Bonjour,

J'aurais besoin de votre aide pour une macro

J'aimerais que le fichier ouvert par Excel (actuellement enregistré automatiquement sur le bureau via macro) soit déplacé dans le dossier Archive situé sur le bureau (dossier à créer automatiquement s'il n'existe pas).

Je précise que le fichier ouvert est nommé automatiquement d'après des données contenues dans le classeur et que donc aucun fichier n'a le même nom.

Comment traduire cela en VBA ?

Merci d'avance pour votre aide

Je vous joins un fichier test

Cordialement

 

[_Thierry]

Bonsoir @raf26, le Forum

Si je prends ta phrase et ton sujet au mot,

le fichier ouvert par Excel soit déplacé dans le dossier Archive situé sur le bureau

Sous Windows on ne peut PAS déplacer un fichier en cours d'utilisation !

Regardes toutefois à la Méthode Workbook.SaveCopyAs qui ne modifie en rien le fichier ouvert mais en fait une copy à l'endroit désiré...

Workbook.SaveCopyAs method (Excel)

Office VBA reference topic

docs.microsoft.com

Bonne recherche
@+Thierry

 

[raf26]

Bonjour Thierry

Eh oui, j'aurais dû y penser que l'on ne pouvait pas déplacer le fichier ouvert, cela tombe sous le sens...

Bon du coup, avec SaveCopyAs, cela va bien me générer une copie dans un dossier, mais mon fichier original restera sur le bureau.

Et comme le nom est généré, on va dire aléatoirement, comment pouvoir le supprimer.

 

[_Thierry]

Re Raf

C'est toi qui a la main avec ceci non ?

... actuellement enregistré automatiquement sur le bureau via macro ...

Ne le sauves pas sur le Bureau mais dans "Archive" et c'est réglé, non ?... Quelque chose m'échappe...

@+Thierry