Enorme problème avec une boucle for et do

[bichon]

Salut a tous et a toutes
j'ai encore un ptit problème avec la numerotation des feuille que j'imprime
je m'explique
j'ai des element dans une listbox qui corresponde a des classeurs et je souhaiterai
les imprimer en le numerotant dans une cellule
voici mon code pour l'instant

Dim i As Byte
Dim j As Byte
Dim NomClasseur As String
j = 1
Do While j < Optbase.ListBox2.ListCount
For i = 1 To Optbase.ListBox2.ListCount
NomClasseur = Worksheets("Baseopt").Cells.Find(What:=Optbase.ListBox2.List(i - 1), After:=ActiveCell, LookIn _
:=xlValues, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:= _
xlNext, MatchCase:=False).Cells(1, 2)

'Ouvrons le fichier correspondant:
Workbooks.Open FileName:="F:\Metachut2003\Optmet\Fiches\" & NomClasseur

Range("AA2").Value = j
Range("T3").Value = TextBox1.Value
Range("Q2").Value = TextBox2.Value
Range("X2").Value = TextBox3.Value
Range("T2").Value = TextBox4.Value

j = j + 1
Loop

' imprime classeur actif
ActiveWindow.SelectedSheets.PrintOut Copies:=1
' ferme sans sauvegarder
ActiveWorkbook.Close savechanges:=False

Next i

voila en fait j serai un compteur que j'incremente et j'aimerai qu'a chaque page que j'imprime
il sincremente de 1
ce code que je vous met ne marche pas mais ca serai la solution
car en fait j'aimerai mettre le do avant le for
et repeter le loop avant le next
problème vba n'aime pas trop
comment faire? je me suis rendu fou toute la journée pour essayé de trouver une solution
sans succès a l'aiiiiiiiiiiiiddddddddddee
car si je met le do apres le for ben les element que j'ai des ma listbox et que je veux imprimer
si j'ai 2 feuille a imprimer il m'imprimera la 1ere feuille 2 fois le compteur marchera certe
mais je n'aurai que la premiere feuille et inversement si for d'abors il va m'imprimé
les bonne feuille mais sans le compteur

j'ai vraiment besoin d'aide
voila je remercie 1000 fois celui qui corrigera mes boucles
encore merci

bichon

 

[BabMax]

Salut Bichon

J'essaie de comprendre ??
Je t'expose ce que je pense avoir compris.

Chaque classeur ne comporte qu'une seule feuille.
Sur cette feuille, tu veux le N° dans la listebox correspondant au nom du classeur . Puis tu imprimes la feuille.

Si c'est cela, enlève La boucle DO LOOP

A++