XL 2010 Répéter les deux première lignes lors de la création d'un tableau dans word

[ssonap]

Bonjour,

J'ai un programme qui copie des tableaux d'excel sur word à l'aide de signet.
J'arrive bien à répéter la première ligne du tableau créé mais souhaiterais répéter les deux premières lignes de mon tableau.
ci-dessous un exemple de mon code :

Dim appWrd As Word.Application

   appWrd.Selection.HomeKey Unit:=wdStory
   appWrd.Selection.Goto What:=wdGoToBookmark, Name:="SIGNET1"
   appWrd.Selection.Paste
   appWrd.Selection.Goto What:=wdGoToBookmark, Name:="SIGNET1"
   'Répeter première ligne du tableau'
   appWrd.Selection.Rows.HeadingFormat = wdToggle

Je coince.
Je vous remercie par avance pour votre aide.

 

[Hasco]

bonjour,

C'est plus de la macro Word qu'Excel, allez voir sur un forum Word.

cordialement

 

[ssonap]

Bonjour Roblochon,

Je sais que cela impacte un document word mais le code est bien sur mon fichier excel. Et cela reste du vba. Ce n'est pas évident de savoir où publier une telle demande.
cdt

 

[chris]

Bonjour à tous
A priori c'est la sélection active de Selection.Rows.HeadingFormat = wdToggle
qui définit le nombre de ligne donc à tous de sélectionner ces 2 lignes d'une façon ou d'une autre
exemple (à préfixer)

    Selection.HomeKey Unit:=wdStory
    ThisDocument.Tables(1).Rows(1).Select
    Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
    Selection.Rows.HeadingFormat = wdToggle

 

[ssonap]

Bonjour Chris et merci,
Ca marche bien avec le code ci-dessous

Dim appWrd As Word.Application

   appWrd.Selection.HomeKey Unit:=wdStory
   appWrd.Selection.Goto What:=wdGoToBookmark, Name:="SIGNET1"
   appWrd.Selection.Paste
   appWrd.Selection.Goto What:=wdGoToBookmark, Name:="SIGNET1"
   'Répeter première ligne du tableau'
   appWrd.Selection.MoveDown Unit:=wdLine, Count:=2, Extend:=wdExtend
   appWrd.Selection.Rows.HeadingFormat = wdToggle

Et j'ai bien les deux première lignes de mon tableau