Discussion :

[Marie69]

Coucou me revoila, apres mon probleme HTML, je viens ici ^^

Donc voila je pose un peu le sujet, j'ai plusieurs fichiers HTML que j'ouvre avec Excel et apres avec une procédure que j'ai crée jai ce qu'il me faut. bref ce n'est pas mon probleme, c'était pour situer le sujet !

Donc voila, dans ma Macro j'ouvre tous mes fichier HTML sur plusieurs classeurs, j'ai cherché un peu partout de créer qu'un seul classeur et ouvrir ces fichiers HTML dans plusieurs feuilles, mais en vain....

Donc voila a quoi ressemble mon code (ouverture sur plusiers classeurs)
Note : mes fichiers HTML se nomment Fichier1.htm, Fichier2.htm etc.. il y en a 100

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub MacroOpen()
    Dim i As Integer
 
    For i = 1 To 100
 
    ChDir "C:\Mes fichiers\"
    Workbooks.Open Filename:="C:\Mes fichiers\Fichier" & i & ".htm"
 
    'Appelle de ma méthode  qui me permet de modifier mon fichier   
    Call MaMethode
 
    'Enregistrement en Xls
    ActiveWorkbook.SaveAs Filename:="C:\Mes fichiers\Fichier" & i & "1.xls" _
        , FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    Next
 
End Sub

Donc voila ca me donne plusieurs fichier xls, moi je voudrais qu'un fichier xls avec plusieurs feuilles !
En gros, je veux ouvrir mes fichiers HTML dans un meme classeur (via des feuilles)

je vous remercie d'avance

Marie.

[Jean-Philippe André]

bonjour,
le code fais ce que tu lui demandes : ici, il ouvre des workbooks, et non pas des worksheets à ajouter dans 1 seul fichier. Regarde si tu peux modifier ce paramètre pour bien ouvrir ce que tu veux dans des feuilles.

[Marie69]

Worksheets me génère une erreur comme s'il connaissait pas

[SilkyRoad]

bonjour


Il est possible de lire directement le contenu de plusieurs pages html et d'importer le contenu dans des feuilles Excel:
Cet exemple transfère le 1er tableau d'une page Web vers une feuille Excel.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub Importer_tableauPageWeb()
    'Nécessite d'activer la reference les références
        'Microsoft HTML Objects Library
        'et
        'Microsoft Internet Controls
    Dim IE As InternetExplorer
    Dim maPageHtml As HTMLDocument
    Dim Htable As IHTMLElementCollection
    Dim maTable As IHTMLTable
    Dim j As Integer, i As Integer
 
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
 
    IE.navigate "C:\Documents and Settings\michel\dossier\maPage.htm"
    Do Until IE.readyState = READYSTATE_COMPLETE
        DoEvents
    Loop
 
    Set maPageHtml = IE.document
    'objet type table
    Set Htable = maPageHtml.getElementsByTagName("table")
    'premier tableau dans la page Web
    Set maTable = Htable(0)
 
    'boucle sur toutes les lignes du tableau
    For i = 1 To maTable.Rows.Length
        'boucle sur les cellules dans chaque ligne
        For j = 1 To maTable.Rows(i - 1).Cells.Length
            Cells(i, j) = maTable.Rows(i - 1).Cells(j - 1).innerText
        Next j
    Next i
End Sub

Pour boucler sur toutes les tables:

Code :

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

1
2
3
4
5
6
Dim Htable As IHTMLElementCollection
Dim maTable As IHTMLTable
 
For x = 0 To Htable.Length - 1
  Set maTable = Htable(x)
    For i = 0 To maTable.Rows.Length - 1

bonne soirée
michel