Discussion :

[pubbins]

Bonjour à tous,

J'ai deux documents :
- Un fichier word qui contient un tableau
- Un fichier excel vierge qui va recevoir les données du tableau word

J'arrive à faire la jonction en vba et j'arrive à copier le texte brut des cellules du tableau word vers le tableau excel.

Cependant, dans les cellules du tableau word, se trouve des listes avec puces. Là est mon problème : je n'arrive pas à transférer également cette mise en forme (à savoir la liste avec puce), j'ai uniquement le texte brut sans les retours à la ligne, ni les puces.

Auriez-vous une idée pour transférer un liste avec puce depuis Word vers une cellule Excel ?

Je sèche ! Mais pas vous, je l'espère...

Merci d'avance,

Pubbins

[Daniel.C]

Bonjour,

Adapte :

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
Sub CopieTableauWord()
    Dim Wd As Object, Doc As Object, I as Integer, Largeur as Single
    Set Wd = GetObject(, "Word.Application")
    Set Doc = Wd.activedocument
    Set Var = Doc.tables(1)
    Doc.tables(1).Range.Copy
    Sheets("Feuil2").Select
    [A1].Select
    ActiveSheet.PasteSpecial Format:="HTML"
    For i = 1 To Doc.tables(1).Columns.Count
        largeur = Doc.tables(1).Columns(i).Width / [A1].Offset(, i - 1).EntireColumn.Width * _
            [A1].Offset(, i - 1).EntireColumn.ColumnWidth
        [A1].Offset(, i - 1).EntireColumn.ColumnWidth = largeur
    Next i
End Sub

[pubbins]

Merci pour ta réponse Daniel.

Cependant, cela ne fonctionne pas exactement comme je le voudrais. En exécutant la macro fournie, le collage se fait dans plusieurs cellules différentes (une cellule par puce) au lieu d'avoir toutes les puces dans une même cellule. Avez-vous une autre idée ?

En vous remerciant par avance,

Pubbins

[Daniel.C]

Non, désolé.

Je ne suis pas un pro de Word non plus.

Ou plutôt si, mais je n'ai pas le temps de le coder :
Après avoir copié le tableau dans Excel, faire un copier du tableau EXcel aillleurs dans Excel et faire un collage formats sur le bon nombre de cellules. Copier ensuite le contenu de chaque cellule en concaténant les textes dans le tableau final (je ne sais pas si c'est clair).