Bonjour,
Dans la FAQ Excel, j'ai trouvé Comment afficher un MsgBox temporaire ?, mais cela ne fonctionne pas, je suis obligé de cliquer quand même sur OK.
Alors j'ai trouvé
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
    CreateObject("WScript.Shell").Run _
        "mshta.exe vbscript:close(CreateObject(""WScript.Shell"").Popup(""Texte"",1,""Titre""))"
qui fonctionne très bien.
Mais j'ai voulu l'insérer dans un Select Case
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Select Case CreateObject("WScript.Shell").Run _
        "mshta.exe vbscript:close(CreateObject(""WScript.Shell"").Popup(""Fin"",1,""SARA-MàJ""))"
et j'obtiens le message Attendu : Fin d'instruction.
Est-ce quelqu'un peut me dire ce qui ne va pas.
D'avance merci