Extraction .html

chris

XLDnaute Barbatruc

• 4 Juin 2006

• #2

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.

 

Vote positif 0 Vote négatif

R

Renaud

Guest

• 4 Juin 2006

• #3

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

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 4 Juin 2006

• #4

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

 

Vote positif 0 Vote négatif

R

Renaud

Guest

• 4 Juin 2006

• #5

Merci MichelXld !

Vraiment sympa,

et merci à chris

et merci a tous

bon dimanche
@+

 

Vote positif 0 Vote négatif

R

Renaud

Guest

• 4 Juin 2006

• #6

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

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 4 Juin 2006

• #7

rebonjour

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

Cliquez pour agrandir...

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


bon apres midi
MichelXld

 

Vote positif 0 Vote négatif

R

Renaud

Guest

• 4 Juin 2006

• #8

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

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 4 Juin 2006

• #9

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

 

Vote positif 0 Vote négatif

R

Renaud

Guest

• 4 Juin 2006

• #10

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

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 4 Juin 2006

• #11

rebonsoir

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

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

Cliquez pour agrandir...

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

Cliquez pour agrandir...

qu'est ce qui fonctionne bien ?


bonne soiree
MichelXld

 

Vote positif 0 Vote négatif

R

Renaud

Guest

• 4 Juin 2006

• #12

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

 

Vote positif 0 Vote négatif