plantage dans une boucle

[julien]

Salut à tous les forumeurs d'excel

Voila j'ai un petit probleme:

j'ai une boucle qui marche parfaitenment la plupart du temps mais qui plante dès que je dépasse la 10è feuille, et je ne sais pas pourquoi (pas d'erreur de frappe j'ai vérifié)
Je vous met le code:

req = 'select [date_essai] from CONDENS_TR1 '
Set dbdates = db.OpenRecordset(req)
While Not dbdates.EOF
dat = dbdates(0)
dat = Replace(dat, '/', '_')
If Sheets('Diffusion ' & dat).Visible = True Then
Sheets('Diffusion ' & dat).Visible = False
End If
dbdates.MoveNext
Wend

Si vous avez besoin de précision pour m'aider à résoudre ce problème nhésitez pas à demander .
merci d'avance

 

[Spock]

Bonjour,

Interressant, pourrais tu joindre le fichier ?

 

[2passage]

Bonjour,

euh.. c'est quoi 'plante' ?
A+

 

[julien]

je ne peut pas joindre le fichier meme en zip etv sans la base qui va avec il fait + de 150ko...
si vous voulez je peut essayer de vous l'envoyer par mail à la limite, ou meme si vous avez un autre moyen pour l'envoyer ce serait pas mal

quand je dis quil plante il me sort une erreur d'execution
mais bon le probleme c'est qu'il ne la sort pas la première foi qu'il parcourt la boucle mais largement après...

 

[julien]

je vais mettre quelques captures d'ecran pour vous aider
voila la première

 

[julien]

oups elle n'apparait pas désolé...
2è essai

 

[julien]

test