Discussion :

[blondelle]

Bonjours:
J'ai un petit soucis avec Word, j'ai un tableau et j'aimerais selectionner par macro une plage de cellules, par exemple (selectionner cellule 2, ligne 1 jusque cellule 4, ligne 2) je n'arrive pas a le faire avec l'editeur de macro, une aide serait bien venue.

[ouskel'n'or]

Tiens, Silky a écrit plein de "trucs" intéressants là
Regarde à
"Copier une ligne precise d'un tableau word et le coller dans Excel"c'est presque à la fin. Tu as là le code pour jouer avec les cellules d'un tableau dans word
Tu dis si tu as des pbs
A+

[blondelle]

Merci ouskel'n'or:
Ton lien est tres interressant, j'y ai trouve cela, c'est la fonction premiere fusionner les cellules.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub fusionnerCellsDansTableauWord()
'activate Microsoft Word xx.x Object Library
Dim wordApp As Word.Application
Dim wordDoc As Word.Document
Set wordApp = createObject("word.application") 'Word Session
Set wordDoc = wordApp.Documents.Open("C:\monDocument.doc") 'ouverture Doc
wordApp.Visible = True
'fusionner les Cells(2,3) à Cells(3,5) dans le premier tableau du document Word
wordDoc.Tables(1).Cell(Row:=2, Column:=3).Merge _
mergeTo:=wordDoc.Tables(1).Cell(Row:=3, Column:=5)
End Sub

Mais j'ai trouve quelque chose qui me va mieux on selectionne les cellules, on peut les fusionner, ou y faire autre chose, en plus c'est dans l'aide Word (Galere pour trouver).

Code :

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

1
2
3
4
5
 
Set myTable = ActiveDocument.Tables(1)
Set myRange = ActiveDocument.Range(myTable.Cell(1, 1) _
    .Range.Start, myTable.Cell(1, 2).Range.End)
myRange.Cells.Merge

Ce code est mieux adapte a ce que je veux faire.
Encore une fois merci.