Compter nombre de ligne d'un document Word

[zakou76]

Bonjour à tous
N'ayant pu trouver la solution à mon probleme, je m'adresse à vous pour une aide éventuelle.
Voila, je pilote un document Word à partir d'excel. Mon tableau sous Word comporte X lignes et je voudrais avant de le remplir à partir de d'Excel, supprimer toutes les lignes du tableau sauf la premiere ligne(l'entete).
Mon code:
Set wordApp = CreateObject("word.application")
Set wordDoc = wordApp.Documents.Open(NomFichJour) 'ouvre le doc Word
Set tblNew = wordDoc.Tables(6) 'le tableau dans word

'C'est ici où je voudrais supprimer toutes les lignes sauf la premiere

Set rowNew = wordDoc.Tables(6).Rows.Add 'ici j'insere une ligne
...

Merci pour votre aide.

 

[Guest]

Re : Compter nombre de ligne d'un document Word

Bonjour Zakou, le Forum

Compter nombre de lignes d'un document Word:

nbLignes=tblNew.Rows.Count 'Comme excel

Une proposition pour supprimer les lignes sauf la première.

With tblNew
     'Tant que la dernière ligne n'est pas la première
     Do While Not .Rows.Last.IsFirst
        'supprimer la dernière
        .Rows.Last.Delete
    Loop
End With

A+

 

[zakou76]

Re : Compter nombre de ligne d'un document Word

Bonsoir à tous.
Merci infiniment Mister Hasco. C'est exactement ce que je voulais.
Bye...