Importation fichier HTM par rapport a une valeur d'une cellule

[davouille]

bonjour, je voudrais importer une fichier Htm dans excel cela fonctionne correctement, avec la macro ci dessous mais j'aimerais que le fichier importer ne soit pas la valeur rpva02.htm mais la valeur de cellule "A1" situé dans la feuille nommé "listing" par exemple. Pourriez vous m'aider, d'avance merci

Sub Macro4()
'
' Macro4 Macro
'

'
ActiveWorkbook.Worksheets.Add
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;file:///I:/EVEREST/rpva02.htm", Destination:=Range("$A$1"))
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With

ActiveSheet.Name = "Copy"
End Sub

 

[chris]

Re : Importation fichier HTM par rapport a une valeur d'une cellule

Bonjour

remplacer

With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;file:///I:/EVEREST/rpva02.htm", Destination:=Range("$A$1"))

Par

With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;file:///I:/EVEREST/"&Range("$A$1").value & ".htm", Destination:=Range("$A$1"))

si la cellulle A1 ne contient pas l'extension .htm
sinon

With ActiveSheet.QueryTables.Add(Connection:= _
         "URL;file:///I:/EVEREST/"&Range("$A$1").value , Destination:=Range("$A$1"))