Bonjour à tous,

J'ai ce code que j'active à l'aide d'un bouton et qui me permet de sauvegarder et fermer le fichier Excel concerné par ce code. Hors c'est tous les fichiers Excel qui se ferment.
Comment faire pour que seul le fichier concerné se ferme mais pas les autres ?
Merci par avance pour votre aide

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub CmbFerme_Click()
Dim Ach As Worksheet
Sheets("PG").Visible = True
    For Each Ach In ThisWorkbook.Sheets
    'masque les feuilles si nom différent de "PG"
        If Ach.Name <> "PG" Then Ach.Visible = xlSheetVeryHidden
    Next Ach
 
Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.Quit
End Sub