XL 2016 créer une copie sans macro

[la fifine]

Private Sub CommandButton1_Click()
'Sauvegarde
Dim NomFichier As String
    NomFichier = Range("A1")
    ActiveWorkbook.SaveAs "C:\Users\pc pascal\Dropbox\Documents Pascal\dossier accident du travail\" & NomFichier
End Sub

A1 contient une formule qui reprend un nom et une date sous format jj-mm-aaa
bonjour a tous
ce bout de code me permet de créer une copie a partir d'un modèle XLTS
la copie part au siège mais leur serveur la bloque car elle contient des macros (sécurité oblige)
je pourrais leur envoyer en pdf mais je préfère qui'ils puissent apporter une modif s'il en est besoin
comment créer une copie sans macro?
merci de votre aide

 

[la fifine]

hola deja 10 visites et pas de réponse ça sent la question à la c...

 

[pierrejean]

Bonjour la fifine
Examine ce qu'il y a en A1
et peut-être spécifie le suffixe .xlsx

 

[la fifine]

bonjour pierrejean
en a1 la formule qu'elle contient dont ce résultat
exemple
Accident de DEDE du 15-10-2018
donc la copie doit porter ce nom ça ça fonctionne
mais le fichier crée est en xlsx et pas en xls
ce qui est normal car je ne la précise pas ne sachant pas comment le faire
j'ai bien trouvé des bouts de code mais j'ai perdu la main en vba et je ne sais plus comment faire pour adapter

 

[pierrejean]

Re
a tester:
NomFichier = Range("A1") & ".xlsx"
NB: En .xls les macros seront conservées !!!

 

[la fifine]

Re
a tester:
NomFichier = Range("A1") & ".xlsx"
NB: En .xls les macros seront conservées !!!

je croyais que c'etait l'inverse

 

[2passage]

Oui... xlsm avec macro, xlsx sans macro... ou en forçant le type dans le saveas (", xlWorkbookNormal" en bout de ligne)

https://docs.microsoft.com/fr-fr/office/vba/api/excel.workbook.saveas

 

[la fifine]

non ça fonctionne pas
ça créer une copie nommée accident de DEDE du 15-10-2018 .xlsx
mais les macros sont toujours là
2passage bonjour marche pas non plus
ça créer une copie nommée accident de DEDE du 15-10-2018 , xlWorkbookNormal
les macros sont toujours là

 

[pierrejean]

Re

Curieux!!
Normalement un fichier .xlsx ne contient pas de macro !!!!
As-tu vérifié ?

 

[mutzik]

Bonjour PierreJean

 

[la fifine]

oui bien sur j'ai vérifié les macros sont bien là
je pense que je ne fais pas comme il faut

Dim NomFichier As String
    NomFichier = Range("A1").xlsx
    ActiveWorkbook.SaveAs "C:\Users\pc pascal\Dropbox\Documents Pascal\dossier accident du travail\" & NomFichier

ça crée une erreur

Dim NomFichier As String
    NomFichier = Range("A1")
    ActiveWorkbook.SaveAs "C:\Users\pc pascal\Dropbox\Documents Pascal\dossier accident du travail\" & NomFichier . xlWorkbookNormal

ne crée pas d'erreur mais ça ne change rien
dans les deux cas ça crée un fichier xlsm

 

[la fifine]

je galère toujours sur ce fichu code

 

[la fifine]

bon bah j'ai finalement trouvé

, FileFormat:=xlOpenXMLWorkbook

fonctionne parfaitement bien et me crée bien une copie xlsx sans les macros qui va être exploitable sur le serveur de l'entreprise
merci pour tout