Discussion :

[SIENWEST]

Bonjour,
je souhaiterai créer un formulaire appelé SAISIE qui contiendrait un sous-formulaire appelé LIENS. Ce sous-formulaire appellerai une table LIAISON contenant un champ de type hypertexte appelé LIEN_HYP.

Je voudrai que dans ce formulaire SAISIE il y ait un bouton de commande qui me permette d'ouvrir l'explorateur windows pour rechercher un fichier dans un répertoire quelconque et non défini à l'avance.

Quand le fichier est trouvé, je voudrai, par un double clic sur le fichier, que le nom et l'adresse de ce fichier soit récupéré et stocké dans le champ LIEN_HYP.

Ainsi, par la suite, je pourrai ouvrir par un clic sur le champ LIEN_HYP mon document.

Merci par avance à celui ou celle qui aura ce code.
Bien cordialement.
SIENWEST

[SIENWEST]

merci Claude pour cette réponse; je pense que je pourrai l'adapter en tatonnant mais je ne comprends pas pour l'instant comment le nom du fichier est récupéré dans le champs "CheminDeLaFeuille". Peux-tu m'éclairer? Est-ce que la propriété "MODE de formulation IME" avec Prédicat d'expression comme modalié y est pour quelque chose?

Par ailleurs, dans l'exemple que je prenais pour illustrer mon besoin, le champ LIEN_HYP se répète car je peux avoir besoin de récupérer plus d'un fichier. La solution que tu proposes me permettra t-elle de récupérer plusieurs documents?

Merci de ton aide salutataire.
Bien cordialement.
SIENWEST

[ClaudeLELOUP]

Bonjour SIENWEST,

mais je ne comprends pas pour l'instant comment le nom du fichier est récupéré dans le champs "CheminDeLaFeuille". Peux-tu m'éclairer?

Cette instruction-ci, dans le clic sur le "Magicien"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Me.CheminDeLaFeuille = OuvrirUnFichier(Me.Hwnd, "Recherche d'une feuille", 1, _
                 "Fichier Excel", "xls", "C:\MesDocuments\POURTESTER\GESTIONTEMPS")

Adapté à ton cas, ceci par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Récup1 = OuvrirUnFichier(Me.Hwnd, "Recherche d'un fichier", 1, , , "C:\")

A ce stade, la valeur se trouve dans le contrôle "Récup1" de ton formulaire.
Il te reste à mettre ta table à jour.
Par exemple, un autre bouton "MàJ1" pour déclencher le processus.

Est-ce que la propriété "MODE de formulation IME" avec Prédicat d'expression comme modalié y est pour quelque chose?

Je ne peux pas t'aider : j'utilise cette fonction à l'aide du mode d'emploi, sans comprendre son code.
Mais aussi, sans complexe : quand je téléphone, je ne comprends pas non plus par quels phénomènes j'entends le correspondant ...
Ca marche, point !

le champ LIEN_HYP se répète car je peux avoir besoin de récupérer plus d'un fichier.

Tu procèdes par analogie : Magicien2,Récup2, MàJ2 ....
Ce n'est déjà pas si mal, n'est-il pas ?
Bonne journée.

[Dolphy35]

Salut,

Merci par avance à celui ou celle qui aura ce code.

Nous ne sommes pas là pour faire le travail, nous pouvons t'aider, t'aiguiller et te conseiller.

mon premier conseil est de faire un tour dans la FAQ Access http://access.developpez.com/faq/
tu pourras y trouver le même code que Claude Afficher la boîte de dialogue ouvrir afin de récupérer le nom et le chemin du fichier sélectionné

tu as également la page de tutoriels avec énormément de ressources et exemples commentés http://access.developpez.com/cours/

essaye et reviens nous demander conseil ou explications.

Dolphy

[SIENWEST]

Bonjour,
merci pour ces informations et effectivement j'aurai du mieux regarder dans la FAQ.

La récupération de l'adresse physique du fichier et de son nom fonctionnent donc bien; ces informations sont bien stockées dans une variable appelée LIEN de type "lien hypertexte" mais quand je clic sur le lien rien ne se passe et le document attaché n'est pas ouvert. La seule chose qui se passe est que la cellule de mon formulaire est surlignée en bleu mais c'est tout. Pourtant la propriété 'is hyperlink' est activée. Par contre, je n'ai défini aucun événement quand je fais un clic sur le lien. Je pense que le problème est la. Quel serait le code à utiliser pour ouvrir ce fichier attaché?

Merci.
Bien cordialement.
SIENWEST

[ClaudeLELOUP]

Bonjour,

va voir cette proposition apportée par marot_r en réponse à http://www.developpez.net/forums/sho...d.php?t=573533

Copie son code dans un module.

Son utilisation, appliquée à ton cas : sur le clic du contrôle qui contient le lien tu places ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

StartDoc (Me.ActiveControl)

qui provoquera l'ouverture du document quel qu'il soit.

[francishop]

Bonsoir,

On peut aussi, sur un simple champ texte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub txtAsuivre_DblClick(Cancel As Integer)
 On Error Resume Next
  If Not IsNull(Me.txtAsuivre) Then
    Application.FollowHyperlink Me.txtAsuivre
  End If
End Sub

Cordialement.

[SIENWEST]

bonjour,
merci pour ce code mais cela ne marche pas; avec le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Private sub lien_click()
startdoc (Me.activeControl)
 
End sub

et en reprenant dans un module l'intégralité du code de Marot_r j'ai le message suivant:
"Erreur de compilation: variable ou procédure attendue, et non un module"

Quelle est la solution à apporter?
Merci.
Bien cordialement.
SIENWEST

[SIENWEST]

Bonjour,
j'ai un autre problème pour la récupération de l'adresse physique d'un fichier par l'intermédiaire d'un bouton de commande qui ouvre l'explorateur windows pour récupérer le fichier: ma base est conservée sur un serveur d'entreprise: sur mon poste à moi, le bouton de commande fonctionne correctement mais depuis un autre poste informatique, le bouton ne fonctionne pas. Comment cela est possible? Merci à celui qui pourrait me donner une piste de recherche.
Bien cordialement.
SIENWEST