XL 2016 Convertir fichier HTML en format CSV

[debenexcel]

Bonjour,

Je sollicite votre aide pour une macro Excel. J'ai plusieurs fichiers de données en format HTML que j'aimerais les convertir en format CSV sous Excel avec une macro.
La structure du fichier HTML est la suivante:
Les titres de colonnes commencent à partir de la ligne 19.
Après la table comporte 5 colonnes. Le contenu dans la 1ère colonne est affiché sur deux lignes, j'aimerais copier le texte de la 2e ligne (si existe) dans une nouvelle colonne. Dans certaines lignes de cette première colonne la même description comporte plusieurs codes et numéros. La description est affichée une seule fois, mais le code est le même pour chaque numéro. Pour ces cas, je souhaiterais que la macro dupliquera la description pour chacune des lignes.
Un exemple de ces données est ci-joint vous donnant un aperçu sur l'input et le résultat souhaitable.

Je vous remercie d'avance de votre aide.

Cordialement,

 

[debenexcel]

Re patricktoulon

C'est parfait! Ça fonctionne correctement Merci bcp !
Une petite rectification, dans l'output il affiche les données centrées , est-ce possible de les afficher alignées à gauche?
Une autre demande si possible, au lieu de modifier le nom du fichier dans le code et comme j'ai plusieurs fichiers à modifier et je ne suis pas le seul qui va travailler sur ces conversions et mes collègues ne sont tous familiarisés avec ce genre de manipulations, est-ce possible d’intégrer au début de la macro un code permettant de rechercher le fichier html à convertir donnant par exemple accès à un écran pour récupérer le fichier à partir d'un répertoire prédétermine; et à la fin de l'exécution un écran se déclenchera pour l’enregistrement du fichier en format csv (ex. séparateur barre oblique et valeurs entre guillemets ) ?
Merci bcp

 

[patricktoulon]

re
faut lire un peu les lignes
.HorizontalAlignment = xlCenter xlleft

pour la boite de dialogue fichier fait une recherche sur "GetOpenFileName"

pour le csv tu le save en text avec le separateur de ton choix

 

[debenexcel]

Re
Réglé

 

[debenexcel]

Re patricktoulon

Bonjour,
Serait-il possible d'intégrer dans la macro les fonctions décrites ci-dessus si cela n'est pas trop compliqué, Ou bien il serait mieux d'ouvrir un autre billet? J'ai fouillé un peu sur internet mais je n'ai pas trouvé une solution adéquate capable de répondre à mon besoin. Merci de ton aide.

 

[Staple1600]

Bonjour

•>debenexcel

J'ai fouillé un peu sur internet mais je n'ai pas trouvé une solution adéquate capable de répondre à mon besoin

Vraiment?

 

[debenexcel]

Re Staple1600

Il y a beaucoup de codes certes sur comment ouvrir un fichier dans Excel et comment l'exporter etc., mais je trouve beaucoup de complexité à intégrer et arrimer ces codes avec l'autre code...

 

[Staple1600]

Re

Exemple basique

(avec 15 ans de poussière en prime ;) -> fil de 2005)

https://www.excel-downloads.com/threads/file-browser-vba.31008/#post-141884
Sub DialogueFichiers()
Dim fd As FileDialog
'Crée une boite de dialogue de sélection de fichiers :
Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.Show
If fd.SelectedItems.Count > 0 Then
MsgBox fd.SelectedItems(1)
End If
Set fd = Nothing
End Sub

Voilà déjà une base pour commencer

 

[patricktoulon]

re
bonsoir

J'ai fouillé un peu sur internet mais je n'ai pas trouvé une solution adéquate capable de répondre à mon besoin

sans blague!!!!!

je tape getopenfilename sur gogole et voila le premier lien

Méthode Application.GetOpenFilename (Excel)

Rubrique de référence sur Office VBA

docs.microsoft.com

 

[Staple1600]

Re

•>patricktoulon
[humour post-apéro]
Pourquoi aller sur G..gle?
Quand il suffit de lire le message#52 de ce fil

[/humour post-apéro]

 

[debenexcel]

Re
Le code dans #52 ouvre juste la boite de dialogue, moi je cherche un code qui ouvre un dossier spécifique et qui importe le fichier html sélectionné. une fois fait, dans la 2e étape je vais appliquer le code de conversion, et dernière étape l'exporter en csv (un autre code)

 

[Staple1600]

Re

J'avais écrit

Voilà déjà une base pour commencer

Ce qui voulait, il fva falloir mouiller le maillot, camarade
Mettre la main à la pâte, quoi

 

[debenexcel]

re
ce que je suis en train de faire, mais c'est compliqué car ce n'est pas mon domaine, je suis deb

 

[Staple1600]

Re
•>debenexcel
Voila ce que tu pouvais faire, jeune padawan
(je viens de tester - test OK)

Sub DialogueFichiers_bis()
Dim fd As FileDialog
'Crée une boite de dialogue de sélection de fichiers :
Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.Show
If fd.SelectedItems.Count > 0 Then
ConvertHtmlToCsv CStr(fd.SelectedItems(1))
End If
Set fd = Nothing
End Sub

NB: Evidemment, faut que soit présent dans le projet VBA, la macro ConvertHtmlToCsv
(j'ai pris la version du message#45)

 

[patricktoulon]

re
bonsoir Staple1600 il s'agirait de pas tout faire non plus
et puis perso je préfère getopenfilename ai filedialogpicker d'excel
notre ami a tout en main reste plus qu'a activer les glandes sudoripares

 

[Staple1600]

Re

Confinement oblige
Faut bien s'occuper