Discussion :

[YoukouleleY]

Bonjour, voici mon problème.

Je travaille actuellement en VBA sur un fichier Excel, et j'ai une procédure "Workbook_Open" qui va lancer deux fichiers xla en tant que macros complémentaires (AddIns.Add...), qui me servent, entre autres, a rajouter des barres d'outils que j'ai créées. Mon problème vient du fait que j'ai aussi une procédure "Workbook_SheetActivate" qui exécute une macro présente dans un des fichiers xla (Application.Run "machin.xla!nom_macro").
Cela fonctionne très bien, sauf au démarrage, apparemment le fichier xla n'est pas encore chargé lorsque la procédure "Workbook_SheetActivate" s'exécute, et j'obtiens un message d'erreur d'exécution 1004

'machin.xla' introuvable. Vérifiez l'orthographe du nom du classeur et la validité de l'emplacement.

Comment remédier à ce problème proprement, sans "On Error Resume Next" et autres méthodes barbares.

Merci d'avance pour vos réponses.

[Chipss]

Hmm tu as dis pas de methode barbare mais bon tu pourais pensé à ,boucler sur la ligne où l'erreur se produit temps que le numero d'erreur est égale à 1004.

Apres si c'est un petit peu trop barbare pour toi je sais pas comment faire d'autre...

[YoukouleleY]

J'ai testé ton idée, bien qu'elle implique un "On Error Resume Next" mais ne t'inquiètes pas, je ne suis pas complètement borné, j'y suis simplement réticent, car les erreurs passées sous silence peuvent provoquer d'autres erreurs, visibles ou non, et en trouver la cause peut devenir un casse-tête inextricable. Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next
Do
Application.Run "menubar.xla!set_db"
Loop While Err.Number = 1004
End Sub

J'obtiens une boucle infinie, avant que les xla ne soient chargés