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

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
R

Rouge

XLDnaute Impliqué
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
Orson83

Orson83

XLDnaute Impliqué
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
Orson83

Orson83

XLDnaute Impliqué
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
R

Rouge

XLDnaute Impliqué
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
Orson83

Orson83

XLDnaute Impliqué
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
Orson83

Orson83

XLDnaute Impliqué
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
R

Rouge

XLDnaute Impliqué
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
R

Rouge

XLDnaute Impliqué
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

Discussions similaires

F
  • Résolu(e)
XL 2021 fermeture du classeur après apple d'un userform d'un autre classeur ouvert
Réponses
2
Affichages
313
farid
F
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
463
arnoldbrice19
A
P
  • Question
Microsoft 365 Désactivation/activation Application.CommandBars("ply").Enabled
Réponses
6
Affichages
496
pat66
P
P
  • Question
Microsoft 365 rétablir le clic droit sur les onglets malgré ThisWorkbook.Saved = True
Réponses
2
Affichages
723
Lu76Fer
Lu76Fer
Salmander
  • Question
Autres Modèle se sauve 2 fois (Résolu)
Réponses
3
Affichages
683
Salmander
Salmander
U
  • Question
Autres Enregistrer sur Onglet TOTO
Réponses
2
Affichages
502
un internaute
U
C
  • Question
Microsoft 365 Créer dossiers, sous-dossiers et enregistrer sous OneDrive en ligne
Réponses
0
Affichages
376
Casim
C
U
  • Question
Autres [RÉSOLU] Problème macro mais lequel?
Réponses
4
Affichages
562
un internaute
U
Usine à gaz
  • Résolu(e)
XL 2021 Bloquer la sélection des autres onglets sous condition (sans les masquer)
Réponses
2
Affichages
514
Usine à gaz
Usine à gaz
Usine à gaz
  • Résolu(e)
XL 2021 Faire une copie de mon classeur quand "Target" change
2 3
Réponses
30
Affichages
2 K
Usine à gaz
Usine à gaz

Membres actuellement en ligne

9 membres et 71 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 096
Messages
2 116 184
Membres
112 678
dernier inscrit
arno12345678