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
comment savoir qu'une page internet qu'on vien d'appeler avec la commande shellexecute est totalement affichée

3 réponses

PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 49
7 févr. 2009 à 18:32
bonjour à toi aussi,
tu ne peux pas juste avec shellexecute
0
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
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
0
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
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.
0