Discussion :

[leronce]

bonjour à tous, surtout bon dimanche
quand je ferme/quitte xl ayant mon fichier ouvert, une msgbox s'ouvre, je dois cliquer 2 fois sur ok pour pouvoir fermer le fichier et xl reste ouvert

voici le code du beforeclose de thisworkbook

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
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = False
 
MsgBox vbTab & "       Récapitulatif" & Chr(10) _
     & Chr(10) _
     & Sheets(8).Cells(1, 6) & Sheets(8).Cells(1, 7) & Chr(10) _
     & Sheets(8).Cells(2, 6) & Sheets(8).Cells(2, 7) & Chr(10) _
     & Sheets(8).Cells(3, 6) & Sheets(8).Cells(3, 7) & Chr(10) _
     & Sheets(8).Cells(4, 6) & Sheets(8).Cells(4, 7) & Chr(10) _
     & Sheets(8).Cells(5, 6) & Sheets(8).Cells(5, 7) & Chr(10) _
     & Sheets(8).Cells(6, 6) & Sheets(8).Cells(6, 7) & Chr(10) _
     & Sheets(8).Cells(7, 6) & Sheets(8).Cells(7, 7) & Chr(10) _
     & Sheets(8).Cells(8, 6) & Sheets(8).Cells(8, 7) & Chr(10) _
     & Sheets(8).Cells(9, 6) & Sheets(8).Cells(9, 7) & Chr(10) _
     & Chr(10) _
     & Sheets(8).Cells(10, 6) & Sheets(8).Cells(10, 7) & Chr(10), vbOKOnly
 
ActiveWorkbook.Close savechanges:=True
End Sub

lorsque je passe savechanges à false, tout se passe correctement
pas besoin de cliquer 2 fois sur msgbox ni fermer xl
merci d'avance si vous avez une piste pour ... économiser ma souris

[joe.levrai]

Bonjour,

dans ton évènement "Avant Fermeture", tu termines le traitement par "Fermer mon classeur en l'enregistrant"

du coup, tu reparcours une seconde fois ton évènement "Avant Fermeture"

il faut simplement sauvegarder le classeur actif sans donner l'ordre de le fermer ... puisque l'ordre de fermeture est déjà en cours de traitement
et le classeur se fermera tranquillement à la fin de ta procédure, sans se lancer une seconde fois

[leronce]

merci pour ta réponse
j'ai mis

Code :

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

ActiveWorkbook.Close savechanges:=True

avant la msgbox qui ne nécessite plus qu'un seul clic mais xl reste ouvert

[joe.levrai]

il faut simplement sauvegarder le classeur actif sans donner l'ordre de le fermer

à mettre en dernière ligne de ta procédure à la place de ta ligne actuelle

Code :

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

ActiveWorkbook.Save

et enlève la première ligne, que je n'avais pas vu, et qui permet d'annuler l'ordre de fermeture

Code :

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

Cancel = False

[leronce]

changement après tes suggestions selon mes souhaits
je passe en résolu en te remerciant de m'avoir lu