recuperer le contenu d'une page web sur excel

[naouah]

j'ai une serie de 150 lignes des url
je voudrais creer une macro pour :

- ouvrir le lien url ( 150 cellules = 150 url de A1:A150)
- copier /coller valeur ( unquement txt)
- de maniere que chaque url correspond a une feuille excel

j'ai essaye d'enregistere des macro, mais sans resultat


merci d'vacnce de votre aide,

[Temjeh]

Bonsoir

Tu dois regarder du coté de données ...données externes ...nouvelle requête sur le web

A+

Temjeh

[naouah]

Merci pour votre message

j'ai avancé un peu, mais je rester bloquer a ce niveau

je n'arrive pas a automatisé dans deux stade:

ActiveCell.FormulaR1C1 = "http://www.google.fr/search hl=fr&q=europe&meta="

pour relancer chaque url url1 = A1 & url2 = A2 ...

et le deuxiemme, presque le même que 1er, c'est de definir des varaibles pour boucler les url ( dans mon code, je fait copie ce qui est dans cellule

merci d'avance

[naouah]

je ne trouve de moyen pour declarer les url comme des variable

[MichelXld]

bonjour Naouah, bonjour cher Temjeh


Tu peux tester cette adaptation

Dim i As Integer
Dim Chaine As String
For i = 1 To 5
    ActiveWorkbook.Worksheets.Add
    
    Chaine = "URL;" & Worksheets("URL").Cells(i, 1).Value
    
    With ActiveSheet.QueryTables.Add(Connection:= _
            Chaine, Destination:=ActiveSheet.Range("A1"))
        .Name = "Test" & i
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "5,6,7"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
Next i

Bonne soirée
MichelXld

[naouah]

un trés grand merci
ça m'a aider votre code.

merci encore une fois

et bonne vacance