OVH Cloud OVH Cloud

Explorateur de fichier intégré dans un formulaire

8 réponses
Avatar
Fred87
Bonjour,

Je cherche par le biais d'un OCX ou autre =E0 int=E9grer
dans un formulaire l'=E9quivalent d'un explorateur de=20
fichier.
Je veux eviter de passer par la lecture de l'arborescence=20
et la mise en m=E9moire dans des tables.

La function GetOpenFileName de la Lib "comdlg32.dll" est
bien utile, mais elle ouvre une autre fen=EAtre ind=E9pendante
et passe en arri=E8re plan si on clique sur un formulaire=20
dans access.

Est ce que quelqu'un peut me donner quelques tuyaux, cela=20
me serais fort utile.

En vous remerciant d'avance

Fred87

8 réponses

Avatar
Fred87
Bonjour à Tous les AccessMan (and woman)

Bon j'ai résolu mon pb, y compris le glisser déposé dans
un TreeView et tout cela dans un formulaire access.

Si mon effort de recherche peut servir à quelqu'un,
qu'il me le fasse savoir. Je le tuyauterais volontier.

A bientôt

Fred87
Avatar
PatCatNat's
Bonjour,

Effectivement cela m'interesse (Access97)

Patrice



"Fred87" a écrit dans le message de
news:1fa6201c45837$b5ede990$
Bonjour à Tous les AccessMan (and woman)

Bon j'ai résolu mon pb, y compris le glisser déposé dans
un TreeView et tout cela dans un formulaire access.

Si mon effort de recherche peut servir à quelqu'un,
qu'il me le fasse savoir. Je le tuyauterais volontier.

A bientôt

Fred87
Avatar
Raymond [mvp]
Bonjour.

il serait bon que tu exposes brièvement la solution que tu as adoptée et
ensuite chacun demandera des compléménets éventuels.

--
@+
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


"Fred87" a écrit dans le message de
news:1fa6201c45837$b5ede990$
Bonjour à Tous les AccessMan (and woman)

Bon j'ai résolu mon pb, y compris le glisser déposé dans
un TreeView et tout cela dans un formulaire access.

Si mon effort de recherche peut servir à quelqu'un,
qu'il me le fasse savoir. Je le tuyauterais volontier.

A bientôt

Fred87
Avatar
FRED87
Bonjour à Tous


En fait j'utilise un OCX "Newex.ocx" qui est facile à
utiliser.

Il comporte deux Class "ExplorerTree" qui est l'équivalent
de la fenêtre de gauche de l'explorateur windows,
et "ExplorerList" qui est l'équivalent de la fenêtre de
droite.

Dans le formulaire il suffit alors d'insérer les deux
Controle et le tour est joué, il est alors trés simple
de récupérer le chemin de n'importe quel fichier et
dossier pour le placer dans une table.


Voici les codes d'exemple pour le fonctionnement

'----------- pour l'exploreur list --------------
Private Sub ExplorerList_FolderClick()
ExplorerTree.FolderClick (ExplorerList.FileName)
End Sub

Private Sub ExplorerList_GetFileName()
Me![Chemin] = ExplorerList.FileName
End Sub
'-------------------------------------------------


'----------- pour l'exploreur tree --------------
Private Sub ExplorerTree_OnDirChanged()
Me![Dossier] = ExplorerTree.Path
End Sub

Private Sub ExplorerTree1_TreeDataChanged()
ExplorerList.TreeDatas = ExplorerTree.TreeDatas
End Sub
'-------------------------------------------------

Voila si il y a d'autre question ....

A plus

Fred 87
Avatar
Raymond [mvp]
Question avant que tout le monde la pose:

Où trouve-ton l'activex Newex.ocx ?

--
@+
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


"FRED87" a écrit dans le message de
news:200af01c45906$c12f60c0$
Bonjour à Tous


En fait j'utilise un OCX "Newex.ocx" qui est facile à
utiliser.

Il comporte deux Class "ExplorerTree" qui est l'équivalent
de la fenêtre de gauche de l'explorateur windows,
et "ExplorerList" qui est l'équivalent de la fenêtre de
droite.

Dans le formulaire il suffit alors d'insérer les deux
Controle et le tour est joué, il est alors trés simple
de récupérer le chemin de n'importe quel fichier et
dossier pour le placer dans une table.


Voici les codes d'exemple pour le fonctionnement

'----------- pour l'exploreur list --------------
Private Sub ExplorerList_FolderClick()
ExplorerTree.FolderClick (ExplorerList.FileName)
End Sub

Private Sub ExplorerList_GetFileName()
Me![Chemin] = ExplorerList.FileName
End Sub
'-------------------------------------------------


'----------- pour l'exploreur tree --------------
Private Sub ExplorerTree_OnDirChanged()
Me![Dossier] = ExplorerTree.Path
End Sub

Private Sub ExplorerTree1_TreeDataChanged()
ExplorerList.TreeDatas = ExplorerTree.TreeDatas
End Sub
'-------------------------------------------------

Voila si il y a d'autre question ....

A plus

Fred 87
Avatar
FRED87
Bonjour

J'ai téléchargé cet ocx il y a quelques temps deja, et le
pb est que je ne retrouve plus le lien.

Comme je n'ai pas de site web, pourrait tu le mettre sur
ton site Raymond ?

A quel adresse doit je le faire parvenir ?

A plus

Fred87
Avatar
Raymond [mvp]
Bonjour.

pour que je puisse le mettre sur mon site il faut que je connaisse la
provenance et qu'éventuellement je demande la permission écrite au
propriétaire. Faut toujours respecter le travail d'autrui.
Tu peux me l'envoyer en enlevant XYZ. dans mon adresse.

--
@+
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


"FRED87" a écrit dans le message de
news:20ce701c459b2$26e2e030$
Bonjour

J'ai téléchargé cet ocx il y a quelques temps deja, et le
pb est que je ne retrouve plus le lien.

Comme je n'ai pas de site web, pourrait tu le mettre sur
ton site Raymond ?

A quel adresse doit je le faire parvenir ?

A plus

Fred87
Avatar
Raymond [mvp]
J'ai trouvé le propriétaire.

Vision factory GMBH, société allemande. dans l'ocx il y a un gros copyright
ce qui m'interdit formellement de le diffuser. dommage pour tout le monde.

--
@+
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