Here's the bummer:

Private Sub TraitementComplet()
OuvreTables
AcXref.MoveFirst
Do While Not AcXref.EOF
If Not LigneUtile(AcXref!Col001) Then
AcXref.MoveNext
Loop
End If
If InStr("File:", AcXref!Col001) > 0 Then
mNomDeTable = Trim(Mid(AcXref!Col001, 28, 10))
lblTable.Caption = mNomDeTable
If mTable <> mNomDeTable Then
mCompteur = 0
mTable = mNomDeTable
End If
AcXref.MoveNext
Loop
End If
ExtraitInfoLigne
Stats
Dictionnaire
XRef
AcXref.MoveNext
Loop
End Sub

I'm trying to loop within the Do While and the programs bombs out with an error saying that there is a missing do for my loop statement...

I'm sure this is a wrong way of doing it! What is the right way. I'm trying to go back to the beginning of the do while AcXref statement to continue processing...

Thanks in advance for your "always helpfull" help.

Sincerely, Patrice