XL 2016 enregistrement d'un fichier sans formules ni macro

[neim]

Bonjour,

Je dois enregistrer un classeur excel tous les jours mais sans les formules ni les macros. J'ai essayé plusieurs codes trouvé sur internet mais je n arrive pas à les adapté.

En fait je souhaite enregistrer mon classeur "stock" dans le dossier C:\stock\archive\2020

Auriez vous un code à me proposer ?

Cordialement

 

[sylvanu]

Bonjour Neim,
Une réponse de Mich ici :

Enregistrer un classeur excel avec les valeurs sans les formules

Bonjour, j'ai plusieurs classeurs excel, certains avec des liaisons, tous a= vec de nombreuses formules. Est-il possible d'enregistrer une version de mo= n classeur qui fige les valeurs et

www.generation-nt.com

Le type d'enregistrement peut être en xlsx, utilisez le format : xlOpenXMLWorkbook

Énumération XlFileFormat (Excel)

Référence de langage VBA pour Office

docs.microsoft.com

 

[neim]

Bonjour, et merci.
La macro fonctionne bien et le fichier s'enregistre bien, mais pas au bon endroit...
Au lieu de se créer ici C:\stock\archive\2020 , il se crée ici C:\stock\archive.
J'aimerai egalemenbt que le fichier s'enregistre avec le nom du fichier et la date du jour...je sais que c est possible mais je n ai pas reussi.
Auriez vous une idée ?

 

[sylvanu]

9 chances sur 10 qu'il manque un "\".
Essayez : C:\stock\archive\2020\

 

[neim]

je le met sur quelle ligne C:\stock\archive\2020\

 

[sylvanu]

Vous avez dû créer un chemin pour l'enregistrement donc à ce niveau là.

 

[sylvanu]

Pour la date :

NomFichier = Nom & Format(Date, "dd-mm-yyyy") & ".xlsm"

par ex.
Format est important, sinon il mettra par défaut 21/09/2020 et les "/" sont interdits dans les noms de fichiers.

 

[neim]

non j ai fait un copier coller du code que vous m avez donné mais je ne vois pas de chemin d acces

 

[sylvanu]

Le chemin implicite est dans ThisWorkBook.
Essayez ça :

ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & _
NomFichier & "_" & Format(Date, "dd-mm-yyyy") & ".xlsx"
, FileFormat:=xlOpenXMLWorkbookMacroEnabled

 

[kiki29]

Salut, à lire et tester ainsi que Supprimer les macros par une macro

 

[sylvanu]

@kiki.
Bonjour. Pour supprimer toutes les macros, il suffit d'enregistrer en xlsx.

 

[neim]

merci
sylvanu, j essai de comprendre
la copie fonctionne bien mais l enregistrement se fait cette fois dans le dossier ou se trouve le fichier à enregistrer.
Dans mon cas, le fichier est ici : C:\stock\ et il doit s'enregistrer ici : C:\stock\archive\2020\
Il faut modifier thisworkbook ?

 

[sylvanu]

thisworkbook donne le chemin du fichier courant.
Si vous voulez enregistrer dans un autre alors faites :

ThisWorkbook.SaveAs Filename:="C:\stock\archive\2020\"  & _
NomFichier & "_" & Format(Date, "dd-mm-yyyy") & ".xlsx"
, FileFormat:=xlOpenXMLWorkbookMacroEnabled

 

[neim]

merci beaucoup Sylvanu, j ai reussi à l'adapter à mes fichiers.

Merci et bonne fin de journee