Probleme d'ouverture de fenetre en VBA
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
