Bonjour à tous

J'ai une macro Excel qui m'extrait des données (du texte) de quelques cellules bien précises dans un tableau Word vers Excel

Le problème c'est que l'extraction de la macro s'arrete sur la première cellule qu'elle trouve vide (c'est-à-dire pas de données à extraire) elle continue pas l'extraction des autres cellules

Ce que je voudrai faire un test que si ma macro trouve une cellule vide elle me revoit vide dans ma cellule Excel et elle continue l extraction des autres cellules ainsi de suite

Voila une partie de ma macro qui m'extrait deux cellules bien précises d'un tabelau Word

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Set rng = WDoc.Range    'Plage de recherche
      With rng.Find
         .ClearFormatting
         .Text = "Produits techniques"                   ' Texte à rechercher (se trouvant avant la tableau)
         .Execute
      End With
      If rng.Find.Found Then
         rng.Select
         rng.MoveStart Unit:=wdTable
         rng.Goto What:=wdGoToTable, Which:=wdGoToNext, Count:=1
'Selectionne le tableau trouvé pour extraire les données
    Set WTable = rng.Tables(1)
sTexte = WTable.Cell(1, 2).Range.Text     'La cellule à extraire
sTexte = WTable.Cell(2, 3).Range.Text     'La cellule à extraire
 
End If
End Sub
Merci