Menu

Enregistrer un fichier avec extension xlsm en VBA [Résolu/Fermé]

Maud1681 14 Messages postés mercredi 8 février 2017Date d'inscription 16 février 2017 Dernière intervention - 10 févr. 2017 à 08:43 - Dernière réponse : Maud1681 14 Messages postés mercredi 8 février 2017Date d'inscription 16 février 2017 Dernière intervention
- 10 févr. 2017 à 12:03
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
Afficher la suite 

3 réponses

f894009 12943 Messages postés dimanche 25 novembre 2007Date d'inscription 18 avril 2018 Dernière intervention - 10 févr. 2017 à 08:49
0
Utile
2
Bonjour,

ajoutez ceci:

FileFormat:=xlOpenXMLWorkbookMacroEnabled
Maud1681 14 Messages postés mercredi 8 février 2017Date d'inscription 16 février 2017 Dernière intervention - 10 févr. 2017 à 11:36
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é ?
Maud1681 14 Messages postés mercredi 8 février 2017Date d'inscription 16 février 2017 Dernière intervention - 10 févr. 2017 à 12:03
Je vais ouvrir une autre discussion, merci j894009 pour ton aide !