Extraction .html

[Renaud]

Bonjour à tous !!!


J'ai une question qui me turlupine :

Est ce que avec une macro je peux extraire des données sous forme de fichier .html

Je m'explique:

J'ai une colonne contenant les nom de mes voiture (par exemple 😉)
une colonne avec la marque
une colonne avec l'année....

Et je voudrais avoir autant de page html portant chacune le nom d'une des voitures.
Contenant les informations (marque, année).....

Merci à tous
En espérant avoir été clair.

 

[chris]

Bonjour
Par VBA tout est possible.
2 pistes :
soit utiliser l'enregistrement au format html en passant par un formulaire dont la mise en page sera celle de la page HTML et dont le contrenu sera modifié à travers une boucle.
Soit insérer les balises html via le code et enregister au format texte avec une extension html.

 

[Renaud]

Merci chris !

Par contre je ne sais même pas enregistrer en fichier texte ..... :S

Je dois mettre tout mon code balisé dans la macro et puis je dois lui dire d'enregistrer ? C'est bien ca ?

Thanks

 

[MichelXld]

bonjour Renaud , bonjour chere Chris

ci joint un exemple simple qui recupere les cellules A1 à A3 pour créer un fichier html


Open 'C:\\\\\\\\leFichier.html' For Output As #1

Print #1, '‹html›‹head›'

Print #1, '‹BR›' & Range('A1') & '‹BR›‹BR›'
Print #1, Range('A2') & '‹BR›‹BR›'
Print #1, Range('A3') & '‹BR›‹BR›'
Close

ThisWorkbook.FollowHyperlink 'C:\\\\\\\\leFichier.html'

Important :
dans la macro ci dessus , remplace les symboles superieur ‹ et inferieur › par les vrais caracteres de ton clavier

bon apres midi
MichelXld

Message édité par: michelxld, à: 04/06/2006 17:07

 

[Renaud]

Merci MichelXld !

Vraiment sympa,

et merci à chris

et merci a tous

bon dimanche
@+

 

[Renaud]

Juste une dernière question !!!!

On peut le géner le fichier .html au lieu de le créer manuellement.
Parce que j'en ai 900 à faire :S :S

Merci

 

[MichelXld]

rebonjour

On peut le géner le fichier .html au lieu de le créer manuellement.

désolé mais je n'ai pas compris ton message


bon apres midi
MichelXld

 

[Renaud]

Ben en fait dans le code que tu m'a donné le fichier .html je l'ai créer manuellement avant d'exécuter la macro.

Est il possible de le faire créer par la macro ??

Suis je encore peu clair ? 😉

Merci

 

[MichelXld]

rebonjour

Je comprend de moins en moins car justement la macro permet de creer directement le fichier html ...


ci joint un autre exemple qui crée 5 fichiers html ( les données sont dans les colonnes A ,B et C )


Sub test()
Dim i As Integer

For i = 1 To 5
Open 'C:\\\\\\\\leFichier' & i & '.html' For Output As #1

Print #1, '‹html›‹head›'

Print #1, '‹BR›' & Cells(i, 1) & '‹BR›‹BR›'
Print #1, Cells(i, 2) & '‹BR›‹BR›'
Print #1, Cells(i, 3) & '‹BR›‹BR›'
Close

DoEvents
Next i
End Sub


dans la macro ci dessus , remplacez les symboles superieur ‹ et inferieur › par les vrais caracteres de ton clavier



bon apres midi
MichelXld

 

[Renaud]

Et bien en fait il me dit que le fichier n'existe pas
en fait je suis sous mac, c'est peut etre ca le hic :S

Sinon lorsque j'ai créert au préalable le fichier, cela fonctionne bien

Merci quand meme

 

[MichelXld]

rebonsoir

malheureusement je n'ai pas de Mac pour t'aider

en fait il me dit que le fichier n'existe pas

c'est qui 'il' ? peux tu preciser la methode que tu as utilisé ?

Sinon lorsque j'ai créert au préalable le fichier, cela fonctionne bien

qu'est ce qui fonctionne bien ?


bonne soiree
MichelXld

 

[Renaud]

Bonsoir,

Finalement j'ai trouvé la solution à mon problème:

ActiveWorkbook.SaveAs Filename:=
'Hard disk : Users : Renaud : Desktop : Feuil1.htm', FileFormat:=xlHtml, _
PublishOption:=xlSheet


Voila voila
mais c'est vrai que sur PC ton code marche très bien.


Encore merci
bonne soirée