importer plusieurs tableau word en gérant les sauts de lignes

[pierre3401]

Bonjour à tous,

Dans le code ci-dessous, j'importe un tableau word en gérant les sauts de lignes que la copie génère...

Sub tableauSansLignes()
 
Dim WordDoc As Object
Dim i As Integer, j As Integer
Dim Wb As Workbook
Dim Cible As Variant
Dim Fichier As Variant
 
 
    'affichage boite de dialogue pour choisir un document Word
Fichier = Application.GetOpenFilename("Text Files (*.doc*), *.doc*")
If Fichier = False Then Exit Sub
 
    Set WordDoc = GetObject(Fichier)
    Set Wb = Workbooks.Add(1)
    For i = 1 To WordDoc.Tables(1).Rows.Count
        For j = 1 To WordDoc.Tables(1).Columns.Count
            Cible = WordDoc.Tables(1).Columns(j).Cells(i)
 
            Sheets(1).Cells(i, j) = _
            Application.WorksheetFunction.Substitute(Cible, vbCr, vbLf)
            Sheets(1).Cells(i, j) = _
            Left(Sheets(1).Cells(i, j), Len(Sheets(1).Cells(i, j)) - 1)
        Next j
    Next i
     Wb.ActiveSheet.Range("A1").Select
    Wb.ActiveSheet.Paste
 
    Application.CutCopyMode = False
 
 
    Application.Dialogs(xlDialogSaveAs).Show
 
End Sub

Mon problème, c'est que bien souvent, mes documents word comportent plusieurs tableau, quelqu'un pourrait-il me dire s'il est possible d'adapter ce code de manière à ce que la totalité des tableaux soient traité, ceci quel que soit le nombre de tableaux dans le document?

vous remerciant d'avance,

 

[pierre3401]

Re : importer plusieurs tableau word en gérant les sauts de lignes

personne ? j'ai vraiment besoin de trouver une solution...

Merci encore