Bonjour a tous, par vba j'arrive a rendre une feuille invisible en lui attribuant la valeur
Activesheet.Visible = xlSheetVeryHidden

je cherche comment pouvoir donner a l'utilisateur la possibilité d'enregistrer ou non les modifications apportées avant de la rendre invisible.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub procedure1()
 
With ActiveSheet
 
    rep = MsgBox("Désirez-vous procéder à l'enregistrement des données", vbInformation + vbYesNo)
 
    Select Case rep
        Case vbYes
            Application.DisplayAlerts = False
            ActiveWorkbook.Save
            With ActiveWindow
                .SelectedSheets.Visible = xlSheetVeryHidden
            End With
            Application.DisplayAlerts = True
 
            MsgBox "Voilà"
        Case vbNo
            Application.DisplayAlerts = False
            'Ici rendre la feuille active invisible sans sauvegarder les changements
            Application.DisplayAlerts = True
    End Select
 
End With
End Sub
Quelqu'un a une piste ?

Merci à l'avance