Discussion :

[rkubiak]

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

[AlainTech]

C'est que le classeur en question n'est pas présent dans la Collection des classeurs ouverts.

[rkubiak]

Merci pour la réponse.
Cependant, le but de l'instruction 'On Error Resume Next' est d'éviter d'avoir un message d'erreur.
Pourquoi cela ne fonctionne pas dans ce cas.

Merci encore.

[AlainTech]

Sorry, je m'étais arrêté sur la ligne provoquant l'erreur.

Je viens de tester ton code et je ne reçois pas de message d'erreur.
Tu nous as bien mis la totalité de ton code?

[rkubiak]

Excuses acceptées.

Voici le classeur avec la macro.
Ca sent le bug à plein nez.

[rkubiak]

Je viens de tester ce code sur un EXCEL 2000 et effectivement, tout est OK.

Donc, je vais essayer ce code chez quelqu'un qui est dans la même version que moi.

Je vous tiens au courant.

[rkubiak]

J'ai testé sur un EXCEL 2003 SP2 (11.6560.6568) et cela fonctionne également.
Pour info, je suis sur un EXCEL 2003 (11.5612.5606).

Je vais me mettre à jour de ce pas.

[rkubiak]

Finalement, j'ai supprimé mon profil Windows.

Désolé de vous avoir fait perdre votre temps.