Code:
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
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