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