bonjour forum
j'essaie en vain d'importer un fichier html dans mon fichier excel.
le fichier html est généré par un soft.
j'ai écrit un bout de code avec ce que j'ai trouvé sur la toile mais je bloque.
le voici :
Sub Macro1()
'
' Macro1 Macro
Dim NomFichierhtml As String
Dim chemin As String
Reponse = MsgBox("Mise à jour ?", vbQuestion + vbOKCancel, "Import html")
If Reponse = vbOK Then
ChDir ("C:\Users\moi\test\test rapatriement html")
Filtre = "Check(*.html), *.html"
NomFichierhtml = Application.GetOpenFilename(Filtre)
chemin = NomFichierhtml
Application.ScreenUpdating = False
Sheets("Temp").Activate
With ActiveSheet.QueryTables.Add(Connection:="html;& chemin", Destination:=Range("$A$1"))
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=True
.SaveData = True
End With
End If
End Sub
cela se bloque avec l'objet activesheet.
merci par avance à tous pour vos éclaircissement
kiki
j'essaie en vain d'importer un fichier html dans mon fichier excel.
le fichier html est généré par un soft.
j'ai écrit un bout de code avec ce que j'ai trouvé sur la toile mais je bloque.
le voici :
Sub Macro1()
'
' Macro1 Macro
Dim NomFichierhtml As String
Dim chemin As String
Reponse = MsgBox("Mise à jour ?", vbQuestion + vbOKCancel, "Import html")
If Reponse = vbOK Then
ChDir ("C:\Users\moi\test\test rapatriement html")
Filtre = "Check(*.html), *.html"
NomFichierhtml = Application.GetOpenFilename(Filtre)
chemin = NomFichierhtml
Application.ScreenUpdating = False
Sheets("Temp").Activate
With ActiveSheet.QueryTables.Add(Connection:="html;& chemin", Destination:=Range("$A$1"))
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=True
.SaveData = True
End With
End If
End Sub
cela se bloque avec l'objet activesheet.
merci par avance à tous pour vos éclaircissement
kiki