Citation Envoyé par Halo2550 Voir le message
Ok donc mon problème reste entier. Je ne sais toujours pas pourquoi ce code ne marche pas :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
On error GoTo t
ActiveSheet.ShowAllData
t:
' Traitements quelconques '
On error GoTo 0
' Traitements quelconques '
On error Resume Next
ActiveSheet.ShowAllData
Là dans cet exemple le On error Resume Next ne fonctionne pas si je n'ai pas utilisé de Resume pour la 1ère erreur du1er ShowAllData
J'ai exactement le même problème, j'ai été obligé de mettre deux On Error Resume Next sur mes .ShowAllData successifs, à défaut de pouvoir créer un errorHandler qui fonctionne 2 fois consécutives.