Enregistrer un fichier avec extension xlsm en VBA
Résolu
Maud1681
Messages postés
14
Statut
Membre
-
Maud1681 Messages postés 14 Statut Membre -
Maud1681 Messages postés 14 Statut Membre -
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
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:
- Fichier xlsm
- Fichier bin - Guide
- Fichier epub - Guide
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide
- Fichier .dat - Guide
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é ?