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

Hasco

XLDnaute Barbatruc

Repose en paix

• 6 Octobre 2020

• #2

bonjour,

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

cordialement

 

Vote positif 0 Vote négatif

S

ssonap

XLDnaute Nouveau

• 6 Octobre 2020

• #3

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

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 6 Octobre 2020

• #4

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)

VB:

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

 

Vote positif 0 Vote négatif

Solution

S

ssonap

XLDnaute Nouveau

• 6 Octobre 2020

• #5

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

VB:

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

 

Vote positif 0 Vote négatif