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
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
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à