Microsoft 365 MsgBox affichage et fermeture en 1 seconde

[Usine à gaz]

Bonjour à toutes et à tous,
Je vous souhaite un beau dimanche

J'en ai une petit pour ce dimanche lol
Ce sont patricktoulon et mapomme qui vont être contents

Est-il possible de faire ça ?

Le but est de supprimer Microsoft Excel et de mettre la 1ère ligne en titre
Je cherche mais j'ai pas encore trouvé Grrr !!!!

Je joins un petit fichier test ...
Juste avec le MsgBox, sans UserForm ou autre qui alourdiraient mes Usine à Gaz ...
Auriez-vous la solution ?
Merci à toutes et à tous,
lionel

 

[modus57]

Re & merci,

Vous avez toujours une solution, je viens de la testée mais j'ai un petit souci :

 

[patricktoulon]

pardon @modus57 j'ai oublié ce matin de tout copier coller

Public Sub CloseMsgBox()
    MsgBoxCloseD = True: AppActivate MsgBoxTitle
    CreateObject("wscript.shell").SendKeys ("{Enter}")    'choisi "No" automatiquement si vbyesno
End Sub

 

[modus57]

Bonjour patricktoulon

Je n'étais pas là depuis le 31, je viens à nouveau de tester et cela fonctionne super bien.

Bravo et merci beaucoup pour cette excellente solution.