Discussion :

[PPN83]

Bonjour,

avec le code suivant mon classeur s'enregistre et se ferme sans problème mais pas l'application Excel, je ne comprends pas ?

Merci d'avance

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
25
26
27
28
29
30
31
Sub QUITTER()
 
 
With FIN 'nom de mon userform, permet de masquer la suite 
.Height = Application.Height
.Width = Application.Width
.Show
End With
 
With Application
.DisplayFullScreen = False
.DisplayFormulaBar = True
.DisplayStatusBar = True
.DisplayCommentIndicator = 0
.ShowWindowsInTaskbar = True
End With
 
With ActiveWindow
.DisplayGridlines = True
.DisplayHeadings = True
.DisplayOutline = True
.DisplayZeros = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With
 
ActiveWorkbook.Close True
Application.Quit
 
End Sub

[kiki29]

Salut,en plaçant Application.Quit dans ThisWorkbook

Code :

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

1
2
3
4
5
Option Explicit
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.Quit
End Sub

et en le supprimant de quitter()
ajouter

Code :

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

Application.ScreenUpdating = False

en début de procédure,l'utilité de l'UserForm de masquage est plus que discutable

[Godzestla]

Bonjour à tous,

pour paraphraser Kiki29,

ceci n'a aucune chance de fonctionner :

Code :

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

1
2
ActiveWorkbook.Close True
Application.Quit

La première ligne mettant en principe un point final a l'exécution de ce code ! puisque le code s'arrête à la fermeture du classeur.

[PPN83]

Bonjour,

merci de vos réponses
j'ai remplacé par le code suivant et ça marche

Code :

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

1
2
ActiveWorkbook.Save
Application.Quit

Seulement voilà si j'ai un autre fichier excel ouvert, j'ai le message classique de fermeture et si on clique sur annuler, le fichier se retrouve avec toutes les options disponibles et la macro ne sert plus à rien. A moins de pouvoir supprimer le "ANNULER"
Sinon le code suivant ne résoud pas le problème.

Code :

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

1
2
3
4
If ActiveWorkbook.Name <> ThisWorkbook.Name Then
    ActiveWorkbook.Saved = True
    ActiveWorkbook.Close
End If

Merci d'avance de vos solutions