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

Jérémy26 · 14 Avril 2022

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.

VB:

        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 · 28 Avril 2022

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 · 28 Avril 2022

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

VB:

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 · 28 Avril 2022

p56 à dit:

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

VB:

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 · 28 Avril 2022

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

VB:

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 · 28 Avril 2022

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

VB:

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

VB:

                            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 · 28 Avril 2022

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

Jérémy26 · 28 Avril 2022

p56 à dit:
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 · 28 Avril 2022

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

p56 · 28 Avril 2022

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

VB:

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 · 28 Avril 2022

D'accord merci beaucoup pour votre aide

Jérémy26 · 3 Mai 2022

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 texte sur chaque ligne) mais lors que j'ai des puces je dois mettre et 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.

HTML:

<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>

HTML:

<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 · 3 Mai 2022

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

HTML:

<!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 · 3 Mai 2022

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 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 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érémy26 à dit:

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 texte sur chaque ligne) mais lors que j'ai des puces je dois mettre et 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.

HTML:

<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>

HTML:

<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>

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

XLDnaute Nouveau

XLDnaute Nouveau

XLDnaute Occasionnel

Pièces jointes

XLDnaute Nouveau

Pièces jointes

XLDnaute Occasionnel

Pièces jointes

XLDnaute Nouveau

Pièces jointes

XLDnaute Occasionnel

XLDnaute Nouveau

Pièces jointes

XLDnaute Nouveau

Pièces jointes

XLDnaute Occasionnel

Pièces jointes

XLDnaute Nouveau

XLDnaute Nouveau

XLDnaute Occasionnel

XLDnaute Nouveau

Discussions similaires

Partager cette page

Statistiques des forums