Discussion :

[MISTYK972]

Bonjour,
Après avoir scruté le web pendant 3 jours et essayé divers méthodes je n'ai quand mêmes pas réussi à récupérer un texte sur une page web en VBA .
Pourriez vous m'aider ?

La page en question est : https://www.dell.com/support/home/fr-fr?app=warranty
Le numéro de série sur lequel je fait une recherche est : H5M9KW2


Pour le moment j'arrive à entrer sur la page web et simulé un clic à l'aide du code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
  Dim IE As InternetExplorer
    Set IE = CreateObject("InternetExplorer.Application")
    Dim IEDoc As HTMLDocument
    Dim numserie As Object
 
 
    IE.Visible = True
    IE.navigate "https://www.dell.com/support/home/fr-fr?app=warranty"
    Call WaitIE(IE)
    Set IEDoc = IE.document
    Set numserie = IEDoc.getElementsByName("entry-main-input-home")
    numserie.Item.Value = Sheets(8).Cells(57, 3).Value
 
    'Traitement du bouton dans div
   Dim Generic As HTMLGenericElement
   Set Generic = IEDoc.all("btn-entry-select")
   Generic.Click

Après avoir cliqué ont arrive sur cette page : https://www.dell.com/support/home/fr...UT090/overview

J'essaye de récupérer la date d'expiration mais je ne trouve pas d'ID ou de nom me permettant de récupérer le innerTEXT que je souhaite.

Pourriez-vous m'aider ?