Votre question

[VBA] Probleme erreur 9 "L'indice n'appartient pas à la selection"

Tags :
  • Archive
  • Programmation
Dernière réponse : dans Programmation
3 Mars 2011 09:36:32

Bonjour,

J'ai un probleme lors de l'ouverture d'un fichier, je veux vérfié si les liaisons sont bonne ou non. J'ai ce code :
  1. nomfichier = liaison2 & "\" & liaison1
  2. 'cache l'ouverture du fichier
  3. 'Application.Visible = False
  4. 'si un fichier lié est deja archivé, la demande de mise a jour des liaisons ne s'affiche pas
  5. Application.DisplayAlerts = False
  6. Application.AskToUpdateLinks = False
  7. 'ouvre le fichier
  8.  
  9. 'si erreur dans le chemin, msg pour vérifier le fichier
  10. On Error GoTo ErrMsg
  11. Workbooks.Open FileName:=nomfichier
  12. Workbooks(liaison1).Activate
  13. MsgBox Err.Number & Err.Description
  14. ErrMsg:
  15. If Err.Number = 1001 Then
  16. MsgBox ("Une des liaisons n'est pas valide, vérifiez le fichier '" & liaison1 & "' et reconvertissez le."), vbExclamation
  17. Workbooks(liaison1).Close
  18. Exit Sub
  19. End If
  20.  
  21. 'active le fichier
  22. Workbooks(liaison1).Activate


Si j'ai l'erreur 1001 alors, j'affiche un Msgbox pour dire qu'il faut vérifier le fichier. Mais lorsque que j'execute au niveau de ma msgbox err.number, j'ai l'erreur 9 " L'indice n'appartient pas à la selection". Je ne vois pas pourquoi j'ai cela.

Une idée?

Merci d'avance

Autres pages sur : vba probleme erreur indice appartient selection

a b L Programmation
3 Mars 2011 20:05:21

Et si tu affiches nomfichier?
m
0
l
Tom's guide dans le monde
  • Allemagne
  • Italie
  • Irlande
  • Royaume Uni
  • Etats Unis
Suivre Tom's Guide
Inscrivez-vous à la Newsletter
  • ajouter à twitter
  • ajouter à facebook
  • ajouter un flux RSS