XL 2016 enregistrement d'un fichier sans formules ni macro

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 16 Septembre 2020

• #2

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

 

Vote positif 0 Vote négatif

N

neim

XLDnaute Junior

• 21 Septembre 2020

• #3

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 ?

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 21 Septembre 2020

• #4

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

 

Vote positif 0 Vote négatif

N

neim

XLDnaute Junior

• 21 Septembre 2020

• #5

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 21 Septembre 2020

• #6

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 21 Septembre 2020

• #7

Pour la date :

VB:

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.

 

Vote positif 0 Vote négatif

N

neim

XLDnaute Junior

• 21 Septembre 2020

• #8

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 21 Septembre 2020

• #9

Le chemin implicite est dans ThisWorkBook.
Essayez ça :

VB:

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

 

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 21 Septembre 2020

• #10

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 21 Septembre 2020

• #11

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

 

Vote positif 0 Vote négatif

N

neim

XLDnaute Junior

• 21 Septembre 2020

• #12

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 ?

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 21 Septembre 2020

• #13

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

VB:

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

 

Vote positif 0 Vote négatif

N

neim

XLDnaute Junior

• 21 Septembre 2020

• #14

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

Merci et bonne fin de journee

 

Vote positif 0 Vote négatif