Salut. J'ai une ancienne appli sous Access 97 qui marchait impec jusque-
là mais qui, depuis quelques temps (disons quelques mois, sais plus
exactement) ne fonctionne plus avec la fonction API WIN32
GetOpenFileName(ofn). Aucune boîte ne s'affiche.
La fonction est a priori bien déclarée, la structure bien remplie, rien
ne plante, mais rien n'apparaît non plus à l'écran. Etrange évolution !
Une recherche Google et sur MS m'indique qu'effectivement
GetOpenFileName() peut ne pas fonctionner en VBA/Access alors que c'est
tjrs OK en VBA/Excel, mais je n'en sais pas plus. Voir <http://www.info-
3000.com/vbvba/fichier.php> par exemple.
Pourquoi ? Changement de DLL comdlg32.dll ? Qu'en pensez-vous ? Que
faire, sans utiliser un quelconque OCX bien sûr ?
Pour info, pb vu sous Windows 2000 Pro FR SP4 ; sais pas si idem sous
autre version.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
3stone
Salut,
"Blip" | J'ai une ancienne appli sous Access 97 qui marchait impec jusque- | là mais qui, depuis quelques temps (disons quelques mois, sais plus | exactement) ne fonctionne plus avec la fonction API WIN32 | GetOpenFileName(ofn). Aucune boîte ne s'affiche. |
Tu utilise ceci ? http://access.jessy.free.fr/htm/File/OpenFile.htm
A priori, elle devrait fonctionner à tous les coups!
"Blip"
| J'ai une ancienne appli sous Access 97 qui marchait impec jusque-
| là mais qui, depuis quelques temps (disons quelques mois, sais plus
| exactement) ne fonctionne plus avec la fonction API WIN32
| GetOpenFileName(ofn). Aucune boîte ne s'affiche.
|
Tu utilise ceci ?
http://access.jessy.free.fr/htm/File/OpenFile.htm
A priori, elle devrait fonctionner à tous les coups!
"Blip" | J'ai une ancienne appli sous Access 97 qui marchait impec jusque- | là mais qui, depuis quelques temps (disons quelques mois, sais plus | exactement) ne fonctionne plus avec la fonction API WIN32 | GetOpenFileName(ofn). Aucune boîte ne s'affiche. |
Tu utilise ceci ? http://access.jessy.free.fr/htm/File/OpenFile.htm
A priori, elle devrait fonctionner à tous les coups!
"Blip" | J'ai une ancienne appli sous Access 97 qui marchait impec jusque- | là mais qui, depuis quelques temps (disons quelques mois, sais plus | exactement) ne fonctionne plus avec la fonction API WIN32 | GetOpenFileName(ofn). Aucune boîte ne s'affiche. |
Tu utilise ceci ? http://access.jessy.free.fr/htm/File/OpenFile.htm
A priori, elle devrait fonctionner à tous les coups!
In article <#CUdWAXUFHA.1896@TK2MSFTNGP14.phx.gbl>, 3stone_@_skynet_be
says...
Salut,
"Blip"
| J'ai une ancienne appli sous Access 97 qui marchait impec jusque-
| là mais qui, depuis quelques temps (disons quelques mois, sais plus
| exactement) ne fonctionne plus avec la fonction API WIN32
| GetOpenFileName(ofn). Aucune boîte ne s'affiche.
|
Tu utilise ceci ?
http://access.jessy.free.fr/htm/File/OpenFile.htm
A priori, elle devrait fonctionner à tous les coups!
"Blip" | J'ai une ancienne appli sous Access 97 qui marchait impec jusque- | là mais qui, depuis quelques temps (disons quelques mois, sais plus | exactement) ne fonctionne plus avec la fonction API WIN32 | GetOpenFileName(ofn). Aucune boîte ne s'affiche. |
Tu utilise ceci ? http://access.jessy.free.fr/htm/File/OpenFile.htm
A priori, elle devrait fonctionner à tous les coups!
"Blip" | J'ai une ancienne appli sous Access 97 qui marchait impec jusque- | là mais qui, depuis quelques temps (disons quelques mois, sais plus | exactement) ne fonctionne plus avec la fonction API WIN32 | GetOpenFileName(ofn). Aucune boîte ne s'affiche. |
Tu utilise ceci ? http://access.jessy.free.fr/htm/File/OpenFile.htm
A priori, elle devrait fonctionner à tous les coups!
Ca marche, effectivement. Pas comparé à mon code et n'ai donc pas encore vu quelle est la différence, mais ça marche impec.
Sinon, j'ai juste changé, la ligne "OpenFile = Dialogue.lpstrFile" par "OpenFile = Left$(Dialogue.lpstrFile, InStr(Dialogue.lpstrFile, Chr$(0)) - 1)" pour obtenir une chaîne propre en retour, mais c'est tout.
Merci encore pour l'url.
In article <#CUdWAXUFHA.1896@TK2MSFTNGP14.phx.gbl>, 3stone_@_skynet_be
says...
Salut,
"Blip"
| J'ai une ancienne appli sous Access 97 qui marchait impec jusque-
| là mais qui, depuis quelques temps (disons quelques mois, sais plus
| exactement) ne fonctionne plus avec la fonction API WIN32
| GetOpenFileName(ofn). Aucune boîte ne s'affiche.
|
Tu utilise ceci ?
http://access.jessy.free.fr/htm/File/OpenFile.htm
A priori, elle devrait fonctionner à tous les coups!
Ca marche, effectivement. Pas comparé à mon code et n'ai donc pas encore
vu quelle est la différence, mais ça marche impec.
Sinon, j'ai juste changé, la ligne "OpenFile = Dialogue.lpstrFile" par
"OpenFile = Left$(Dialogue.lpstrFile, InStr(Dialogue.lpstrFile, Chr$(0))
- 1)" pour obtenir une chaîne propre en retour, mais c'est tout.
"Blip" | J'ai une ancienne appli sous Access 97 qui marchait impec jusque- | là mais qui, depuis quelques temps (disons quelques mois, sais plus | exactement) ne fonctionne plus avec la fonction API WIN32 | GetOpenFileName(ofn). Aucune boîte ne s'affiche. |
Tu utilise ceci ? http://access.jessy.free.fr/htm/File/OpenFile.htm
A priori, elle devrait fonctionner à tous les coups!
Ca marche, effectivement. Pas comparé à mon code et n'ai donc pas encore vu quelle est la différence, mais ça marche impec.
Sinon, j'ai juste changé, la ligne "OpenFile = Dialogue.lpstrFile" par "OpenFile = Left$(Dialogue.lpstrFile, InStr(Dialogue.lpstrFile, Chr$(0)) - 1)" pour obtenir une chaîne propre en retour, mais c'est tout.
Merci encore pour l'url.
Blip
In article <#, says...
Salut,
"Blip" | J'ai une ancienne appli sous Access 97 qui marchait impec jusque- | là mais qui, depuis quelques temps (disons quelques mois, sais plus | exactement) ne fonctionne plus avec la fonction API WIN32 | GetOpenFileName(ofn). Aucune boîte ne s'affiche. |
Tu utilise ceci ? http://access.jessy.free.fr/htm/File/OpenFile.htm
A priori, elle devrait fonctionner à tous les coups!
Bon, après comparaison et en tournant autour de ma fonction initiale, j'ai trouvé le pb. Il semblerait que ce soit l'assignation ofn.lpstrCustomFilter = "" (ogn étant la structure OPENFILENAME) dans ma fonction qui faisait que l'appel à GetOpenFileName() n'affichait rien à l'écran.
Est-ce que quelqu'un à une explication de la raison du pourquoi du comment de ce dysfonctionnement ? Sachant que, bien sûr, ofn.nMaxCustFilter était bien initialisé à zéro.
Juste pour comprendre.
In article <#CUdWAXUFHA.1896@TK2MSFTNGP14.phx.gbl>, 3stone_@_skynet_be
says...
Salut,
"Blip"
| J'ai une ancienne appli sous Access 97 qui marchait impec jusque-
| là mais qui, depuis quelques temps (disons quelques mois, sais plus
| exactement) ne fonctionne plus avec la fonction API WIN32
| GetOpenFileName(ofn). Aucune boîte ne s'affiche.
|
Tu utilise ceci ?
http://access.jessy.free.fr/htm/File/OpenFile.htm
A priori, elle devrait fonctionner à tous les coups!
Bon, après comparaison et en tournant autour de ma fonction initiale,
j'ai trouvé le pb. Il semblerait que ce soit l'assignation
ofn.lpstrCustomFilter = "" (ogn étant la structure OPENFILENAME) dans ma
fonction qui faisait que l'appel à GetOpenFileName() n'affichait rien à
l'écran.
Est-ce que quelqu'un à une explication de la raison du pourquoi du
comment de ce dysfonctionnement ? Sachant que, bien sûr,
ofn.nMaxCustFilter était bien initialisé à zéro.
"Blip" | J'ai une ancienne appli sous Access 97 qui marchait impec jusque- | là mais qui, depuis quelques temps (disons quelques mois, sais plus | exactement) ne fonctionne plus avec la fonction API WIN32 | GetOpenFileName(ofn). Aucune boîte ne s'affiche. |
Tu utilise ceci ? http://access.jessy.free.fr/htm/File/OpenFile.htm
A priori, elle devrait fonctionner à tous les coups!
Bon, après comparaison et en tournant autour de ma fonction initiale, j'ai trouvé le pb. Il semblerait que ce soit l'assignation ofn.lpstrCustomFilter = "" (ogn étant la structure OPENFILENAME) dans ma fonction qui faisait que l'appel à GetOpenFileName() n'affichait rien à l'écran.
Est-ce que quelqu'un à une explication de la raison du pourquoi du comment de ce dysfonctionnement ? Sachant que, bien sûr, ofn.nMaxCustFilter était bien initialisé à zéro.
Juste pour comprendre.
Blip
In article , Blip <none> says...
In article <#, says...
Bon, après comparaison et en tournant autour de ma fonction initiale, j'ai trouvé le pb. Il semblerait que ce soit l'assignation ofn.lpstrCustomFilter = "" (ogn étant la structure OPENFILENAME) dans ma fonction qui faisait que l'appel à GetOpenFileName() n'affichait rien à l'écran.
Un "ofn.lpstrCustomFilter = vbNullString" plutôt que "", puisque ce doit être une null-terminated string règle le pb :-) Voilà !
In article <MPG.1ce568f8112fff79897a3@news.free.fr>, Blip <none> says...
In article <#CUdWAXUFHA.1896@TK2MSFTNGP14.phx.gbl>, 3stone_@_skynet_be
says...
Bon, après comparaison et en tournant autour de ma fonction initiale,
j'ai trouvé le pb. Il semblerait que ce soit l'assignation
ofn.lpstrCustomFilter = "" (ogn étant la structure OPENFILENAME) dans ma
fonction qui faisait que l'appel à GetOpenFileName() n'affichait rien à
l'écran.
Un "ofn.lpstrCustomFilter = vbNullString" plutôt que "", puisque ce doit
être une null-terminated string règle le pb :-) Voilà !
Bon, après comparaison et en tournant autour de ma fonction initiale, j'ai trouvé le pb. Il semblerait que ce soit l'assignation ofn.lpstrCustomFilter = "" (ogn étant la structure OPENFILENAME) dans ma fonction qui faisait que l'appel à GetOpenFileName() n'affichait rien à l'écran.
Un "ofn.lpstrCustomFilter = vbNullString" plutôt que "", puisque ce doit être une null-terminated string règle le pb :-) Voilà !