Discussion :

[NEC14]

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

[Theze]

Bonjour,

Remplace :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Application.Quit 'ceci ferme Excel

par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ActiveWorkbook.Close 'ici, seulement le classeur actif

Hervé.

[NEC14]

Bonjour Hervé et merci.

Ce n'était pas très compliqué mais un trou de mémoire ou une défaillance, je n'arrivais plus à me rappeler la méthode.

Encore mille mercis