Discussion :

[polothentik]

Bonjour,

Dans le cadre du développement d'un outil, je me heurte à la difficulté suivante :
Je copie/colle un tableau d'Excel vers Word. Ce tableau possède 2 lignes d'en-tête, contenant des cellules fusionnées dans le sens de la hauteur et de la largeur, que je souhaitent définir comme HeadingFormat.

J'ai activé la référence "Microsoft Word xx.x object library".

Le code est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
oDoc.Tables(iWS + tableOffset).Rows(1).Select
Selection.MoveDown wdLine, 1, wdExtend

Il me renvoie l'erreur "propriété ou méthode non gérée par cet objet" sur l'exécution de la 2ème ligne...

Merci d'avance.

[Heureux-oli]

Salut,

C'est à cause des cellules fusionnées que ton tableau contient.

[polothentik]

Bonjour,

Merci pour ta réponse. Effectivement, il semble impossible de pouvoir sélectionner via le code VBA des lignes d'un tableau comportant, en vertical ou en horizontal, des cellules fusionnées.
Par conséquent, ma solution aura été de fusionner mes cellules une fois le tableau collé et la définition des lignes d'entête à répéter sur chaque page réalisée.
Par ailleurs, une erreur s'était glissée dans le code publié précédemment. En effet, la méthode "sélection" sous Word appartient à l'objet "Word.Application" et non "Word.Application.Documents".

Le code suivant utilise un classeur Excel contenant la macro VBA pour coller un tableau dans un document Word sur un signet (présent dans le document au préalable):

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Sub ExcelToWord()
        dim WB as Workbook
        dim WS as Worksheet
        dim aRange as Range
        dim oWord As Word.Application
        dim oDoc As Word.Document
 
        '# Définition des variables
        set WB = thisWorkbook
        set WS = WB.Worksheets("uneFeuille")
        Set oWord = CreateObject("Word.Application")
        oWord.Visible = True
        aFile = "template.docx"
        aPath = WB.Path & "\" & aFile
        Set oDoc = oWord.Documents.Open(aPath)
 
        '# Copier le tableau
        Set aRange = WS.Range(WS.Cells(1, 1), WS.Cells(5, 5))
        aRange.Copy
 
        '# Coller le tableau
        aBookmark = "unSignet"
        oWord.Selection.GoTo What:=wdGoToBookmark, Name:=aBookmark
        oWord.Selection.PasteAndFormat (wdPasteDefault)
 
        '# Répéter l'entête du tableau #1
        iTable = 1
        oDoc.Tables(iTable).Rows(1).Select
        oWord.Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
        oWord.Selection.Rows.HeadingFormat = True
 
        '# Fusionner les cellules
        oDoc.Tables(iTable).Cell(1, 1).Merge mergeTo:=oDoc.Tables(iTable).Cell(2, 2)
        oDoc.Tables(iTable).Cell(1, 1).VerticalAlignment = wdCellAlignVerticalCenter
        aText = cleanText(oDoc.Tables(iTable).Cell(1, 1).Range.Text)
        oDoc.Tables(iTable).Cell(1, 1).Range.Text = aText
End Sub
 
'# Fonction cleanText - La fusion des cellules entraîne l'apparition de caractères spéciaux
Function cleanText(aText As String) As String
        aText = Replace(aText, Chr(160), "")
        aText = Replace(aText, Chr(10), "")
        aText = Replace(aText, Chr(13), "")
        cleanText = aText
End Function

A+,
'Lothentik

[Heureux-oli]

Salut,

Euh, la selection du code se faisait sur la ligne 1 du tableau et le code était bon.