Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

[RESOLU] Fenêtre PopUp qui ne se ferme pas

cathodique

XLDnaute Barbatruc
Bonjour,

J'ai trouvé sur le net le code ci-dessous, devant afficher un popup durant 1 seconde. Le problème est que le popup ne se ferme. Je n'ai pas compris pour quelle raison il ne se ferme pas.
VB:
CreateObject("Wscript.shell").Popup "IMPRESSION EN COURS!", 1, "EDITION"
La fenêtre qui s'affiche est dotée d'un bouton "OK" (comme c'est le cas (pas de fermeture) ce bouton est utile).
Je voudrais obtenir juste un message (pour aviser l'utilisateur que l'impression est lancée), pendant un cours instant dans le style d'une fenêtre de commentaire, c'est à dire sans bouton. Auriez-vous une astuce à me proposer?

En vous remerciant
 
Dernière édition:

cathodique

XLDnaute Barbatruc
Re : Fenêtre PopUp qui ne se ferme pas

Bonjour,

@MJ13: Merci beaucoup, ton code fonctionne parfaitement.

@ Marc L: Merci, mais je ne fabule pas sur ma machine ça ne fonctionne pas.
Le message s'affiche mais reste indéfiniment afficher. Fort heureusement, qu'il y a le bouton OK.
J'ai windows7 64bits et excel2007 32bits.

Merci Bon dimanche.
 

Marc L

XLDnaute Occasionnel

Là j'ai sous le coude deux PC sous Seven 64 bits dont un sous Excel 2007 : aucun souci !
Peut-être un souci de mise à jour de ton Windows …

Pas grave vu les diverses solutions à ta disposition !

Bon dimanche.

 

DoubleZero

XLDnaute Barbatruc
Re : Fenêtre PopUp qui ne se ferme pas

Bonjour à toutes et à tous,

Le code ci-après fonctionne, également, sur mon poste.

Code:
Option Explicit
Sub MsgBox_temporaire()
' Code de antonysansh (Merci !)
    message_tempo "Test Message", , "A lire vite"
End Sub
Private Function message_tempo(Message As String, Optional Secondes As Integer = 1, Optional Titre As String = "", Optional Options As Integer = 0)
    CreateObject("WScript.Shell").Run _
            "mshta.exe vbscript:close(CreateObject(""WScript.Shell"")" _
          & ".Popup(""" & Message & """," & Secondes & ",""" & Titre & """," & Options & "))"
End Function

A bientôt
 

MJ13

XLDnaute Barbatruc
Re : Fenêtre PopUp qui ne se ferme pas

Re

Merci Cathodique .

Marc L: il y a beaucoup de codes qu'on pourrait croire qu'ils fonctionnent, mais, suivant l'environnement et la version d"Excel, cela ne fonctionne pas.
 

Marc L

XLDnaute Occasionnel

laetitia90

XLDnaute Barbatruc
Re : Fenêtre PopUp qui ne se ferme pas

bonjour toutes & tous

par curiosite marchais chez moi il y a quelques semaines encore j'ai teste effectivement marche plus
surement depuis une mise a jour windows 10 ou excel 2007???

pas contente leti

j'ai teste les codes des amis(e) MJ13 & DoubleZero

leti de nouveau contente
 

cathodique

XLDnaute Barbatruc
Re : Fenêtre PopUp qui ne se ferme pas

Bonsoir,

Désolé, pour mon retard, une visite imprévue.

Le code de doublezero, fonctionne parfaitement. Merci beaucoup.

Comme confirmer par Marc_L, ça fonctionne sur 2 pc similaires au mien, je n'en doute pas. En effet, Il est fort possible que ça soit encore un problème avec une ou des mises à jour. Microsoft nous prend pour des moutons. Trop habitué, pas vraiment le courage et le temps pour me convertir à Linux.

Merci à vous c'est très gentil de votre part.

Bonne fin de soirée.
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…