Dans page WEB, comment se positionner sur un Cadre ?

[malabarbe]

Bonjour à tous,

La Macro ci-dessous récupère une page WEB, cela fonctionne
ce qui ne va pas c’est que je voudrais directement pointer sur
le troisième Cadre de la page, mais la, ERREURS !
Toutes les lignes source misent en commentaires ne tournent pas

Private Sub CommandButton5_Click()
'3  Test de positionnement dans un cadre
    Dim objBK As Workbook
    Dim objQT As QueryTable
    Dim strDecimal As String
    Dim strThousand As String
    Dim boolUseSystem As Boolean
'Dim popo As QueryTable
    
 
   'Création de la requète pour récupérer les données.
    With Worksheets(1)
        Set objQT = .QueryTables.Add( _
        Connection:="URL;c:\test-liens.htm", Destination:=.Range("A1"))
    End With
 
   'Propriétés de la requète.
    With WobjQT  'orkbook.popo.Worksheets(1)  'objQT
       'Pour ne pas reconnaitre les formats Date.
       '.WebDisableDateRecognition = True
       
       'Empèche le raffraichissement automatique lors de l'ouverture du classeur.
       '.RefreshOnFileOpen = False
       
       'Ignore le format de la page.
       '.WebFormatting = xlWebFormattingNone
       
       'Attends la fin de la requète avant de poursuivre la procédure.
       '.BackgroundQuery = True
       
       'Définit une table particulière dans la page.
       '.WebSelectionType = xlSpecifiedTables
       '.WebTables = "3"
       
       'Sauvegarde la requète dans le classeur.
       '.SaveData = True
       
       'Ajuste la largeur de la colonne à la taille des données.
       '.AdjustColumnWidth = True
    End With
 
    With Application
       'stocke les paramètres du format nombre.
        strDecimal = .DecimalSeparator
        strThousand = .ThousandsSeparator
        boolUseSystem = .UseSystemSeparators
 
       'Modifie temporairement les paramètres du format nombre.
        .DecimalSeparator = "."
        .ThousandsSeparator = ","
        .UseSystemSeparators = True
 
        On Error Resume Next
 
       'Execute la requète et attend la fin du calcul.
        objQT.Refresh BackgroundQuery:=False
 
       'Réinitialise le format nombre.
        .DecimalSeparator = strDecimal
        .ThousandsSeparator = strThousand
        .UseSystemSeparators = boolUserSystem
    End With
    
   'Supprime l'ancien fichier de destination
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    objFSO.DeleteFile ("C:\test-liens.htm")
End Sub

Ce sont des bouts de codes récupérés a droite et a gauche
Mais j’ai du oublier (des déclarations ?)

A vous lire

 

[malabarbe]

Re : Dans page WEB, comment se positionner sur un Cadre ?

Tout le monde est déjà en vacances ?

 

[malabarbe]

Re : Dans page WEB, comment se positionner sur un Cadre ?

.
.
.
. Personne ?
.
.
.