Merci pour la lumiere chris:
au niveau d'une msgbox ,si non then
ThisWorkbook.Close savechanges:=False
là je ferme le dossier comme tu me l'as suggerer
puis j'ai un passage oblige par
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application
'là il y a plein d instructions
End With
Application.Quit
End Sub
super plus de boites de dialogues
bonne soirée
Evelynetfrancois