XL 2010 Renommer un classeur ouvert sans l'enregistrer

[Formule1]

Bonjour,
Je voudrais renommer un classeur ouvert sans qu'il ne s'enregistre dans le répertoire de sauvegarde par défaut.
J'ai écrit ceci :

fichierem = Range("K5") & ".xlsm"
ActiveWorkbook.SaveAs Filename:=fichierem

Le renommage marche très bien classeur ouvert, par contre il s'enregistre dans mon répertoire de sauvegarde par défaut (Cocuments).
Comment faire pour qu'il e s'enregistre pas dans ce dit répertoire ?

Merci par avance.

 

[Bernard_XLD]

Bonjour formule1, le forum

On ne peut pas changer le nom d'un classeur sans l'enregistrer, mais on peut l'enregistrer dans le dossier temporaire en attendant, et il faut le typer si c'est un xlsm.

Cordialement, @+

fichierem = Range("K5") & ".xlsm"
ActiveWorkbook.SaveAs Filename:=Environ("temp") & "\" & fichierem, FileFormat:=xlOpenXMLWorkbookMacroEnabled

 

[Formule1]

Merci Bernard_XLD, je vais essayer dans les jours qui viennent.

 

[Formule1]

Merci Bernard, cela fonctionne . Quelle est le format de fichier pour un xlsx (pour un xlsm il est écrit : FileFormat:=xlOpenXMLWorkbookMacroEnabled). Merci d'avance.

 

[Bernard_XLD]

Bonjour

Quelle est le format de fichier pour un xlsx

FileFormat:=xlOpenXMLWorkbook

 

[Formule1]

Merci beaucoup !