Interception erreur Excel 2003 / VB 6.3
Bonjour,
Je ne comprends pas pourquoi l'exécution du code suivant plante sur la ligne
Code:
Set Wb = Application.Workbooks("Consolidation_CPER.xls")
Je récupère un code erreur exécution 9 : l'indice n'appartient pas à la sélection.
Pourtant, sauf erreur de ma part, la gestion des erreurs me semble correcte.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
|
Option Explicit
Sub Auto_Open()
Dim Wb As Workbook
On Error Resume Next
Set Wb = Application.Workbooks("Consolidation_CPER.xls")
On Error GoTo 0
If Wb Is Nothing Then Exit Sub
...
End Sub; |
Merci de votre aide.
Cordialement,
Richard KUBIAK
