XL 2010 Renommer un classeur ouvert sans l'enregistrer

Formule1 · 17 Mars 2022

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 · 17 Mars 2022

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, @+

VB:

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

Bernard_XLD · 17 Mars 2022

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, @+

VB:

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

Formule1 · 18 Mars 2022

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

Formule1 · 25 Mars 2022

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 · 25 Mars 2022

Bonjour

Formule1 à dit:
Quelle est le format de fichier pour un xlsx

FileFormat:=xlOpenXMLWorkbook

Formule1 · 25 Mars 2022

Merci beaucoup !

XL 2010 Renommer un classeur ouvert sans l'enregistrer

Formule1

XLDnaute Nouveau

Bernard_XLD

Bernard_XLD

XLDnaute Barbatruc

Formule1

XLDnaute Nouveau

Formule1

XLDnaute Nouveau

Bernard_XLD

XLDnaute Barbatruc

Formule1

XLDnaute Nouveau

Discussions similaires