[ACCESS] bouton parcourir

Question

Bonjour,
Je cherche à créer un bouton parcourir sur mon formulaire pour allez chercher des fichiers (.doc,.pdf...1seul lien par enregistrement) dans l'arborescence du système! Après clique sur un bouton OK, le chemin s'inscrit dans une zone 'lien hypertexte". Et lorsque l'on clique sur ce lien, le fichier s'ouvre...

J'ai vu pas mal de sujet en recherchant sur google mais ce n'est pas assez précis !
J'ai donc un champ "lien hypertexte", et un bouton de commande.
Voir : 
https://access.developpez.com/faq/?page=CheminsRep#AffBoitDialog

http://www.commentcamarche.net/forum/affich 3262936 vba execl ajout d un bouton parcourir

PS : je crois que je n'ai pas 'Microfoft Common Dialog Control'

Merci de votre aide.

Pliz · Accepted Answer

Personne !? :(

HiWi · Answer

Up!

HiWi · Answer

Hurry Up !! !! !

HiWi · Answer

Salut,
Bon alors j'arrive à faire le bouton parcourir et à l'afficher dans une boite de dialogue, par contre je n'arrive pas à récupérer cette valeur(le chemin du fichier) dans un champ texte !!!

Voici mon code :
https://access.developpez.com/faq/?page=CheminsRep#AffBoitDialog

Mon champ texte où le chemin doit se stocker s'appelle TDE_liencv.


Merci de votre aide ! Je ne pense pas que ça doit être difficile mais aucun de mes essais ne fonctionne !

A+

amigo · Answer

Bonjour,

Il faut récuperer la valeur FileName et l'ecrire dans le champ textbox.

TDE_liencv.Value=CommonDialog1.FileName (a supposer que le controle CommonDialog s'appelle ainsi)
ou
TDE_liencv.Text=CommonDialog1.FileName 

A+.

Hiwi · Answer

Merci de ta réponse mais je n'utilise pas commonDialog moi !!?  J'ai pris le code du précédent message et je crée un module, il semblerait que le chemin soit stocké dans TypeRetour mais je n'arrive pas à le recup.

amigo · Answer

Re,

Tu utilise la fonction OuvrirUnFichier si j'ai bien compris.
cette fonction retourne une valeur de type string qui est le nom du fichier choisi.

TDE_liencv.Value= OuvrirUnFichier(Me.Hwnd, "Ouvrir Fichier", 1)

Essaye avec ça.

A+.

Hiwi · Answer

Nickelllllllll, j'avais pas bien compris comment il fallait utiliser OuvrirUnFichier en fait ! Je te remerci énormement ça fais plusieurs jours que je le voulait !!!

Merci et à bientot :D

HIwiiiii · Answer

Taratataaaaa, mes documents ne 'souvre pas par le biais du lien hypertext !
Les .txt c'est ok ça fonctionne mais pas les .xls, ni les .doc ! Rien ne se passe, il y a des infos à saisir pour dire quel logiciel doit ouvrir ? pourtant c'est la suite office ça devrait être lié non !?

Office 2003

amigo · Answer

Essaie de faire préceder le nom du fichier par le mot file:\

exemple si tu as un fichier qui s'appelle
c:\classeur1.xls

ecrire
file:\c:\classeur1.xls

juste pour voir

A+.

HiWii · Answer

Exact ça fonctionne, j'ai fais quelques test avec différentes extensions ça à l'air ok. Il faudrait donc modifier le module pour ajouter automatiquement le file:\ à chaque fois ?

amigo · Answer

Oui, puisque apparament c'est comme ça qu'on ecrit les hyperliens.
la formule sera alors

TDE_liencv.Value= "file:\" & OuvrirUnFichier(Me.Hwnd, "Ouvrir Fichier", 1) 

A+.

HiWii · Answer

Hmm Oui et Non, en fait cela marche ça rajoute bien le file:\ mais le lien ne s'ouvre pas et lorsqu'on regarde "modifier le lien hypertexte", il y a rien, on dirait que ça rempli le 'nom' mais pas le 'lien'.

Enfin bon je pense qu'il va falloir faire plusieurs test :(

amigo · Answer

Comment as tu fais pour que ça marche juste avant?
Il faut faire pareil mais manière automatique.

A+.

HiWii · Answer

Et bien quand je fais "cliq droit>liens hypertext>modifier le lien" je collais le file:// dans la zone ADRESSE mais on dirait que avec l'automatique ça ne s'écrit que en haut dans TEXTE A AFFICHER !

amigo · Answer

Moi, j'ai fait ça pour essayer

J'ai créé une table avec un champ "HyperLien" avec le type Lien hypertexte.
Si je met d:\classeur1.xls ou file:\d:\classeur1.xls, ça marche dans les deux cas.

A+.

HiWi · Answer

Oui mais pas les .doc si ?


Au final sur l'application, j'aurais 80% de .doc à peu près 18% sur .xls et le reste en .jpg !
Donc il faut que j'arrive à tout prendre et avec le file ça à l'air OK, mais pour l'instant ça ne passe que "manuellement"

a+

amigo · Answer

Effectivement, ça marche en manuel avec tous types de fichiers reconnus, mais pas en automatique. je n'ai pas trouvé pourqoi.
Je continue de chercher, si je trouve quelque chose, je te le ferai savoir.

A+.

amigo · Answer

J'ai trouvé

la syntaxe est la suivante:

texteaffiché#adresse#sousadresse#infobulle

chez toi se sera

dim fichier
fichier=OuvrirUnFichier(Me.Hwnd, "Ouvrir Fichier", 1) 
TDE_liencv.Value= fichier  & "#" & fichier


voila

A+.

amigo · Answer

En plus il faut que la proriété Is Hyperlink de TDE_liencv soit à Oui.

j'espère que ça va marcher

HiWi · Answer

Excellent cela fonctionne !!! Si tu peux m'expliquer  en quelque ligne ce serait super car je n'ai pas bien compris ! mais en tout cas ça marche et je te remerci pour ton aide durant toute cette après-midi !!!

Bonne soirée.
A+


PS: c'est surtout ça que j'ai pas digéré :
fichier  & "#" & fichier                         je comprends bien que ça doit être en relation avec la syntaxe mais après xD

amigo · Answer

Comme je te l'ai dit plus haut, la syntaxe pour entrer un hyperlien dans access est:

texteaffiché#adresse#sousadresse#infobulle 

4 champs séparés par "#"

le premier champ est le texte qui est affiché, c'est ce qui apparaissait dans le textbox
le deuxième champ est l'adresse du fichier, c'est ce qui manquait pour que ça marche
le troisième c'est une sous-adresse que je ne sais pas ce que c'est
et le quatrième c'est le texte qui est affiché dans l'infobulle lorsqu'on passe avec la souris par dessus.

Il faut au moins que les deux premiers champs soient renseignés.

On récupère le nom du fichier avec la boite de dialogue qu'on affecte à la variable fichier, ensuite on recompose la chaine pour satisfaire à la syntaxe. Le signe & sert à concatener deux chaines (textes).

si fichier="c:	oto"
fichier & "#" & fichier donne  "c:	oto#c:	oto"

Voila, bonne continuation.

[ACCESS] bouton parcourir - Page 2

Discussions similaires

Newsletters