J'ai un petit code en VBS qui effectue une requête sur un site web, et qui l'affiche dans une feuille excel.
Ca fonctionne jusqu'au moment où j'aimerai que l'utilisateur saisisse un bout de l'adresse dans une cellule, je récupère ce qu'a tapé l'utilisateur, le met dans une variable, mais ensuite je n'arrive pas à intégrer le contenu de la variable à l'URL, j'obtiens une erreur de compilation: Attendu : séparateur de liste ou )
Sub requete()
Dim adresse As String
adresse = Cells(2, 6).Value
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://exemple.com/"adresse, Destination:=Range("$A$1")) ' Il faudrait ajouter le contenu de la variable adresse à la fin de l'url exemple.com
.Name = "check"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub
Si quelqu'un a quelques pistes à me fournir, merci!

Merci beaucoup
;o)