XL 2010 Enregistrer/Enregistrer Sous en .xlsm Nom et emplacement libre

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Orson83

Orson83

XLDnaute Impliqué
Bonsoir à tous,
Je souhaiterai que mon classeur se ferme en forçant le format .xlsm. J'ai inséré une macro dans ThisWorkBook mais celle-ci m'oblige à nommer mon classeur Faux.xlsm et si je fais Enregistrer Sous, message d'erreur avec boite de débogage.
Idéalement, j'aimerai pouvoir Enregistrer/Enregistrer Sous, ou je veux, avec le nom que je souhaite (en .xlsm uniquement).
Voici une macro que j'essaye de modifier sans succès :
VB: 
'FORCE L'UTILISATEUR A ENREGISTRER EN .xlsm AVEC LES MACROS
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    'On Error GoTo Fin ' Si fenêtre de débogage
Dim xFileName As String
If SaveAsUI <> False Then
    Cancel = True
    xFileName = Application.GetSaveAsFilename(, "Excel Macro-Enabled Workbook (*.xlsm), *.xlsm", , "Save As xlsm file") 'Peut-on mettre "Excel Macros activées(*.xlsm), *.xlsm" ?
    Application.DisplayAlerts = False
    If xFileName <> "False" Then
      Application.EnableEvents = False
      ActiveWorkbook.SaveAs Filename:=xFileName, FileFormat:=xlOpenXMLWorkbookMacroEnabled
      Application.EnableEvents = True
    'Else
      'MsgBox "Action annulée" ' Il n'y a pas besoin de message
      Cancel = True
    End If
End If
'Fin: ' Fin de débogage
End Sub
Merci pour votre aide, j'arrive au bout de mes réglages, ouff ! 🤪 🤪
Tchotchodu31
 
Solution
Orson83
Le forum,
A l'enregistrement XL me propose toujours Faux.xlsm, mais j'ai trouvé cette macro pour pouvoir annuler sans plantage. Serait-il possible, soit de remplacer ce "Faux.xlsm" par le nom actuel de mon fichier, soit de proposer un nom du style "Mon projet.xlsm" ?
VB: 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim FileNameVal As String
If SaveAsUI Then
    FileNameVal = Application.GetSaveAsFilename(, "Excel Macro-Enabled Workbook (*.xlsm), *.xlsm")
    Cancel = True
    If FileNameVal = CStr(False) Then 'User pressed cancel
        Exit Sub
    End If
    Application.EnableEvents = False
        If Right(ThisWorkbook.Name, 5) <> ".xlsm" Then
            ThisWorkbook.SaveAs Filename:=FileNameVal &...
Trier par date Trier par votes
Votre macro
"Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)"

et ce que j'ai écrit:
Private Sub Workbook_BeforeClose(Cancel As Boolean)

Vous trouvez que c'est pareil?

Le code
VB: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    'On Error GoTo Fin ' Si fenêtre de débogage
    Dim xFileName As String
    Cancel = True
    xFileName = Application.GetSaveAsFilename(, "Excel Macro-Enabled Workbook (*.xlsm), *.xlsm", , "Save As xlsm file") 'Peut-on mettre "Excel Macros activées(*.xlsm), *.xlsm" ?
    Application.DisplayAlerts = False
    If xFileName <> "False" Then
        Application.EnableEvents = False
        ActiveWorkbook.SaveAs Filename:=xFileName, FileFormat:=xlOpenXMLWorkbookMacroEnabled
        Application.EnableEvents = True
        'Else
        'MsgBox "Action annulée" ' Il n'y a pas besoin de message
        Cancel = True
    End If
'Fin: ' Fin de débogage
    Application.Quit
End Sub
 
Vote positif 0 Vote négatif
Rouge à dit:
Votre macro
"Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)"

et ce que j'ai écrit:
Private Sub Workbook_BeforeClose(Cancel As Boolean)

Vous trouvez que c'est pareil?

Le code
VB: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    'On Error GoTo Fin ' Si fenêtre de débogage
    Dim xFileName As String
    Cancel = True
    xFileName = Application.GetSaveAsFilename(, "Excel Macro-Enabled Workbook (*.xlsm), *.xlsm", , "Save As xlsm file") 'Peut-on mettre "Excel Macros activées(*.xlsm), *.xlsm" ?
    Application.DisplayAlerts = False
    If xFileName <> "False" Then
        Application.EnableEvents = False
        ActiveWorkbook.SaveAs Filename:=xFileName, FileFormat:=xlOpenXMLWorkbookMacroEnabled
        Application.EnableEvents = True
        'Else
        'MsgBox "Action annulée" ' Il n'y a pas besoin de message
        Cancel = True
    End If
'Fin: ' Fin de débogage
    Application.Quit
End Sub
Cliquez pour agrandir...
...
Effectivement, la première ligne est différente, désolé je n'avais pas compris.
Je viens de tester votre macro mais quand je fais Enregistrer Sous, Excel m'oblige à nommer mon fichier Faux.xlsm et si je clique sur NON, je ne peux plus fermer Excel.
J'aimerai avoir la liberté de nommer ou pas mon fichier et de pourvoir l'enregistrer ou je le souhaite.
 
Vote positif 0 Vote négatif
Le forum,
A l'enregistrement XL me propose toujours Faux.xlsm, mais j'ai trouvé cette macro pour pouvoir annuler sans plantage. Serait-il possible, soit de remplacer ce "Faux.xlsm" par le nom actuel de mon fichier, soit de proposer un nom du style "Mon projet.xlsm" ?
VB: 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim FileNameVal As String
If SaveAsUI Then
    FileNameVal = Application.GetSaveAsFilename(, "Excel Macro-Enabled Workbook (*.xlsm), *.xlsm")
    Cancel = True
    If FileNameVal = CStr(False) Then 'User pressed cancel
        Exit Sub
    End If
    Application.EnableEvents = False
        If Right(ThisWorkbook.Name, 5) <> ".xlsm" Then
            ThisWorkbook.SaveAs Filename:=FileNameVal & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
        Else
            ThisWorkbook.SaveAs Filename:=FileNameVal, FileFormat:=xlOpenXMLWorkbookMacroEnabled
        End If
    Application.EnableEvents = True
End If
End Sub
Merci pour votre aide.
 
Vote positif 0 Vote négatif
Solution
Avec ceci, le fichier est enregistré sous "MonProjet.xlsm"
VB: 
ThisWorkbook.SaveAs Filename:="Mon projet.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled

Si vous voulez enregistrer avec le nom du classeur
Code: 
NomClasseur = ThisWorkbook.Name
ThisWorkbook.SaveAs Filename:=NomClasseur & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
 
Vote positif 0 Vote négatif
Rouge à dit:
Avec ceci, le fichier est enregistré sous "MonProjet.xlsm"
VB: 
ThisWorkbook.SaveAs Filename:="Mon projet.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled

Si vous voulez enregistrer avec le nom du classeur
Code: 
NomClasseur = ThisWorkbook.Name
ThisWorkbook.SaveAs Filename:=NomClasseur & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
Cliquez pour agrandir...
Merci Rouge pour cette info.
Malgré mes tentatives, je ne vois pas ou placer ces lignes dans le code (nom de mon classeur) :
VB: 
NomClasseur = ThisWorkbook.Name
ThisWorkbook.SaveAs Filename:=NomClasseur & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
Un dernier petit coup de pouce, Merci 😉
 
Vote positif 0 Vote négatif
Tchotchodu31 à dit:
Merci Rouge pour cette info.
Malgré mes tentatives, je ne vois pas ou placer ces lignes dans le code (nom de mon classeur) :
VB: 
NomClasseur = ThisWorkbook.Name
ThisWorkbook.SaveAs Filename:=NomClasseur & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
Un dernier petit coup de pouce, Merci 😉
Cliquez pour agrandir...
...
Finalement je vais garder la dernière version du code du post #6.
Merci Rouge pour ta participation 👍 😉
Bonne journée.
Tchotchodu31
 
Vote positif 0 Vote négatif
Malgré mes tentatives, je ne vois pas ou placer ces lignes dans le code (nom de mon classeur) :

Exemple:
VB: 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim FileNameVal As String
    NomClasseur = ThisWorkbook.Name
    If SaveAsUI Then
        FileNameVal = Application.GetSaveAsFilename(, "Excel Macro-Enabled Workbook (*.xlsm), *.xlsm")
        Cancel = True
        If FileNameVal = CStr(False) Then 'User pressed cancel
            Exit Sub
        End If
        Application.EnableEvents = False
            If Right(ThisWorkbook.Name, 5) <> ".xlsm" Then
                ThisWorkbook.SaveAs Filename:=NomClasseur & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
            Else
                ThisWorkbook.SaveAs Filename:=FileNameVal, FileFormat:=xlOpenXMLWorkbookMacroEnabled
            End If
        Application.EnableEvents = True
    End If
End Sub
 
Vote positif 0 Vote négatif
Rouge à dit:
Malgré mes tentatives, je ne vois pas ou placer ces lignes dans le code (nom de mon classeur) :

Exemple:
VB: 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim FileNameVal As String
    NomClasseur = ThisWorkbook.Name
    If SaveAsUI Then
        FileNameVal = Application.GetSaveAsFilename(, "Excel Macro-Enabled Workbook (*.xlsm), *.xlsm")
        Cancel = True
        If FileNameVal = CStr(False) Then 'User pressed cancel
            Exit Sub
        End If
        Application.EnableEvents = False
            If Right(ThisWorkbook.Name, 5) <> ".xlsm" Then
                ThisWorkbook.SaveAs Filename:=NomClasseur & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
            Else
                ThisWorkbook.SaveAs Filename:=FileNameVal, FileFormat:=xlOpenXMLWorkbookMacroEnabled
            End If
        Application.EnableEvents = True
    End If
End Sub
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
  • Résolu(e)
XL 2021 Céer un fichier (.text) avec VBA pour enregistrer les évènements dans un journal
Réponses
4
Affichages
668
arnoldbrice19
A
Salmander
  • Question Question
Autres Modèle se sauve 2 fois (Résolu)
Réponses
3
Affichages
750
Salmander
Salmander
U
  • Question Question
Autres Enregistrer sur Onglet TOTO
Réponses
2
Affichages
682
un internaute
U
U
  • Question Question
Autres [RÉSOLU] Faire afficher ligne sur tout le classeur par double clic et la faire maquer à l’enregistrement
Réponses
11
Affichages
899
un internaute
U
Y
  • Résolu(e)
XL 2019 Enregistrer un classeur en supprimant une formule
Réponses
8
Affichages
781
YohanSC
Y
M
  • Résolu(e)
XL 2016 Pb avec code VBA
Réponses
10
Affichages
1 K
MickaeL_D
M
T
  • Question Question
XL 2019 interdire sauvegarde du modele
Réponses
9
Affichages
2 K
thibaut93800
T
P
  • Résolu(e)
XL 2019 Sauvegarder classeur en xlsx et xlsm avec le même bouton et fermer classeur original
Réponses
8
Affichages
2 K
pat66
P
R
  • Question Question
Enregistrer sous en XLSX
Réponses
5
Affichages
754
redba90
R
B
  • Question Question
enregistrement en xlsm
Réponses
3
Affichages
2 K
Staple1600
Staple1600
P
  • Question Question
XL 2019 problème avec before close et beforesave
2
Réponses
18
Affichages
3 K
pat66
P
A
  • Question Question
XL 2013 gerer l'extension au sauvegarde
Réponses
1
Affichages
518
Amrane
A
J
  • Question Question
XL pour MAC code à insérer dans mon VBA pour enregistrer et archiver en pdf
Réponses
0
Affichages
1 K
julie13
J
D
  • Question Question
Convertir tous les .xls des sous-dossiers d'un dossier
Réponses
1
Affichages
1 K
Disten
D
B
  • Question Question
XL 2013 boite de dialogue enregistrer sous
Réponses
6
Affichages
1 K
Bnj
B
B
  • Question Question
XL 2013 boite de dialogue enregistrer sous
Réponses
1
Affichages
727
Matheop
Matheop
BLACKHAYES
  • Question Question
Userform non actif si condition [Résolu]
Réponses
2
Affichages
783
BLACKHAYES
BLACKHAYES
S
  • Question Question
XL 2013 Regroupement de deux macros.
Réponses
3
Affichages
831
sarf
S
W
  • Question Question
XL 2010 compiler 2 macros en une seule
Réponses
9
Affichages
1 K
wenders frédéric
W
A
  • Question Question
Enregistrer sous en envoyer au format PDF
Réponses
11
Affichages
1 K
grisan29
grisan29
Retour