rebonjour tout le monde , je vais essayer d'être plus clair sur mon problème: en fait le but de ma fonction est de vérifier que les pages qui doivent l'être sont bien cachées et de les cacher si elles ne le sont pas.
voila le code:
Private Sub UserForm_Activate()
Dim req As String
Dim dat As Variant
Dim dbdates As Recordset
Call maz
Dim chemin As String
chemin = 'K:\\Process\\Perf_environnement\\Personnel\\julien\\CONDENSEUR\\Essais_condens.mdb'
Set db = OpenDatabase(chemin)
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
Call init
End Sub
Seulement le problème c'est qu' il me sort une erreur d'execution 'l'indice n'appartient pas à la séléction' au moment du if quand il arrive à la feuil10 (diffusion 05_05_2003).
J'ai vérifié il ne manque pas d'espace ni rien et si je place diffusion 05_05_2003 à la feuil7 par exemple l'erreur n'a lieu qu'à la date suivante.
Je ne sais pas quoi faire pour règler le problème aidez moi SVP
PS: le fichier est trop gros je ne peut pas l'envoyer.