rss
Rechercher : dans
Par : Pertinence Date Nom d'utilisateur
Statut : Non résolu

[ACCESS] bouton parcourir

HiWi, le lundi 14 avril 2008 à 10:10:27
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 :
http://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.
Configuration: Windows XP
Firefox 2.0.0.13
Access 2003
Répondre à HiWi  Signaler ce message aux modérateurs Aller au dernier message
22 réponses 12

1


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
HiWi, le lundi 14 avril 2008 à 14:03:16
Up!
   
Répondre à HiWi

2


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
HiWi, le mardi 15 avril 2008 à 14:05:43
Hurry Up !! !! !
   
Répondre à HiWi

3


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Pliz, le mercredi 16 avril 2008 à 08:57:59
Personne !? :(
   
Répondre à Pliz

4


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
HiWi, le jeudi 17 avril 2008 à 10:06:51
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 :
http://access.developpez.com/faq/?page=CheminsRep#AffBoitDia­log

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+
   
Répondre à HiWi

5


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
amigo, le jeudi 17 avril 2008 à 11:20:33
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+.
   
Répondre à amigo

6


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Hiwi, le jeudi 17 avril 2008 à 11:35:20
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.
   
Répondre à Hiwi

7


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
amigo, le jeudi 17 avril 2008 à 13:37:54
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+.
   
Répondre à amigo

8


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Hiwi, le jeudi 17 avril 2008 à 13:47:51
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
   
Répondre à Hiwi

9


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
HIwiiiii, le jeudi 17 avril 2008 à 14:15:08
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
   
Répondre à HIwiiiii

10


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
amigo, le jeudi 17 avril 2008 à 14:55:16
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+.
   
Répondre à amigo

11


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
HiWii, le jeudi 17 avril 2008 à 15:07:38
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 ?
   
Répondre à HiWii

12


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
amigo, le jeudi 17 avril 2008 à 15:18:36
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+.
   
Répondre à amigo

13


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
HiWii, le jeudi 17 avril 2008 à 15:32:17
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 :(
   
Répondre à HiWii

14


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
amigo, le jeudi 17 avril 2008 à 15:41:41
Comment as tu fais pour que ça marche juste avant?
Il faut faire pareil mais manière automatique.

A+.
   
Répondre à amigo

15


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
HiWii, le jeudi 17 avril 2008 à 15:46:19
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 !
   
Répondre à HiWii

16


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
amigo, le jeudi 17 avril 2008 à 15:52:45
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+.
   
Répondre à amigo

17


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
HiWi, le jeudi 17 avril 2008 à 15:57:44
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+
   
Répondre à HiWi

18


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
amigo, le jeudi 17 avril 2008 à 16:47:24
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+.
   
Répondre à amigo

19


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
amigo, le jeudi 17 avril 2008 à 16:56:53
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+.
   
Répondre à amigo
22 réponses 12Posez votre question Répondre
Logiciels pertinents trouvés dans les téléchargements
Télécharger Firefox Accessibility Extension 1.4.5.0Firefox Accessibility Extension - Sous Windows il existe déjà une option d'accessibilité pour les personnes à mobilité réduite ou ayant des problèmes de vue....Catégorie: Extensions Firefox
Licence: Freeware/gratuit
Télécharger Tux Paint 0.9.20bTux Paint - TuxPaint Tux Paint est un logiciel de dessin libre conçu pour les jeunes enfants âgés de 3 ans et plus. Il possède une...Catégorie: Dessin
Licence: Freeware/gratuit
Télécharger iCarbon 2.2.1iCarbon - Vous avez un PC avec scanner et imprimante ? Alors iCarbon transforme le tout en photocopieuse. Le logiciel est très...Catégorie: Bureautique
Licence: Freeware/gratuit
Télécharger OpenOffice.org 2.4.1OpenOffice.org - OpenOffice est une suite bureautique complète entièrement gratuite, compatible avec la suite Microsoft Office. Elle...Catégorie: Suite bureautique
Licence: Open Source
Plus de logiciels gratuits sur « [ACCESS] bouton parcourir »