Bonjour,
Je ne comprends pas pourquoi l'exécution du code suivant plante sur la ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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