Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Utiliser l'explorateur

7 réponses
Avatar
Bernard-VIVIER
Comment puis-je obtenir l'exporateur dans un formulaire, afin que le dossier
ou le fichier choisi apparaisse dans un champs précis (appelons-le :
forms![Formulaire]![Champ] de ce formulaire.

Merci d'avance,

7 réponses

Avatar
Raymond [mvp]
Bonjour.

il faut utiliser une api getopenfilename que tu trouveras sur:
http://access.seneque.free.fr/ouverture_document.htm" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://access.seneque.free.fr/ouverture_document.htm

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Bernard-VIVIER" a écrit dans le message de
news:c9mp3p$m94$
Comment puis-je obtenir l'exporateur dans un formulaire, afin que le
dossier

ou le fichier choisi apparaisse dans un champs précis (appelons-le :
forms![Formulaire]![Champ] de ce formulaire.

Merci d'avance,




Avatar
Jessy Sempere [MVP]
Bonjour

pour sélectionner le dossier, tu peux regarder ici :
http://access.jessy.free.fr/index.html?Menu=6&Page=GetDirectory" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://access.jessy.free.fr/index.html?Menu=6&Page=GetDirectory


et pour sélectionner le fichier :
http://access.jessy.free.fr/index.html?Menu=6&Page=OpenFile" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://access.jessy.free.fr/index.html?Menu=6&Page=OpenFile


@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Bernard-VIVIER" a écrit dans le message news:
c9mp3p$m94$
Comment puis-je obtenir l'exporateur dans un formulaire, afin que le
dossier

ou le fichier choisi apparaisse dans un champs précis (appelons-le :
forms![Formulaire]![Champ] de ce formulaire.

Merci d'avance,




Avatar
Bernard-VIVIER
Problème sur Access 2000, le débogage fait apparaître sur les lignes :

Public Declare Function GetOpenFileName Lib "comdlg32. dll" _
Alias "GetOpenFileNameA" (pOpenfilename As OpenFileName) As Long

et
Global Dialogue As OpenFileName

Le message suivant apparaît : Type définit par l'utilisateur non définit...

Cordialement,
BV


"Raymond [mvp]" a écrit dans le message de
news:
Bonjour.

il faut utiliser une api getopenfilename que tu trouveras sur:
http://access.seneque.free.fr/ouverture_document.htm" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://access.seneque.free.fr/ouverture_document.htm

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Bernard-VIVIER" a écrit dans le message de
news:c9mp3p$m94$
Comment puis-je obtenir l'exporateur dans un formulaire, afin que le
dossier

ou le fichier choisi apparaisse dans un champs précis (appelons-le :
forms![Formulaire]![Champ] de ce formulaire.

Merci d'avance,








Avatar
Raymond [mvp]
excuse moi mais,
Global Dialogue As OpenFileName
n'existe pas dans ma fonction, tu dois confondre.
je n'utilise jamais global mais public.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Bernard-VIVIER" a écrit dans le message de
news:c9n21i$k44$
Problème sur Access 2000, le débogage fait apparaître sur les lignes :

Public Declare Function GetOpenFileName Lib "comdlg32. dll" _
Alias "GetOpenFileNameA" (pOpenfilename As OpenFileName) As Long

et
Global Dialogue As OpenFileName

Le message suivant apparaît : Type définit par l'utilisateur non
définit...


Cordialement,
BV


Avatar
Bernard-VIVIER
Je suis désolé d'insister lourdement, mais j'ai placé sous Access 2000 l'api
ainsi :

Private Sub Répertoire_DblClick(Cancel As Integer)
Me.Répertoire = OpenFile(CurrentProject.path, Multi_Sélection)
MsgBox "il y a " & nOpenFile & " fichiers sélectionnés"
End Sub

Au lancement, il m'affiche le message : Nombre d'arguments incorect ou
affectation de propriété incorrecte. Pourtant, j'ai bien recopié
l'intégralité de la procédure dans un module où, il est vrai existait déjà
du code...

Faut-il sélectionner une référence particulière dans la bibliothèque des
références ? J'ai déjà sélectionné :
Visual Basic for application,
Microsoft Access 9.0 objetct librairy,
OLE automation,
Microsoft activeX data objects.2.1 librairy et
Microsoft Scripting Runtime

Merci d'avance,
BV

"Raymond [mvp]" a écrit dans le message de
news:
Bonjour.

il faut utiliser une api getopenfilename que tu trouveras sur:
http://access.seneque.free.fr/ouverture_document.htm" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://access.seneque.free.fr/ouverture_document.htm

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Bernard-VIVIER" a écrit dans le message de
news:c9mp3p$m94$
Comment puis-je obtenir l'exporateur dans un formulaire, afin que le
dossier

ou le fichier choisi apparaisse dans un champs précis (appelons-le :
forms![Formulaire]![Champ] de ce formulaire.

Merci d'avance,








Avatar
Raymond [mvp]
je ne trouve pas ça.

lorsque tu frappes openfile et que tu tapes une paranthèse, les argumennts
doivent s'afficher, sont-ils bien ceux prévus et non ceux d'une autre
fonction portant le même nom dans ton appli ? la compilation est bonne ?
sans erreur ? je suis étonné.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Bernard-VIVIER" a écrit dans le message de
news:c9n3te$5ht$
Je suis désolé d'insister lourdement, mais j'ai placé sous Access 2000
l'api

ainsi :

Private Sub Répertoire_DblClick(Cancel As Integer)
Me.Répertoire = OpenFile(CurrentProject.path, Multi_Sélection)
MsgBox "il y a " & nOpenFile & " fichiers sélectionnés"
End Sub

Au lancement, il m'affiche le message : Nombre d'arguments incorect ou
affectation de propriété incorrecte. Pourtant, j'ai bien recopié
l'intégralité de la procédure dans un module où, il est vrai existait déjà
du code...

Faut-il sélectionner une référence particulière dans la bibliothèque des
références ? J'ai déjà sélectionné :
Visual Basic for application,
Microsoft Access 9.0 objetct librairy,
OLE automation,
Microsoft activeX data objects.2.1 librairy et
Microsoft Scripting Runtime

Merci d'avance,
BV


Avatar
Bernard-VIVIER
Maintenant, ça marche...

J'ai intégré vos procédures dans un module pré-existant, ou ne figurait pas
la mention Option Explicite...

Merci beaucoup et toutes mes excuses.

Cordialement.
BV

"Raymond [mvp]" a écrit dans le message de
news:
je ne trouve pas ça.

lorsque tu frappes openfile et que tu tapes une paranthèse, les argumennts
doivent s'afficher, sont-ils bien ceux prévus et non ceux d'une autre
fonction portant le même nom dans ton appli ? la compilation est bonne ?
sans erreur ? je suis étonné.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Bernard-VIVIER" a écrit dans le message de
news:c9n3te$5ht$
Je suis désolé d'insister lourdement, mais j'ai placé sous Access 2000
l'api

ainsi :

Private Sub Répertoire_DblClick(Cancel As Integer)
Me.Répertoire = OpenFile(CurrentProject.path, Multi_Sélection)
MsgBox "il y a " & nOpenFile & " fichiers sélectionnés"
End Sub

Au lancement, il m'affiche le message : Nombre d'arguments incorect ou
affectation de propriété incorrecte. Pourtant, j'ai bien recopié
l'intégralité de la procédure dans un module où, il est vrai existait
déjà


du code...

Faut-il sélectionner une référence particulière dans la bibliothèque des
références ? J'ai déjà sélectionné :
Visual Basic for application,
Microsoft Access 9.0 objetct librairy,
OLE automation,
Microsoft activeX data objects.2.1 librairy et
Microsoft Scripting Runtime

Merci d'avance,
BV