Bonsoir Sten et à tous,
J'ai solution de bidouilleur
On mets une valeur dans une cellule ex:IV65536 qu'on initialise à 1 à l'ouverture du classeur, qu'on change à 0 dans le command...Click
mais j'ai pas trouvé mieux, il suffit de faire dans ton:
Private sub Workbook_open
Range("IV65536") = 1
end sub
Private sub bouton_click()
Range("IV65536") = 0
'''ta sauvegarde de fichier ETC...
end sub
Private sub Worbook_beforeclose(cancel as boolean)
if Range("IV65536") = 1 Then Cancel = True 'Impossible de quitter Excel, si d'autres classeur ouverts=>il faudra changer la valeur de cette cellule..
End Sub
A+++