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.
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.