Forums XLPages

Excel & VBA Espace Débutants Importer plusieurs tableaux word en gérant les sauts de lignes...

Importer plusieurs tableaux word en gérant les sauts de lignes...
#1
pierre3401
Débutant XLPages

Inscription: 29/06/2011

Messages: 5

Système d'exploitation:
PC
Version Excel utilisée:
2003,2007
Posté le : 18-04-2012 09h39
Bonjour,

Dans le code ci-dessous, j'importe un tableau word en effacant les sauts de lignes que sa 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 je travaille souvent avec des documents qui comptent plusieurs tableaux, j'aurais donc voulu savoir s'il est possible d'adapter ce code pour copier l'ensemble des tableau d'un fichier word tout en gérant ces sauts de lignes et ce, quel que soit le nombre de tableaux dans le document.


Merci d'avance,
Hors Ligne
 Rapport   Haut 

Re: Importer plusieurs tableaux word en gérant les sauts de lignes...
#2
myDearFriend!
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 18-04-2012 22h06
Bonsoir pierre3401,

Sans te promettre quoi que ce soit (Word, ce n'est pas franchement ma tasse de thé), je pense que tu aurais déjà plus de chance d'obtenir une lecture attentive de ta question si tu joignais un exemple de fichier Word contenant tes tableaux et, au besoin, le classeur excel correspondant au morceau de code indiqué...

Par ailleurs, et même si je suis arrivé sans doute un peu tard, j'aurais apprécié déjà un retour sur ton fil précédent pour ma part...

Cordialement,
Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
 Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes