Ouverture msgbox en premier plan
Bonjour,
J'ai une macro qui ouvre un msg pop up dès qu'on ouvre un fichier excel. Mon problème est simple, ce msg pop up apparaît selon le cas, sur la feuille excel, ce que je veux, ou dans un autre cas clignote dans la barre des tâches.
Comment faire pourque ce message apparaisse totu le temps au 1er paln de la feuille excel ?
D'avance merci
bonjour,
essai de rajouter un "sheets("feuille").activate"
avant la MSGBOX
ca permet d'activer la feuille d'où s'ouvre la msgbox et de l'activer.
cordialement
petidani
J'ai rajouté la fonction comme cidessous mais le message apparaît toujours en barre des tâches. pour info Internet est déjà ouvert sur mon poste de travil
Private Sub Workbook_Open()
Sheets("Fiche").Activate
Call msgbox_popup("La dernière version de la fiche AFR est disponible sur Intranet uniquement", 1)
End Sub
Private Sub msgbox_popup(txt, durée)
txt = WorksheetFunction.Substitute(txt, Chr(13), "<BR>")
txt = WorksheetFunction.Substitute(txt, Chr(10), "<BR>")
txt = "<FONT SIZE=3 style='font-family:Verdana' color='blue'><CENTER>" & txt & "</CENTER></FONT>"
Set ie = CreateObject("internetexplorer.application")
ie.Navigate ("about:blank")
ie.Width = 700
ie.Height = 100
ie.Top = 150
ie.Left = 150
ie.document.write txt
ie.document.Title = "Avertissement"
ie.addressbar = False
ie.MenuBar = False
ie.StatusBar = False
ie.Toolbar = False
ie.Visible = True
Application.Wait Now + 15 / 150000
ie.Quit
End Sub
Bonjour,
j'ai testé ton code et perso je reste en permanence sur la feuille excel.
as tu plus d'info sur le déclenchement de la msgbox.
PS: fais attention sur ton 2ème code, tu devrais rajouter "on error resume next" et "resume" avant et apres "IE.QUIT"
car si quelqu'un quite le popup avant la fin de ta macro il y a un bug.
cordialement
petidani
Ca marche aussi chez un de mes collègues, j'y comprends rien. En effet tu as raison, j'ai n problème / code Quit
tu écris comme cela le code
on error resume next
IE.QUIT
resume
?
Bonjour Rsala
oui c'est bien comme ça.
tu pouvais même mettre "On error..." au début de ta macro.
Mais attention cela fait continuer la macro même si une erreur survient, à utiliser avec prudence pour ne pas se retrouver enfermer dans une boucle.
cordialement
petidani