Discussion :

[luxmen]

Bonjour,
je cherche une macro qui me transformerait (ou baliserait) un tableau word en html

J'essaie de la faire mais je n'y arrive pas...

Quelqu'un pourrait m'aider ??

Merci

[SfJ5Rpw8]

tiens regarde si le code suivant t'inspire et dis nous....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
' PErmet d'enlever les tabulation des cellule
'
Function NetCellule(st As String) As String
 Dim i As Integer
 Dim st2 As String
 st2 = ""
 
 For i = 1 To Len(st)
    If Asc(Mid(st, i, 1)) >= 32 Then
     st2 = st2 & Mid(st, i, 1)
    End If
 
 Next
 
 NetCellule = st2
End Function
 
Sub ExporteTableau()
    Dim t As Table ' T c'est mon tableau
    Dim r As Row
    Dim stTexte As String
 
   ' Dim c As Cell
    'A voir comment sélectionner le bon tableau...
    Set t = ActiveDocument.Tables(1) ' Je prend le 1° tableau du document
 
    stTexte = "<TABLE BORDER>"
    For Each r In t.Range.Rows
       stTexte = stTexte & "<TR>"
       For Each c In r.Range.Cells
         stTexte = stTexte & "<TD>" & NetCellule(c.Range.Text) & "</TD>"
       Next
       stTexte = stTexte & "</TR>" & Chr(13)
    Next
     stTexte = stTexte & "</TABLE>"
 
     Debug.Print stTexte
End Sub

[luxmen]

salut (encore toi...tu dors ici ??)

J'ai essayer d'executer la macro, mais rien ne se passe (meme en selectionnant le tableau.

j'ai du ratter qq chose ?

[SfJ5Rpw8]

tu as bien regardé dans fenêtre exécution ... ?

il faut au moins un tableau .. dans le document word actif...
puis execute exporte tableau ... ( à la limite mode pas à pas , voir s'il te manque quelque chose... ?

[luxmen]

Salut et merci,

il ne me fait rien du tout (pourtant en mode pas a pas, il ne m'indique pas d'erreur)

Je ne pige pas...

merci quand meme

Je sais que ca doit etre chiant un debutant comme moi...lol

par contre j'ai reussi a faire la plupart de mes balises HTML dans les texte (pour hier soir, si tu te souviens)

ca marche au poil...

[SfJ5Rpw8]

je sais pas cela viens peu-être de la maniére dont on été créé tes tableaux?... ceux dont je parle sont créé par la commande insérer tableau de word.. et sont des objets "tables"... tu peu vérifier si ton document en contient , dans la fenêtre exécution de vba en tapant...:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

?activedocument.Tables.Count

...? sinon pour le moment je ne vois pas pourquoi cela ne fonctionne pas chez toi.. ?

[luxmen]

ouaip, j'ai la reponse 1 (dans la fenetre d'exe)

et effectivement, j'ai bien le code qui s'affiche dans cette fenetre, mais pas dans mon doc), as tu une methode pour que ca remplace le tableau dans la page ?

je suis vraiment desole

[SfJ5Rpw8]

comment as tu fais ... pour le reste , tu ne crée pas un nouveau document, tu fais tous dans le fichier initial ? ... cela ne t'engendre pas des problémes.. ?

bon sinon pour écrire dans fichier word ... tu peu modifier le code ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
...
     stTexte = stTexte & "</TABLE>"
     Debug.Print stTexte
     t.Select
     t.Delete
     Selection.TypeText Text:=stTexte
...

.. Alors finalement hier tu as utilisé qu'elle méthode ?

[luxmen]

c'etait de ma faute... (il etait surement pas en "inserer tableau"), c'est bizarre...

mais en en faisant un nouveau avec la commande inserer tableau ca roule.

Sinon, ouai effectivement, le tableau est dans ma page et je voudrais le remplacer par le code

[luxmen]

Sinon, tu est un Top BON !

ca marche au poil avec le code que tu m'a donné...je te RE RE RE merci

@++ et bonne nuit...p'tete a demin ?

byebye