comdlg32.dll, kernel32.dll, advapi32.dll

Question

Bonjour à tous,

Je voudrais utiliser une librairie : comdlg32.dll

Mais lors de la déclaration de ma fonction :

Public Declare Function GetOpenFileName Lib "comdlg32.dll" _
    Alias "GetOpenFileNameA" (pOpenfilename As openfilename) As Long

Le compilateur me dit : « Type défini par l&#8217;utilisateur non défini ».

Je pense qu&#8217;une des causes d&#8217;erreur est la suivante : c&#8216;est parce que le compilateur ne trouve pas «GetOpenFileName ».  Je pense que pour déclarer une fonction qui se trouve dans une librairie externe, il faut mettre la librairie dans les références (Outils > Références).  Mais quand j&#8217;essaye d&#8217;ajouter la librairie « comdlg32.dll », le VBA refuse de le faire.  La rubrique d&#8217;aide correspondante dit que c&#8217;est peut-être parce que cette DLL n&#8217;est pas lisible par Visual Basic.

Pourtant cette librairie comdlg32.dll se trouve bien sur mon ordinateur (même à plusieurs endroits), et j&#8217;ai aussi bien fait le :

Public Type openfilename
&#8230;
End Type

J&#8217;ai le même problème avec la librairie kernel32.dll et advapi32.dll

Dans mon programme, j&#8217;utilise une autre déclaration de fonction, utilisant une autre librairie : shell32.dll.  J&#8217;ai pu ajouter cette librairie dans mes  références, je l&#8217;ai trouvée sous le nom de « Microsoft Shell Controls and Automation » (dans la liste de librairies que Visual Basic propose).  Donc pour cette librairie-là, tout fonctionne bien.

Pensez-vous que, comme le dit l&#8217;Assistant Aide, la librairie comdlg32.dll n&#8217;est que lisible par Vb et pas par VBA (Access) ?

Un grand merci !!

Dominique1200

PS : je dispose pour le VBA d&#8217;Access 10.0 et aussi Visual Basic 6.0

Renfield · Answer

tu utilises un parametre definit en tant qu'OPENFILENAME

c'est ca qui pos probleme :

Public Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type

Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (ByRef pOpenfilename As OPENFILENAME) As Long

Amusez-vous !  ;) 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS

Dominique1200 · Answer

Un grand merci.

J'avais bien fait le 

Public Type nom_type
...
End Type

Mais c'est parce que justement j'avais mis cette 
déclaration de type après le "Public Declare Function".
L'erreur était simple.

Mais par contre, j'ai été étonné qu'il ne faille pas ajouter
les librairies API à la liste des librairies utilisées dans 
notre projet par OUTIL > REFERENCES.
Je vous dis cela, parce que j'ai perdu pas mal de temps à essayer 
d'ajouter ces librairies à mon projet, mais Visual Basic refuse.

et je trouve dommage que dans tout ce que j'ai lu (livres ou sites web), je n'ai rien vu à ce propos.

Juste mentionner le nom de la librairie qui nous intéresse (par exemple comdlg32.dll, 
kernel32.dll, advapi32.dll) suffit.  Personnellement, je trouverais plus logique de 
mentionner le path complet de la librairie, j'ai essayé, cela fonctionne
aussi.

Encore merci.

Dominique

Renfield · Answer

Pas besoin de tout le chemin, ces Dll sont recherchées dans le repertoire de l'executable, et ensuite dans les repertoires systemes....

tu devrai aller faire un tour sur www.allapi.net"

tu pourrais récupérer un l'API Guide, et l'API Viewer

Amusez-vous !  ;) 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS

Comdlg32.dll, kernel32.dll, advapi32.dll

3 réponses

Discussions similaires