Indics et index dans VBA

bonjour à tous et à toutes

j'ai élaboré avec d'autres une petite application sur pages blanches de recherche de numéros couplés avec une feuille excel.

Il semblerait que le site est changé de code html et je n'arrive pas à m'y retrouver

les index serait : nom 1, prénom 2, adresse 3, localité 5, département ou région 6, recherche de proximité 4, trouver 7.

sur la pagehttp://www.pagesjaunes.fr/pagesblanches je voudrais aller sur recherche détaillée mais je n'arrive pas à rentrer la bonne adresse dans le vba; suis je clair ?

Pour résumer j'ai besoin de faire des recherches multicritères...

Voici un ancien post qui pourrait aider Ici

merci de prendre de votre temps

c'est si compliqué ?

je pensais qu'il y avait des experts sur ce site

Me serais je trompé ?

Salut le forum

Pour passer en recherche avancé, voila un exemple du code.

Sub PagesJaunes()
  Dim IE As InternetExplorer
  Dim PageHtml As HTMLDocument
  Dim HLink As HTMLAnchorElement

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.navigate "http://www.pagesjaunes.fr/pagesblanches"

  Do Until IE.readyState = READYSTATE_COMPLETE
    DoEvents
  Loop

Set PageHtml = IE.document
Set HLink = PageHtml.getElementById("linkSearch")
  HLink.Click

  Do Until IE.readyState = READYSTATE_COMPLETE
    DoEvents
  Loop

Set HLink = Nothing
Set PageHtml = Nothing
IE.Quit
Set IE = Nothing

End Sub

Mytå

bonjour, pourriez vous m'aider à insérer le code dans le programme svp ?

Comment changer les indics ?

merci de votre aide