Bonjour,

j'insere une table a partir de vba excel entre d'autres et j'aimerais recuperer son numero. Le but est en fait de redimensionner cette table et de la centrer.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
wsSheet.Select
           wsSheet.Select
            rTab.Copy
            oWdDoc.Parent.Selection.Goto What:=-1, Name:=sSignet 'wdGoToBookmark
            oWdDoc.Parent.Selection.TypeParagraph
            oWdDoc.Parent.Selection.Paste
            oWdDoc.Parent.Selection.TypeParagraph
            oWdDoc.Parent.Selection.InsertCaption Label:="Tableau", _
            Title:=(" : " & sTitre), Position:=1, _
            ExcludeLabel:=0 'wdCaptionPositionBelow = 1
            oWdDoc.Parent.Selection.ParagraphFormat.Alignment = 1
            'wdAlignParagraphCenter