Bonjour,
Je ne comprends pas pourquoi l'exécution du code suivant plante sur la ligneJe récupère un code erreur exécution 9 : l'indice n'appartient pas à la sélection.
Code : Sélectionner tout - Visualiser dans une fenêtre à part Set Wb = Application.Workbooks("Consolidation_CPER.xls")
Pourtant, sauf erreur de ma part, la gestion des erreurs me semble correcte.
Merci de votre aide.
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;
Cordialement,
Richard KUBIAK
Partager