Extraction Données à partir du Web : URL

Bonjour,

Suite au tuto du site pour extraire des données à partir d'un site web, on arrive à ce code :

    With Sheets("Web").QueryTables.Add(Connection:= _
        "URL;www.google.fr", Destination _
        :=Range("$A$1"))
        .Name = "fichefilm_gen_cfilm=204026"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = False
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingAll
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With

J'aimerais utiliser ce code mais à la place de mettre l'URL directement, je voudrais que ça aille rechercher dans une cellule.

Donc à la place de "URL;www.google.fr" par exemple : sheets("Films vus").range("R2").value

Le problème c'est que je ne connais pas la bonne syntaxe et que je n'arrive pas à aller chercher mes adresses internet.

Qqn pourrait m'aider svp ?

Merci d'avance.

bonjour,

Si :

SuiteDuString = sheets("Films vus").range("R2").value

la bonne syntaxe est un string qui commence toujours par :

"URL;www." & SuiteDuString

... où SuiteDuString est une variable qui contient sheets("Films vus").range("R2").value

A+

http://www.allocine.fr/film/fichefilm_gen_cfilm=133029.html

... 33029.html

" ... " n'est pas une bonne syntaxe :

Il faut un chemin complet ! les points de suspension n'en font pas partie...

A+

lol merci, sur mon fichier il n'y a pas les ..., c'est quand j'ai fait le copier coller ici qu'ils sont apparus. Quand je mets directement cet url dans le code, aucun problème, ça fonctionne. Par contre quand je tente d'aller lui faire retrouver en passant par la cellule ou j'ai mis l'URL, là il me dit qu'il y a un problème de syntaxe, dans le code lui même.

 With Sheets("Web").QueryTables.Add(Connection:= _
        "URL;sheets("Films vus").range("R2").value", Destination _
        :=Range("$A$1"))
...
  

La bonne syntaxe :

Sub test()
Dim SuiteDuString$
SuiteDuString = Sheets("Films vus").Range("R2").Value
    With Sheets("Web").QueryTables.Add(Connection:= _
        "URL;" & SuiteDuString, Destination:=Range("$A$1"))
'la suite sans changement...

A+

Merci beaucoup ! Ca marche impec !