Discussion :

[aegedus]

Bonjour à tous,


JE cherche à ouvrir un fichier HTML dans un des feuilles d'un classeur.
PAs question ici d'ouvrir un nouveau classeur .. à la rigueur ajouter une feuille pourquoi pas.

La seule fonction que j'ai trouvé est open pour l'objet workbooks. mais il ouvre un nouveau classeur.

MErci d'avance.
AG

[ouskel'n'or]

Tapes HTML en recherche sur ce forum, tu as une foultitude de réponses, peut-être trouveras-tu ton bonheur...
A défaut de pouvoir te répondre

[aegedus]

Tapes HTML en recherche sur ce forum, tu as une foultitude de réponses, peut-être trouveras-tu ton bonheur...

j'avais commencé par là, mais ça n'a rien donné. En effet, communément le besoin est de lancer une page html dans le navigateur par défaut, dans une autre application, voire de l'ouvrir en append et de lire ligne à ligne pour extraire des infos.

Dans mon cas, je veux ouvrir un tableau html dans une des feuilles de mon classeur .. et là, je sèche.

Si ça peut aider, le fichier HTML est en fait une feuille Excel enregistrée au format HTML. J'utilise l'HTML parce que cette feuille est ensuite passer à un programme perl qui manipule les données avant d'être ré-ouvert sous Excel pour afficher les résultats et y ajouter des graphiques de synthèse.

Ca fait déjà qq soirées que je passe à chercher sur le web comment faire cela ... mais pour l'instant j'ai fait choux blanc.

Je pensais à qqchose comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
'on charge le fichier resultat resultat.html
   ThisWorkbook.Sheets("Resultat").Activate
   'Workbooks.Open FilePath & "resultat.html"

Mais ça ouvre un nouveau Classeur. Et malheureusement la fonction Open n'existe pas pour l'objet WorkSheets.

Je fais plus ou moins qqchose de similaire avec un fichier TxT/CSV avec le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
fichier = Application.GetOpenFilename("Fichier CSV (*.csv),*.csv")
If TypeName(fichier) = "Boolean" Then Exit Sub
If fichier <> "" Then
  With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & fichier, Destination:=Range("D9"))
    .TextFileStartRow = 1
    .TextFileParseType = xlDelimited
    .TextFileSemicolonDelimiter = True
    .Refresh BackgroundQuery:=False
  End With
End If

Mais je n'ai pas réussi à le transposer pour un tableau HTML ni même dans une autre feuille que là ou j'ai ouvert le fichier CSV....


Pour ne pas se disperser, je cherche bien à ouvrir un tableau html dans une des feuilles de mon classeur.

Merci d'avance de votre aide.
AG

[DarkVader]

Tu y es presque ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
  With ActiveSheet.QueryTables.Add(Connection:="URL;" & url, Destination:="Range("D9"))
        '.../...
        '.WebTables = "1"
        '.WebFormatting = xlWebFormattingAll
        .Refresh BackgroundQuery:=False
  End With

en fournissant le nom du fichier à la place de l'url