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

A voir également:

Vba enregistrer sous xlsx
Changer extension fichier - Guide
Extension .bin - Guide
Extension dat - Guide
Extension 7z - Guide
Extension odt - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17272 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour,

ajoutez ceci:

FileFormat:=xlOpenXMLWorkbookMacroEnabled

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é ?

Maud1681 Messages postés 14 Date d'inscription Statut Membre Dernière intervention

Je vais ouvrir une autre discussion, merci j894009 pour ton aide !

Discussions similaires

Fichier XLSM ne s'ouvre pas

refus ouvrir fichier XLSM

Problème ouverture fichier .xlsm

Ouvrir fichiers excel .xlsm sous open office

Votre réponse

Discussions similaires