Ouvrir plusieurs fichiers en 1

Sub ExtraireDonneesTableaux_Htm()
'
'activez la référence Microsoft HTML Objects Library
'activez la référence Microsoft Internet Controls
'
Dim Fichier As String, Chemin As String
Dim IE As InternetExplorer
Dim maPageHtml As HTMLDocument
Dim Htable As IHTMLElementCollection
Dim maTable As IHTMLTable
Dim j As Integer, i As Integer
Dim x As Long
 
'Définit le repertoire et le type de fichier à rechercher
Chemin = "C:\Documents and Settings\mimi\dossier\general\excel\dossier"
Fichier = Dir(Chemin & "\*.htm")
 
'boucle sur les fichiers du répertoire
Do While Fichier <> ""
 
    'Creation instance InternetExplorer
    Set IE = CreateObject("InternetExplorer.Application")
    ' IE reste masqué pendans l'opération
    IE.Visible = False
 
    'ouverture des fichier .htm
    IE.navigate Chemin & "\" & Fichier
        Do Until IE.readyState = READYSTATE_COMPLETE
            DoEvents
        Loop 'attend la fin du chargement avant de poursuivre
 
    Set maPageHtml = IE.document
    'objet type table
    Set Htable = maPageHtml.getElementsByTagName("table")
    'spécifie le premier tableau dans la page htm
    Set maTable = Htable(0)
 
    'boucle sur les lignes du tableau contenant des données
    '
    'à adapter en fonction de la structure des tableaux
    '
    For i = 4 To maTable.Rows.Length - 5
    x = x + 1
 
    'boucle sur les cellules dans chaque ligne
        For j = 1 To maTable.Rows(i - 1).Cells.Length
            Cells(x, j) = maTable.Rows(i - 1).Cells(j - 1).innerText
        Next j
    Next i
 
    'Fermeture Internet Explorer
    IE.Quit
    Set IE = Nothing
 
    Fichier = Dir
Loop
MsgBox "Opération terminée."
End Sub

'activez la référence Microsoft HTML Objects Library
'activez la référence Microsoft Internet Controls