Msgbox au premier Plan

[Squoltahthx94]

Bonjour,

J'ai conçu le code suivant pour un bouton :

Dim a
a = Shell("C:\Program Files\Internet Explorer\iexplore.exe www.exemple.fr/", vbNormalFocus)

MsgBox "Login : abc " & vbCrLf & "Password : password" & vbCrLf & "Merci de les rentrer dans les cases prévues à cette effet!!" & vbCrLf & "Bonne Continuation", vbOKOnly + vbCritical, "Attention"

Mais ma msgbox reste derrière la fenêtre IE et je souhaiterai quelle s'affiche devant vu les renseignements qui sont dessus. J'ai cru comprendre qu'avec l'instruction shell ce la posait un problème mais je ne réussi pas à la mettre devant.....Quelqu'un aurait une idée😕😕

 

[JCGL]

Re : Msgbox au premier Plan

Bonjour à tous,

As-tu songé à inverser les lignes de codes ?

A + à tous

 

[Squoltahthx94]

Re : Msgbox au premier Plan

Bonjour JCGL,

Oui déjà essayé mais si la personne n'a pris le temps de lire elle n'a plus rien pour avoir les mots de passe🙄

 

[JCGL]

Re : Msgbox au premier Plan

Bonjour à tous,

Si elle n'a pas pris le temps de lire les consignes, elle peux faire Alt - Tabulation pour changer l'application à l'écran.

A + à tous

 

[JCGL]

Re : Msgbox au premier Plan

Bonjour à tous,

As-tu essayé avec vbMinimizedNoFocus ou vbNormalNoFocus ?

A + à tous

 

[Efgé]

Re : Msgbox au premier Plan

Bonjour Squoltahthx94, Bonjour JC 🙂,
On peux essayer avec "VbMsgBoxSetForegroun" .... (en provenance directe de l'atelier des MsgBox 😎 😀)
A tester...
Cordialement

 

[JCGL]

Re : Msgbox au premier Plan

Bonjour à tous,
Salut Fred 🙂,

Je pense que le Shell prendra le dessus sur VbMsgBoxSetForeground ou 65536 qui désigne la fenêtre de la boîte de dialogue comme fenêtre de premier plan.

A++
A + à tous

 

[Squoltahthx94]

Re : Msgbox au premier Plan

Oui tout a fait mais bon je vous remercie de vos efforts, j'ai inversé les lignes et le résultat est probant il faudrais juste que je temporise l'apparition de IE qq à une idée ?????

 

[Si...]

Re : Msgbox au premier Plan

salut

et ainSi...(dans un Module standard) ?

Sub msg()
  MsgBox "Login : abc " & vbCrLf & "Password : password" & vbCrLf & "Merci de les rentrer dans les cases prévues à cette effet!!" & vbCrLf & "Bonne Continuation", vbOKOnly + vbCritical, "Attention"
  Application.OnTime Now + TimeValue("00:00:01"), "IE"
End Sub

Sub IE()
  Dim a
  a = Shell("C:\Program Files\Internet Explorer\iexplore.exe www.exemple.fr/", vbNormalFocus)
End Sub

 

[Staple1600]

Re : Msgbox au premier Plan

Bonjour à tous

On peut aussi utiliser une MsgBox étrangère à VBA 😉

Sub a()
CreateObject("Wscript.shell").Popup "Login : abc " & vbCrLf & "Password : password" & vbCrLf & "Merci de les rentrer dans les cases prévues à cette effet!!" & vbCrLf & "Bonne Continuation", 4, "Attention"
End Sub

Ici la MsgBox s'affichera durant 4 secondes.

PS: Je te laisse tester avec le reste de ton code (ouverture de IE)

 

[Squoltahthx94]

Re : Msgbox au premier Plan

Merci 0 vous tous je vais essayer les 2 dernieres solutions

 

[Squoltahthx94]

Re : Msgbox au premier Plan

au fait merci tout fonctionne a merveille