Suite à la discussion : shellexecute ne me prend pas le handle
bonjour je suis très intéressé par votre conversation
je ne comprends pas la réponsepourrais tu m'expliquer exactement ce qu'il faut ajouter pour (shellwindows et webbrowser) soit reconnuCitation:
Envoyé par iris15
par contre Microsoft VB me reconnait pas ces objets (shellwindows et webbrowser)
réponse par darkvader
Il faut une référence à Microsoft Internet Control.
Tu parlais dans ton 1er post de page IE, j'ai donc extrapolé en pensant que la déclaration était existante.
j'ouvre mes fenetres internet comme ceci
et j'ouvre 7 fenêtres que je voudrais récupérer leur handle ainsi
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 Public Sub OuvreUrl(ByVal sFile As String, Optional ByVal sParameters As String = vbNullString) ShellExecute 0&, "open", sFile, sParameters, vbNullString, 1& End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Public Sub AfficheUrl(Mot As String) OuvreUrl "http://dictionnaire.mediadico.com/traduction/dictionnaire.asp/definition/" & Mot & "/2007" Sleep (2000) OuvreUrl "http://francois.gannaz.free.fr/Littre/xmlittre.php?rand=&requete=" & Mot OuvreUrl "http://free.mediadico.com/dictionnaire.asp/definition/" & Mot & "/dictionnaire" OuvreUrl "http://atilf.atilf.fr/dendien/scripts/fast.exe?mot=" & Mot OuvreUrl "http://dictionnaire.sensagent.com/" & Mot & "/fr-fr/" OuvreUrl "http://dictionnaire.tv5.org/dictionnaires.asp?Action=1&mot=" & Mot & "&che=1" OuvreUrl "http://fr.wiktionary.org/wiki/" & LCase(Mot) End Sub
Partager