Extraction VBA de données depuis pages HTML

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Extraction VBA de données depuis pages HTML

nicofromlyon

Bonjour à tous,

Je vous explique ma problématique en VBA sous EXCEL :

J'ai un répertoire C:\CLIENTS qui contient des sous répertoires du type 1, 2, 9, 32, ,...60000.

Les sous-répertoires portent comme nom un numéro et tous les numéros ne se suivent pas, il y en a qui manquent. Cela part de 1 et cela va jusqu'à 60000.

Donc :

C:\CLIENTS\1
C:\CLIENTS\2
C:\CLIENTS\9
...
C:\CLIENTS\60000

A l'intérieur de ces sous-dossiers, j'ai une voire plusieurs pages HTML qui portent des noms différents à chaque fois, comme par exemple ALBERT DUPONT.html, MAURICE RAVEL.html etc.

Aucune logique dans les noms, c'est aléatoire :

C:\CLIENTS\3\ALBERT DUPONT.html
C:\CLIENTS\29\MAURICE RAVEL.html
...

A l'intérieur de ces pages HTML, il y a du code et notamment des lignes affichant un NOM et PRÉNOM, une société, une adresse, un code postal, une ville, un tel, un fax , un email et une adresse de site web.

Je souhaite créer une macro VBA capable de parcourir chacun des sous-répertoires du dossier parent C:\CLIENTS, et d'extraire dans chaque page HTML les informations qui m'intéressent et qui sont encadrées chaque fois par les mêmes balises, pour me les mettre dans un fichier Excel dans les bonnes colonnes NOM, PRÉNOM, SOCIETE, ADRESSE, CP, VILLE, TEL, FAX, EMAIL, WEB.

Les informations qui m'intéressent sont incluses entre <h1> et </a></dd>.

Je pense que c'est possible, j'ai commencé mais c'est une usine a gaz, la macro est très lente, ça plante souvent et j'ai des infos qui sautent. Bref, c'est la galère. :pfff:

Une idée car je suis dessus depuis une semaine ?

Merci à vous tous.

Publicité

Marc L

Bonjour,

conformément aux règles de ce forum, sans voir de code (entre balises) ni un exemple de fichier HTML,

je peux juste affirmer que le VBA dispose pourtant des fonctions nécessaires pour manipuler des chaines de caractères
comme par exemple Split, tout est dans l'aide VBA intégrée !

Sans compter les dll HTML de Windows, consulter le site MSDN ou les tutoriels présents sur le net …

_______________________________________________________________________________________________
Tous unis, tous Charlie

nicofromlyon

Voici les lignes qui m'intéressent dans les pages HTML des sous-dossiers :

Code :

<h1>SMITH NATHALIE</h1>
<dl>
<dt>Qualité</dt><dd>Accountant</dd>
<dt>Adress</dt><dd>
67 RUE DE FERRIS <br/>
75002 PARIS </dd>
<dt>Téléphone</dt><dd>01 22 33 44 55</dd> <dt>Fax</dt><dd>01 99 88 77 66</dd> <dt>Email</dt><dd><a href="mailto:cabinet.xxxx@wanadoo.fr">cabinet.xxxx@wanadoo.fr</a></dd> <!--
-->
</dl>

nicofromlyon

Et voici une ébauche non fonctionnelle de ma macro VBA, qui résulte de nombreux tests car je ne suis pas un pro en la matière :

Code :

' Définition des classeurs
Dim CLASSEURORIGINE As Workbook
'Dim CLASSEURDESTINATION As Workbook
'Définition des chemins
Dim CHEMINPARENT As String
Dim CHEMINCOMPLET As String
Dim CHEMINFICHIER As String
Dim FEUILLEORIGINE As String
Dim nomfichier As String
Dim index As Integer
Dim DataNom As String
Dim DataNomTotal As String
Dim endtextNom As Integer
Dim debtextNom As Integer
Dim largeurNom As String
Rem Dim oDataObject As DataObject
CHEMINPARENT = "C:\Users\nicolas\Desktop\TEST10\"
Dim Dossier As Object, Fichier As Object
Dim I As Long
For I = 1 To 60000
CHEMINCOMPLET = CHEMINPARENT & I
If Dir(CHEMINCOMPLET, vbDirectory) = "" Then
Else
Set Dossier = CreateObject("Scripting.FileSystemObject" ).GetFolder(CHEMINCOMPLET)
For Each Fichier In Dossier.Files
nomfichier = Fichier.Name
CHEMINFICHIER = CHEMINCOMPLET & "\" & nomfichier
FEUILLEORIGINE = Left(Fichier.Name, InStr(Fichier.Name, "." ) - 1)
Rem CLASSEURORIGINE = Workbooks.Open(Filename:=CHEMINFICHIER)
Set CLASSEURORIGINE = Workbooks.Open(Filename:=CHEMINFICHIER)
index = FreeFile
Open CHEMINFICHIER For Input As #index
'lecture du fichier ligne par ligne
Do While Not EOF(index)
Input #index, DataNom 'Récupère la ligne
DataNomTotal = DataNomTotal & DataNom
Loop
MsgBox DataNomTotal
endtextNom = InStr(DataNom, "<h1>" )
MsgBox endtextNom
debtextNom = InStr(1, DataNom, "</a></dd>" )
MsgBox debtextNom
If endtextNom <> 0 Then 'on regarde si le tag de fin est présent dans la ligne
debtextNom = InStr(1, DataNomTotal, tagdebNom)
largeurNom = numfichier 'la fonction LEN() ne marchant que pour des variables de type string ou object, on copie numfichier (integer) dans largeur (string)
largeurNom = Len(largeurNom)
'Ajout du nom du membre dans la colonne B.
'Cells(numfichier, 2) = Mid(Data, debtext + 11 + largeur, endtext - (debtext + 11 + largeur))
MsgBox DataNom
Cells(I, 1) = Mid(DataNom, debtextNom + 4, endtextNom)
End If
Close #index 'fermeture du fichier
Next
End If
Next
End Sub

Marc L

Démonstration de la fonction Split !

Le plus formateur, en dehors de consulter l'aide VBA intégrée (bien plus efficace que de se perdre sur le net !),
est de suivre le code en mode pas à pas via la touche F8 tout en contrôlant le contenu de la fenêtre Variable locales …

Code à tester dans un nouveau classeur, le résultat de l'extraction est affiché dans la première feuille,
la variable texte T représentant les données d'un fichier, la variable tableau BL les balises à extraire :

Code :

Sub DemoSplitBalises()
Dim MQ$(), SP$()
T$ = "[Véhicule]Voiture[Marque]Alfa Romeo[/Marque][Couleur]Rouge[/Couleur]"
T = T & "[Modèle]Giuletta[/Modèle][Année]2012[/Année][/Véhicule]"
T = T & "[Véhicule]Voiture[Marque]BMW[/Marque][Couleur]Silver[/Couleur]"
T = T & "[Modèle]120D[/Modèle][Année]2013[/Année][/Véhicule]"
T = T & "[Véhicule]Voiture[Marque]Citroën[/Marque][Couleur]Marron[/Couleur]"
T = T & "[Modèle]DS4[/Modèle][Année]2014[/Année][/Véhicule]"
T = T & "[Véhicule]Voiture[Marque]Dacia[/Marque][Couleur]Verte[/Couleur]"
T = T & "[Modèle]Logan[/Modèle][Année]2009[/Année][/Véhicule]"
BL = [{"Marque","Modèle","Couleur"}]
SP = Split(T, "[" & BL(1) & "]" )
ReDim VA$(1 To UBound(SP), 1 To UBound(BL))
For R& = 1 To UBound(SP)
MQ = Split(SP(R), "[/" & BL(1) & "]" )
VA(R, 1) = MQ(0)
For C& = 2 To UBound(BL)
VA(R, C) = Split(Split(MQ(1), "[" & BL(C) & "]" )(1), "[/" )(0)
Next
Next
With Feuil1
.Cells(3).Resize(, UBound(BL)).Value = BL
.Cells(2, 3).Resize(UBound(VA), UBound(VA, 2)).Value = VA
End With
End Sub

L'extraction inversant la couleur et le modèle …

Dans le cas de l'ajout d'une nouvelle balise à extraire, la ligne de code n°13 doit être modifiée
mais le reste du code ne change pas évitant ainsi une production gazière !

___________________________________________________________________________
Tous unis, tous Charlie

nicofromlyon

Merci !

Et comment tu adapterais cela pour mon cas précis ?

C'est surtout la partie ouverture HTML et recherche qui m'intéresse dans un premier temps...

Marc L

Justement comme ce n'est pas précis …

Étudier ma démonstration en usant du mode pas à pas, cela aide à comprendre !

Sinon voir du côté des fonctions VBA manipulant du texte comme par exemple InStr, Mid, etc … L'aide étant bien documentée !

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Extraction VBA de données depuis pages HTML

Sujets relatifs
Signature en html	Ignorer espaces dans une recherche VBA
VBA : apprentissage	Récupération de données passées via Javascript
Envoi données vers base mysql	Faire rapparaitre un onglet caché dans les fichiers d'un dossier (VBA)
Equivalent RechercheV en VBA	Probelme d'affichage html sur internet explorer
Manipuler l'explorateur windows par macro VBA	[HTML/CSS] Créer un forums à l’interrieur de mon site
Plus de sujets relatifs à : Extraction VBA de données depuis pages HTML

Page générée en 0.061 secondes