XL 2010 Récupérer un tableur Word sous Excel

[Jérémy26]

Bonjour, j'ai ce bout de programme qui permet de récupérer le texte de chaque case d'un tableau Word pour le mettre dans une cellule Excel.
J'ai un problème je perd mes puces et j'aimerai trouver un moyen pour les garder.
J'ai vu ceci .FormulaR1C1 qui pourrai m'aider vu que le texte est sous cette forme quand j'ai des puces mais je n'arrive pas à 'utiliser :
"• Dans la console Web, le nombre de disques et leurs tailles doivent correspondre aux spécifications. 6x 600 Go (RAID 6)." & Chr(10) & "• Test puces"
Voici le bout de programme pour le traitement Word->Excel.
Merci, de m'aider.

        For ligne = 2 To Sheets("Liste_tableaux").Cells(Rows.Count, 1).End(xlUp).Row
            num_tab = Sheets("Liste_tableaux").Cells(ligne, 1).Value
            lg = .Tables(num_tab).Rows.Count
            cl = .Tables(num_tab).Columns.Count
            ReDim T(1 To lg, 1 To cl)
            For j = 1 To lg
                For k = 1 To cl
                    S = ""
                    If Not Exist_cell(num_tab, j, k) Then
                        S = WordDoc.Tables(num_tab).Cell(j, k).Range.text
                        S = Replace(Replace(S, Chr(7), ""), Chr(13), Chr(10))
                        T(j, k) = S
                     End If
                Next k
            Next j

            ThisWorkbook.Sheets("Import").Cells(3, 1 + n_col).Resize(UBound(T, 1), UBound(T, 2)) = T
            
            Sheets("Import").Select
            Range(Cells(2, 1 + n_col), Cells(2, 3 + n_col)).MergeCells = True
            Sheets("Import").Cells(2, 1 + n_col).Select
            
            'MsgBox "Num_tab : " & Num_tab

            Mise_en_forme_tab (num_tab)
            n_col = n_col + 4

        Next ligne

 

[Jérémy26]

Bonjour, je n'ai toujours pas trouvé de solution à ce problème ...
Avez vous un solution ou une piste de recherche pour m'aider ?
Je suis à cour d'idée ....
Merci.

 

[p56]

Bonjour,
C'est simple pour les listes à puces il suffit de pointer sur le .ListFormat.ListType
Voir fichier démo
P.

If Exist_cell(i, j, k) Then
    S = .Tables(i).Cell(j, k).Range.Text
    If .Tables(i).Cell(j, k).Range.ListFormat.ListType > 0 Then
        S = Replace(Replace(S, Chr(7), ""), Chr(13), "|")
        T0 = Split(S, "|")
        S = ""
        For m = 0 To UBound(T0) - 1
            S = S & "• " & T0(m) & Chr(10)
        Next m
    Else
        S = Replace(Replace(S, Chr(7), ""), Chr(13), Chr(10))
    End If
    T(j, k) = S
End If

 

[Jérémy26]

Bonjour,
C'est simple pour les listes à puces il suffit de pointer sur le .ListFormat.ListType
Voir fichier démo
P.

If Exist_cell(i, j, k) Then
    S = .Tables(i).Cell(j, k).Range.Text
    If .Tables(i).Cell(j, k).Range.ListFormat.ListType > 0 Then
        S = Replace(Replace(S, Chr(7), ""), Chr(13), "|")
        T0 = Split(S, "|")
        S = ""
        For m = 0 To UBound(T0) - 1
            S = S & "• " & T0(m) & Chr(10)
        Next m
    Else
        S = Replace(Replace(S, Chr(7), ""), Chr(13), Chr(10))
    End If
    T(j, k) = S
End If

Bonjour je peux avoir jusqu'à 3 niveau de puces voir doc Word modifié, sur votre exemple dès que j'ai une puce dans la cellule toute les lignes on des puces. J'ai modifier votre word avec une cellule type que je peux avoir.
Pourriel vous modifier votre programme en tenant compte de ceci, désolé je suis un peux dépasser je ne comprend pas toute les lignes de code que vous avez écrite...

 

[p56]

Alors dans ce cas, il faut discriminer les paragraphes de chaque cellule selon leur .ListFormat.ListLevelNumber, par exemple comme ceci :

For Each Prgrf In .Tables(i).Cell(j, k).Range.Paragraphs
    Select Case Prgrf.Range.ListFormat.ListLevelNumber
        Case 1: T0(m) = "• " & T0(m)
        Case 2: T0(m) = "     * " & T0(m)
        Case 3: T0(m) = "          - " & T0(m)
    End Select
    m = m + 1
Next Prgrf

 

[Jérémy26]

Alors dans ce cas, il faut discriminer les paragraphes de chaque cellule selon leur .ListFormat.ListLevelNumber, par exemple comme ceci :

For Each Prgrf In .Tables(i).Cell(j, k).Range.Paragraphs
    Select Case Prgrf.Range.ListFormat.ListLevelNumber
        Case 1: T0(m) = "• " & T0(m)
        Case 2: T0(m) = "     * " & T0(m)
        Case 3: T0(m) = "          - " & T0(m)
    End Select
    m = m + 1
Next Prgrf

Excusez moi encore j'ai modifié le Word lorsque j'ai pas de puce dans la cellule avec votre programme j'ai une puce qui est rajouté.
j'ai essayé de modifier votre programme comme ci en discriminant les paragraphes de chaque cellule mais ça ne fonctionne pas

                            For Each Prgrf In .Tables(i).Cell(j, k).Range.Paragraphs
                                Select Case Prgrf.Range.ListFormat.ListLevelNumber
                                    Case 1: T0(m) = " " & T0(m)
                                    Case 2: T0(m) = "• " & T0(m)
                                    Case 3: T0(m) = "     * " & T0(m)
                                    Case 4: T0(m) = "          - " & T0(m)
                                End Select
                                m = m + 1
                            Next Prgrf

 

[p56]

Effet non constaté avec les fichiers exemples que j'ai posté plus haut

 

[Jérémy26]

Effet non constaté avec les fichiers exemples que j'ai posté plus haut
Regarde la pièce jointe 1138176

Essayez avec ce fichier Word type, lorsque j'ai une cellule qui contiens 3 type de puces mais aussi des lignes sans puce.

 

[Jérémy26]

Ci joint des images du doc Word et du résultat Excel

 

[p56]

Dans ce cas il faut réinterroger le Prgrf.Range.ListFormat.ListType

For Each Prgrf In .Tables(i).Cell(j, k).Range.Paragraphs
    If Prgrf.Range.ListFormat.ListType > 0 Then
        Select Case Prgrf.Range.ListFormat.ListLevelNumber
            Case 1: T0(m) = "  • " & T0(m)
            Case 2: T0(m) = "       * " & T0(m)
            Case 3: T0(m) = "            - " & T0(m)
        End Select
    End If
    m = m + 1
Next Prgrf

 

[Jérémy26]

D'accord merci beaucoup pour votre aide 🙂

 

[Jérémy26]

J'aimerai traiter mon texte récupérer et le mettre en format html. pour le moment je met toutes mes lignes de texte d'une cellule dans ce format (code 2 avec <p> texte </p> sur chaque ligne) mais lors que j'ai des puces je dois mettre <u> et <i> pouvez vous m'aider ?
Ci joint mon code que j'ai après traitement d'une cellule pour le deuxième code. le premier code est celui que je dois avoir par rapport à la même cellule.

<p><span style=""font-family:Arial,Helvetica,sans-serif; font-size:12px"">Test sans puces</span></p>

<ul>
    <li><span style=""font-family:Arial,Helvetica,sans-serif; font-size:12px"">Test 1 puce niveau 1</span></li>
    <li><span style=""font-family:Arial,Helvetica,sans-serif; font-size:12px"">Test 2 puce niveau 1</span></li>
</ul>

<p><span style=""font-size:12px""><span style=""font-family:Arial,Helvetica,sans-serif"">Test sans puce</span></span></p>

<ul>
    <li><span style=""font-family:Arial,Helvetica,sans-serif; font-size:12px"">Test 1 puce niveau 1</span>

    <ul>
        <li><span style=""font-family:Arial,Helvetica,sans-serif; font-size:12px"">Test 1 puce niveau 2</span>

        <ul>
            <li><span style=""font-family:Arial,Helvetica,sans-serif; font-size:12px"">Test 1 puce niveau 3</span></li>
        </ul>
        </li>
        <li><span style=""font-family:Arial,Helvetica,sans-serif; font-size:12px"">Test 2 puce niveau 2</span>
        <ul>
            <li><span style=""font-family:Arial,Helvetica,sans-serif; font-size:12px"">Test 2 puce niveau 3</span></li>
        </ul>
        </li>
    </ul>
    </li>
</ul>

<p><span style='font-family:Arial,Helvetica,sans-serif; font-size:12px'>Accéder à l’interface web de connexion de la baie, se connecter avec les identifiants présents dans le keepass du projet.</span></p>
<p><span style='font-family:Arial,Helvetica,sans-serif;font-size:12px'>   • Test puce niveau 1</span></p>
<p><span style='font-family:Arial,Helvetica,sans-serif;font-size:12px'>Test sans puces</span></p>
<p><span style='font-family:Arial,Helvetica,sans-serif;font-size:12px'>   • Test puce niveau 1</span></p>
<p><span style='font-family:Arial,Helvetica,sans-serif;font-size:12px'>       * Test puce niveau 2</span></p>
<p><span style='font-family:Arial,Helvetica,sans-serif;font-size:12px'>       * Test puce niveau 2</span></p>
<p><span style='font-family:Arial,Helvetica,sans-serif;font-size:12px'>           - Test puce niveau 3</span></p>
<p><span style='font-family:Arial,Helvetica,sans-serif;font-size:12px'>Test sans puce</span></p>
<p><span style='font-family:Arial,Helvetica,sans-serif;font-size:12px'></span></p>

 

[p56]

En Html, la bonne syntaxe pour une page avec liste à puces multi-niveaux c'est un truc du genre :

<!DOCTYPE html>
<html>
    <head>
        <title>Exemple de page html</title>
        <meta charset="utf-8" />
        <meta name="author" content="P56">
    </head>
    <body>
        <p>TITRE DE MA PAGE</p>
        <p><span style='font-family:Arial,Helvetica,sans-serif; font-size:12px'>
        <ul>
            <li>Test puce niveau 1 - ligne1</li>
        <ul>
            <li>Test puce niveau 2 - ligne1</li>
            <li>Test puce niveau 2 - ligne2</li>
            <ul>
                <li>Test puce niveau 3 - ligne1</li>
                <li>Test puce niveau 3 - ligne2</li>
                <li>Test puce niveau 3 - ligne3</li>
            </ul>
        </ul>
            <li>Test puce niveau 1 - ligne2</li>
        </ul>
        Texte sans puce
        </span></p>
        <p>Nouveau paragraphe</p>
    </body>
</html>

P.

 

[Jérémy26]

Oui c'est pour ça, le but est de d'intégrer dans une nouvelle cellule le texte que j'ai dans une autre cellule avec les croché pour avoir cette syntaxe.
Pour le moment j'ai pu rajouter <p><span TEXTE </span></p> pour chaque ligne de texte de ma cellule. mais vu que maintenant je peux avoir des puces il faudrait que je puisse déduire pour chaque ligne de texte de ma cellule si j'ai une puce faire
<ul>
<li> text </li>
puis fermer avec </u> si je n'ai pas d'autre puce du même niveau et si j'ai un autre niveau de puce rajouter
<ul>
<li> text </li>
pour mon deuxième niveaux et par les fermer après
</ul>
</ul>
par exemple
avoir un traitement pour avoir comme mon code n°1 à la place du code n°2 que j'ai actuellement tous ça automatiquement vu que chaque cellule que j'ai seront différente.

J'aimerai traiter mon texte récupérer et le mettre en format html. pour le moment je met toutes mes lignes de texte d'une cellule dans ce format (code 2 avec <p> texte </p> sur chaque ligne) mais lors que j'ai des puces je dois mettre <u> et <i> pouvez vous m'aider ?
Ci joint mon code que j'ai après traitement d'une cellule pour le deuxième code. le premier code est celui que je dois avoir par rapport à la même cellule.

<p><span style=""font-family:Arial,Helvetica,sans-serif; font-size:12px"">Test sans puces</span></p>

<ul>
    <li><span style=""font-family:Arial,Helvetica,sans-serif; font-size:12px"">Test 1 puce niveau 1</span></li>
    <li><span style=""font-family:Arial,Helvetica,sans-serif; font-size:12px"">Test 2 puce niveau 1</span></li>
</ul>

<p><span style=""font-size:12px""><span style=""font-family:Arial,Helvetica,sans-serif"">Test sans puce</span></span></p>

<ul>
    <li><span style=""font-family:Arial,Helvetica,sans-serif; font-size:12px"">Test 1 puce niveau 1</span>

    <ul>
        <li><span style=""font-family:Arial,Helvetica,sans-serif; font-size:12px"">Test 1 puce niveau 2</span>

        <ul>
            <li><span style=""font-family:Arial,Helvetica,sans-serif; font-size:12px"">Test 1 puce niveau 3</span></li>
        </ul>
        </li>
        <li><span style=""font-family:Arial,Helvetica,sans-serif; font-size:12px"">Test 2 puce niveau 2</span>
        <ul>
            <li><span style=""font-family:Arial,Helvetica,sans-serif; font-size:12px"">Test 2 puce niveau 3</span></li>
        </ul>
        </li>
    </ul>
    </li>
</ul>

<p><span style='font-family:Arial,Helvetica,sans-serif; font-size:12px'>Accéder à l’interface web de connexion de la baie, se connecter avec les identifiants présents dans le keepass du projet.</span></p>
<p><span style='font-family:Arial,Helvetica,sans-serif;font-size:12px'>   • Test puce niveau 1</span></p>
<p><span style='font-family:Arial,Helvetica,sans-serif;font-size:12px'>Test sans puces</span></p>
<p><span style='font-family:Arial,Helvetica,sans-serif;font-size:12px'>   • Test puce niveau 1</span></p>
<p><span style='font-family:Arial,Helvetica,sans-serif;font-size:12px'>       * Test puce niveau 2</span></p>
<p><span style='font-family:Arial,Helvetica,sans-serif;font-size:12px'>       * Test puce niveau 2</span></p>
<p><span style='font-family:Arial,Helvetica,sans-serif;font-size:12px'>           - Test puce niveau 3</span></p>
<p><span style='font-family:Arial,Helvetica,sans-serif;font-size:12px'>Test sans puce</span></p>
<p><span style='font-family:Arial,Helvetica,sans-serif;font-size:12px'></span></p>