si......... fermer fichier en VBA

[wachoo31]

Bonsoir les amis du forum

Encore une question qui me démanche...

Comment ecrire le code en VBA pour

si touche echape enfoncée alors fermer fichier

Voilà ou je cale moi je fait:

if ???? = ?????? then application.close

Mais que mettre a la place des points d'intérogation ?

 

[myDearFriend!]

Bonsoir wachoo31,

Sauf erreur de ma part, le problème n'est pas si simple wachoo31... Tu trouveras ci-dessous une procédure pouvant répondre à ton problème :

Sub Traitement()
      On Error GoTo Terminer
      Application.EnableCancelKey = xlErrorHandler
      '
      'ICI ton code...
      '
      On Error GoTo 0
Exit Sub
Terminer:
      'Fermer le classeur sans sauvegarde ('False' = sans sauvegarde)
      If Err = 18 Then ThisWorkbook.Close False
End Sub

Cordialement,

 

[wachoo31]

Bonjour myDearFriend!, le forum

Je vais voir ce que je peut faire avec ta proposition pour mon fichier actuel mais de toute facons, je mes cela dans un coin pour les autre fois

Merci

ps: Tu me met ton code ici, je ne voie justement pas ce que je doit metre

J'aurais juste voulu que au démarrage du fichier, si pour essayé d'arreter les macros on pousse sur echape, que le fichier ce ferme

Enfin je vais cherhcer sur ta piste

Encore merci