Microsoft 365 MsgBox affichage et fermeture en 1 seconde

Usine à gaz · 29 Mai 2022

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 · 30 Mai 2022

Re & merci,

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

patricktoulon · 30 Mai 2022

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

VB:

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

modus57 · 8 Juin 2022

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.

Microsoft 365 MsgBox affichage et fermeture en 1 seconde

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

modus57

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

modus57

XLDnaute Occasionnel

Discussions similaires