De VBA à Internet ExplorerRésolu

Question

En fait, j'aimerais savoir comment on fait pour utiliser les objets dans le Frame d'une page internet explorer

Voici mon code:

Private Sub LISTE_DblClick(Cancel As Integer)
If ACTIVER.Value = True Then
    Dim AllIE, IEnew, Database As Object
    Dim PageIE As Variant
    Dim i As Variant
    Call COMMANDE
    PageIE = 6000
    Set AllIE = CreateObject("Shell.Application")
    For i = 0 To AllIE.windows.Count - 1        If AllIE.windows(i).LocationURL "MONURL1" Or AllIE.windows(i).LocationURL "MONURL2" Then
            LIENS = AllIE.windows(i).LocationURL
            PageIE = i
            i = AllIE.windows.Count - 1
        End If
    Next i
    If PageIE = 6000 Then
        Set IEnew = CreateObject("InternetExplorer.Application")
        IEnew.Navigate "MONURL1"
        LIENS = "MONURL1"
        PageIE = AllIE.windows.Count - 1
    End If
    While AllIE.windows(PageIE).busy
       DoEvents
     Wend
    Set IE = AllIE.windows(PageIE)
    IE.Visible = True
    Dim vUrl, vTargetFram, vPosteData, vHeaders, vFlags As String
    vUrl = LIENS & "PATH DU SOUS LIENS"
    vTargetFrame = "main"
    Call IE.Navigate(vUrl, vFlags, vTargetFrame, vPostData, vHeaders)

----------------------------------------------

Comment je fais &#224; cet endroit pour dire que ma boite de texte dans le frame main = "Blah"
Je semble pourvoir faire r&#233;f&#233;rence aux objets de cette facon
IE.Document.frames.main.Document.all(i)
i = 0&#224; 9 pcq je sais qu'il y en a 10
Toutfois, d&#232;s que je veux faire une action, cela me cause des erreurs
Si je fais .focus ca me donne pas d'erreur.....mais r&#233;ellement ca fait rien
Si je dit .MaForm.MonTextBox.Value ou plein d'autres chose, ca me donne toujours

Erreur d'execution 438
Propri&#233;t&#233; ou m&#233;thode non g&#233;r&#233;e par cet objet
--------------------
Par contre je sais que si jamais je load le frame directement dans une page enti&#232;re, je suis capable de passer mes commandes

vUrl = "mon lien pour le frame"
    Call IE.navigate(vUrl)
    IE.Document.MaForm.MonTextBox.Value = "Abigael"
    IE.Document.MaForm.MonTextBox2.Value = "Blah"
    IE.Document.MaForm.MonBouton.disabled = False
    IE.Document.MaForm.MonBouton.Click

Quelqu'un a une id&#233;e.........c'est vraiment pas &#233;vident, j'aimerais mieux le loader dans le frame.......

AngeliusMefyrx · Accepted Answer

Merci

Finalement j'ai compris mon probl&#232;me....

Il fallait que je fasse, IE.Document.Frames.NOM.Frames.NOM.Document.NOMduform.Nomdelaboite.Value = "patente"

Bref une affaire de fou qui m'a pris plusieurs heures &#224; d&#233;couvrir......
Comme je savais pas qu'il y avait un frame dans un frame.......le nombre de temps que j'ai pris pour le trouver......c'est incroyable....mais je l'ai trouv&#233;!!!!

rvblog · Answer

Salut AngeliusMefyrx, jettes un oeil là si tu veux, elle écrit bien : http://www.vbfrance.com/infomsg/SELECTIONNER-DANS-LISTE-DEROULANTE-SUR-WEB-PARTIR-VB-0_697496.aspx à+ rvblogn^{Je veux ton bien... et je l'aurais}

De VBA à Internet Explorer

2 réponses

Discussions similaires