Enregistrer un fichier avec extension xlsm en VBA

Résolu
Maud1681 Messages postés 14 Date d'inscription   Statut Membre Dernière intervention   -  
Maud1681 Messages postés 14 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Dans ma macro j'ai essayé le code suivant pour enregistrer mon fichier en xlsx :

ActiveSheet.SaveAs Filename:= _
"\\xxx\xx\xx\" & "société-processus1-" & Range("J5") & "_" & Range("C7") & "_" & Format(Now, "dd-mm-yyyy") & ".xlsx"

--> ça fonctionne pour l'extension xlsx
La même chose avec ".xlsm" ne fonctionne pas...

Puis j'ai testé :

Dim extension As String
extension = ".xlsm"
ActiveSheet.SaveAs Filename:= _
"\\xxx\xx\xx\" & "société-processus1-" & Range("J5") & "_" & Range("C7") & "_" & Format(Now, "dd-mm-yyyy") & extension
--> ça ne marche pas...

Je suis bloquée... je voudrais enregistrer un fichier en xlsm de façon à pouvoir avoir :
macro 1 utilisée par l'utilisateur 1. Cette macro 1 doit enregistrer le fichier en xlsm pour qu'un utilisateur 2 utilise une macro 2 dans le même fichier...

Pouvez-vous m'aider ?

Merci
A voir également:

1 réponse

Réponse 1 / 1
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

ajoutez ceci: 

FileFormat:=xlOpenXMLWorkbookMacroEnabled
0
Maud1681 Messages postés 14 Date d'inscription   Statut Membre Dernière intervention  
 
J'ai essayé ce code et cela fonctionne :
Dim FileExtStr As String
Dim FileFormatNum As Long
FileExtStr = ".xlsm": FileFormatNum = 52
ActiveSheet.SaveAs Filename:= _
"\\xxx\xx\xx\" & "société-processus1-" & Range("J5") & "_" & Range("C7") & "_" & Format(Now, "dd-mm-yyyy") & FileExtStr, FileFormat:=FileFormatNum

Par contre, mon fichier s'enregistre avec la propriété "lecture seule", du coup, la personne qui le reçoit doit enregistrer une copie après modification... comment faire pour supprimer cette propriété ?
0
Maud1681 Messages postés 14 Date d'inscription   Statut Membre Dernière intervention  
 
Je vais ouvrir une autre discussion, merci j894009 pour ton aide !
0