Workbook_Open ne fonctionne pas correctement avec Excel

Question

Bonjour &#224; tous,
J'ai une macro Workbook_Open() qui marche lorsque j'ouvre mon classeur pour la premi&#232;re fois dans une session Excel, mais si je ferme mon classeur en ayant fait une BeforeSave, que je reste dans Excel et que je rouvre mon classeur, la macro Workbook_Open() ne fonctionne plus (je dois refermer Excel et le rouvrir). Voici le code : 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI = True Then
    FileSaveName = Application.GetSaveAsFilename( _
    fileFilter:="Xls Files (*.xls), *.xls")
    If FileSaveName <> False Then
        Application.ScreenUpdating = False
                ThisWorkbook.Unprotect "password"
                Sheets("Titre").Visible = False
                Sheets("Avis").Visible = True
                Sheets("Resultat").Visible = False
                ThisWorkbook.Protect "password"
                Application.EnableEvents = False
                ThisWorkbook.SaveAs FileSaveName
                Application.EnableEvents = True
                ThisWorkbook.Unprotect "password"
                Sheets("Titre").Visible = True
                Sheets("Avis").Visible = False
                Sheets("Resultat").Visible = True
                ThisWorkbook.Protect "password"
                ' puis, pour ne pas &#234;tre invit&#233; inutilement &#224; enregistrer si on quitte
                ThisWorkbook.Saved = True
    End If
    Cancel = True
    Exit Sub
End If
    Application.ScreenUpdating = False
    ThisWorkbook.Unprotect "password"
    Sheets("Titre").Visible = False
    Sheets("Avis").Visible = True
    Sheets("Resultat").Visible = False
    ThisWorkbook.Protect "password"
    Application.EnableEvents = False
    ThisWorkbook.Save
    Application.EnableEvents = True
    ThisWorkbook.Unprotect "password"
    Sheets("Titre").Visible = True
    Sheets("Avis").Visible = False
    Sheets("Resultat").Visible = True
    ThisWorkbook.Protect "password"
     ' puis, pour ne pas &#234;tre invit&#233; inutilement &#224; enregistrer si on quitte
    ThisWorkbook.Saved = True
    Cancel = True
    Exit Sub
End Sub

Private Sub Workbook_Open() 
Application.ScreenUpdating = False
ThisWorkbook.Unprotect "password" 
Sheets("Titre").Visible = True 
Sheets("Avis").Visible = False 
Sheets("Resultat").Visible = True
CreateCustomMenuWithSubMenus 
ThisWorkbook.Protect "password" 
Application.ScreenUpdating = True 
' puis, pour ne pas &#234;tre invit&#233; inutilement &#224; enregistrer si on quitte 
ThisWorkbook.Saved = True 
End Sub 

Merci d'avance 
Jybse

jpleroisse · Answer

Apr&#232;s ThisWorkBook.Saved = True , essaies de rajouter :
    ActiveWorkbook.Close

jpleroisse

jybse · Answer

Merci pour votre aide, mais &#231;a ne marche pas. De toute fa&#231;on, je ne souhaite pas quitter apr&#232;s avoir sauvegard&#233;. J'ai essay&#233; votre code : apr&#232;s avoir sauvegard&#233;,  Excel m'a demand&#233; si je voulais quitter, j'ai dit oui pour voir, quand j'ai rouvert le classeur, Workbook_Open n'avait pas fonctionn&#233;.

Jybse

Workbook_Open ne fonctionne pas correctement avec Excel

2 réponses

Discussions similaires