Enregistrer un fichier avec extension xlsm en VBA

Résolu/Fermé

Maud1681 Messages postés 14 Date d'inscription mercredi 8 février 2017 Statut Membre Dernière intervention 16 février 2017 - 10 févr. 2017 à 08:43
Maud1681 Messages postés 14 Date d'inscription mercredi 8 février 2017 Statut Membre Dernière intervention 16 février 2017 - 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
Audacity enregistrer son pc - Guide
Comment ouvrir un fichier xlsx ? - Guide
Fichier xlsx - Télécharger - Tableur
Enregistrer en pdf - Guide
Comment enregistrer une video youtube - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17225 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 17 janvier 2025 1 712
10 févr. 2017 à 08:49

Bonjour,

ajoutez ceci:

FileFormat:=xlOpenXMLWorkbookMacroEnabled

Maud1681 Messages postés 14 Date d'inscription mercredi 8 février 2017 Statut Membre Dernière intervention 16 février 2017
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 Messages postés 14 Date d'inscription mercredi 8 février 2017 Statut Membre Dernière intervention 16 février 2017
10 févr. 2017 à 12:03

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