Page internet totalement affichée?
cs_marco62118
Messages postés
176
Date d'inscription
mercredi 7 avril 2004
Statut
Membre
Dernière intervention
1 avril 2013
-
7 févr. 2009 à 18:24
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 7 févr. 2009 à 20:15
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 7 févr. 2009 à 20:15
3 réponses
PCPT
Messages postés
13278
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
48
7 févr. 2009 à 18:32
7 févr. 2009 à 18:32
bonjour à toi aussi,
tu ne peux pas juste avec shellexecute
tu ne peux pas juste avec shellexecute
cs_marco62118
Messages postés
176
Date d'inscription
mercredi 7 avril 2004
Statut
Membre
Dernière intervention
1 avril 2013
1
7 févr. 2009 à 19:23
7 févr. 2009 à 19:23
voici mon code:
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Private Sub OuvreUrl(ByVal sFile As String, Optional ByVal sParameters As String = vbNullString)
ShellExecute 0&, "open", sFile, sParameters, vbNullString, 1&
End Sub
Public Sub AfficheUrl(Mot As String)
OuvreUrl ("http://www.mediadico.com/dictionnaire/definition/" & Mot & "/1")
'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://www.cnrtl.fr/lexicographie/" & Mot
OuvreUrl "http://dictionnaire.tv5.org/dictionnaires.asp?Action=1&mot=" & Mot & "&che=1"
OuvreUrl "http://fr.wiktionary.org/wiki/" & LCase(Mot)
End Sub
mon problème est que si je n'ai pas de page internet explorer d'ouverte lorsque le prog est lancé les pages s'écrase les unes les autres et il ne me reste que la dernière page. si IE est lancé là pas de pb les pages s'affichent dans différents onglets. c'est pour celà que je voulais vérifier que la première page était affichée avant de lancer la suite. Vous pouvez remarquer que j'ai mis une pose (ici en commentaire car pas déclaré dans le bout d'essai) entre les deux premières pages pour résoudre mon pb , mais je ne trouve pas ça très catholique ou ortodoxe
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Private Sub OuvreUrl(ByVal sFile As String, Optional ByVal sParameters As String = vbNullString)
ShellExecute 0&, "open", sFile, sParameters, vbNullString, 1&
End Sub
Public Sub AfficheUrl(Mot As String)
OuvreUrl ("http://www.mediadico.com/dictionnaire/definition/" & Mot & "/1")
'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://www.cnrtl.fr/lexicographie/" & Mot
OuvreUrl "http://dictionnaire.tv5.org/dictionnaires.asp?Action=1&mot=" & Mot & "&che=1"
OuvreUrl "http://fr.wiktionary.org/wiki/" & LCase(Mot)
End Sub
mon problème est que si je n'ai pas de page internet explorer d'ouverte lorsque le prog est lancé les pages s'écrase les unes les autres et il ne me reste que la dernière page. si IE est lancé là pas de pb les pages s'affichent dans différents onglets. c'est pour celà que je voulais vérifier que la première page était affichée avant de lancer la suite. Vous pouvez remarquer que j'ai mis une pose (ici en commentaire car pas déclaré dans le bout d'essai) entre les deux premières pages pour résoudre mon pb , mais je ne trouve pas ça très catholique ou ortodoxe
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
74
7 févr. 2009 à 20:15
7 févr. 2009 à 20:15
tu peux jouer avec un WebBrowser, ce serait le plus simple
pilotabble, tu pourras consulter le résultat, etc.
pilotabble, tu pourras consulter le résultat, etc.
