Bonjour à tous,

La macro ci-dessous me permet d'importer le contenu d'une page web dans une feuille excel.
Dans la feuil1 de mon classuer, il y a plusieurs liens hypertextes dans la colonne A.
Je désire :
- Pour chaque ligne de la colonne A, si la cellule contient un lien hypertexte, récupérer l'adresse de ce lien et d'extraire le contenu de la page web dans une nouvelle feuille à chaque fois.

Une petite idée ?
Merci !


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
Dim sht As Worksheet             ' la feuille de rapatriement
    Dim url As String                 ' l'adresse url
 
    url = "adresse choisie"
 
    Set sht = Sheets("sheet1")
 
    sht.Cells.Clear
 
         With sht.QueryTables.Add("URL;" & url & "", sht.Range("A1"))
 
                .RefreshStyle = Excel.XlCellInsertionMode.xlInsertDeleteCells
                .SaveData = True
                .Refresh BackgroundQuery:=False
            End With