macro pour copie page web presque parfaite

[zestedorange]

Salut à tous,

J'essaie de résoudre un petit problème concernant une macro (trouvée sur le net et adaptée)

Je ne vais vous montrer que la partie qui me chagrine.
La macro est censée rapatrier, sur la feuille nommée "temp", la page web du lien contenu dans la cellule active.

Ca marche, mais il me manque une info : l'adresse e-mail.

Or quand on va soi-même sur la page web en question, qu'on fait un Ctrl A / Ctrl C et qu'on colle ensuite dans la feuille excel, l'adresse mail est bien présente !

Dès lors, que dois-je modifier dans mon code?

Public Sub rapatrier_page_web()

    Dim sht As Worksheet             ' la feuille de rapatriement
    Dim url As String                 ' l'adresse url
  
    
    url = Selection

    Set sht = Sheets("temp")

' la manip suivante efface toutes les données présentes sur la
' feuille temp

    sht.Cells.Clear

         ' la procédure de rapatriement proprement dite
         With sht.QueryTables.Add("URL;" & url & "", sht.Range("A1"))
                'sht.range("A1") = cellule cible où doit être rapatrié le contenu web

                .RefreshStyle = Excel.XlCellInsertionMode.xlInsertDeleteCells
                .SaveData = True
                .Refresh BackgroundQuery:=False
            End With

sht.Cells.MergeCells = False         'supprime toutes les celules
'fusionnées dans la feuille

End Sub

Et voici deux-trois url testées :
Lien supprimé
Lien supprimé
troisième


En fichier joint un petit excel avec la macro incriminée.

Est-ce que quelqu'un ici se sent l'âme à aider un novice curieux?

Par avance un tout grand merci !

 

[zestedorange]

Re : macro pour copie page web presque parfaite

Hello,

Personne n'aurait une petite piste pour moi?

Merci d'avance !