[AC-2000] Probleme d'ouverture de fenetre en VBA [Résolu]

[Tydher]

Bonjour à tous,

Voila, dans Access, j'ai un bouton faisant partie d'un formulaire me permettant de faire plusieurs traitements.

Au tout départ, je souhaite avoir une fenetre windows me permettant de choisir un fichier XLS.
Dans la FAQ Access, j'ai ré-utilisé le code de shwin
http://access.developpez.com/faq/?page=CheminsRep

Cependant, lors de la compilation j'ai un message d'erreur :
Erreur de compilation, erreur interne

Voila la ligne en question :

Code :

Dim StructFile As OPENFILENAME

Voila le debut de mon code qui correspond à l'appel de la fonction :

Code :

1
2
3
4
5
6
7
8
9
10
Dim oApp As Object
Dim Wkb As Object
Dim oWSht As Object
Dim oWkbName As String
'Index Variable
'Other Variable
'Object
Set oApp = CreateObject("Excel.Application")
'Excel PDP File
wb = OuvrirUnFichier(Application.hWndAccessApp, "Parcourir", 1, "Fichier Excel", "xls")

Je ne comprend pas d'où peux venir le probleme.

Vos réponses sont les bienvenue

[Tydher]

En fait, le probleme venait de la référence vers Excel qui n'etait pas activé.

Après l'avoir coché dans outils -> References, je n'ai plus eu d'erreurs et la fenetre c'est bien ouverte !