Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Lien Hypertext sur liste de fichiers

Lien Hypertext sur liste de fichiers

10 réponses
Avatar
Pascal BENOIT
Bonjour,

J'ai (enfin) réussi à lister les factures d'un client donné dans un
Sous-formulaire basé sur une requete.

La liste ressemble à cela :

Nom Fichier Date

xxxxxxxxxx.xls 01/01/2003
yyyyyyyyyy.xls 12/06/2003
zzzzzzzzzz.xls 08/08/2003

Mon problème est de pouvoir accèder à une facture (sous excel) en cliquant
(ou double-cliquant) directement sur son Nom dans la première colonne.

J'ai déclaré le champ "Nom Fichier" en "hyperlink" , mais cela ne suffit
pas (cela me rappelle mon pb de mailto, mais je n'arrive pas à m'en sortir)

Merci d'avance.

Cordialement,
Pascal.
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Pascal BENOIT
Bonjour Dolores,

Merci de ton aide !

Comme mon nom de fichier intègre déjà l'extension ".xls",
J'ai un peu adapté le code que tu m'as proposé, ce qui donne :

***************************************

Private Sub FichierFacture_Click()

Dim FichierFacture As String
Dim LienFichier As String

LienFichier = "D:chemin du repertoire" & FichierFacture

FollowHyperlink LienFichier

End Sub

**************************************


Et cela a pour effet d'ouvrir l'explorateur Windows dans le répertoire
adéquat !
... on progresse, mais ce n'est pas encore le résultat escompté, car je
souhaiterais que le fichier visé s'ouvre automatiquement sous Excel.

Une idée ?

Cordialement,
Pascal.
Avatar
Pascal BENOIT

suite à une expérience récente ;-)... je conseillerais plutôt sur
"Double-clic" !
Et je choisirais le type de données Texte et non Lien hypertexte.


Merci de ton aide,

J'ai le même problème avec la procédure sur double-clic, et type de données
Texte.

Pour mémoire, mon code :
********************************
Private Sub FichierFacture_DblClick(Cancel As Integer)

Dim FichierFacture As String
Dim LienFichier As String

LienFichier = "D:répertoire" & FichierFacture

FollowHyperlink LienFichier

End Sub
********************************

... résultat : explorateur Windows ouvert sur le répertoire, mais pas de
démarrage d'Excel :-(

Cordialement,
Pascal.

Avatar
Pascal BENOIT
Le Tue, 12 Aug 2003 15:09:58 +0200, "hm15" a écrit
:


Ajoute des " " de part et d'autre
"D:BENOIT CONSEILClientsFactures 2003"

Cela va mieux ?



Helas non :-(

Aucune de ces deux syntaxes ne marche :

*************************
Private Sub FichierFacture_DblClick(Cancel As Integer)

Dim FichierFacture As String
Dim LienFichier As String

LienFichier = "D:BENOIT CONSEILClientsFactures 2003" & FichierFacture

Shell "excel.exe " & LienFichier, 3

End Sub
*************************

Private Sub FichierFacture_DblClick(Cancel As Integer)

Dim FichierFacture As String
Dim LienFichier As String

LienFichier = "D:BENOIT CONSEILClientsFactures 2003" & FichierFacture

Shell "excel.exe D:BENOIT CONSEILClientsFactures 2003" & FichierFacture,
3

End Sub

*************************


Je désespère !

Cordialement,
Pascal.

Avatar
hm15
Attends, Factures 2003 est le nom d'un dossier ?
Sorti de son contexte, j'ai cru qu'il s'agissait du nom de fichier.
Alors, il faut ajouter un "" avant de concaténer avec le nom du fichier.
Cela doit donner :

LienFichier = "D:BENOIT CONSEILClientsFactures 2003" &
Me![FichierFacture]

A toi de dire !!

Annette
---------------------------------------------------------------------------
www.horizon-micro.com


"Pascal BENOIT" a écrit dans le message de news:

Le Tue, 12 Aug 2003 15:09:58 +0200, "hm15" a
écrit

:


Ajoute des " " de part et d'autre
"D:BENOIT CONSEILClientsFactures 2003"

Cela va mieux ?



Helas non :-(

Aucune de ces deux syntaxes ne marche :

*************************
Private Sub FichierFacture_DblClick(Cancel As Integer)

Dim FichierFacture As String
Dim LienFichier As String

LienFichier = "D:BENOIT CONSEILClientsFactures 2003" & FichierFacture

Shell "excel.exe " & LienFichier, 3

End Sub
*************************

Private Sub FichierFacture_DblClick(Cancel As Integer)

Dim FichierFacture As String
Dim LienFichier As String

LienFichier = "D:BENOIT CONSEILClientsFactures 2003" & FichierFacture

Shell "excel.exe D:BENOIT CONSEILClientsFactures 2003" &
FichierFacture,

3

End Sub

*************************


Je désespère !

Cordialement,
Pascal.



Avatar
3stone
Salut,

Pascal BENOIT

LienFichier = "D:BENOIT CONSEILClientsFactures 2003" &
Me![FichierFacture]


Hélas, même si le chemin est maintenant plus cohérent, les espaces entre
BENOIT et CONSEIL puis entre FACTURES et 2003 mettent la panique dans
l'execution du shell :-((




Essaies:

LienFichier = Chr(32) & "D:BENOIT CONSEILClientsFactures 2003" & Me![FichierFacture] & Chr(32)



--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/
--------------------------------------


Avatar
Pascal BENOIT

LienFichier = Chr(32) & "D:BENOIT CONSEILClientsFactures 2003" & Me![FichierFacture] & Chr(32)



Bonjour Pierre,

Hélas... même punition ! :-((

Avatar
3stone
re,

Pascal BENOIT
LienFichier = Chr(32) & "D:BENOIT CONSEILClientsFactures 2003" & Me![FichierFacture] & Chr(32)

Hélas... même punition ! :-((



Me![FichierFacture]

comprend également l'extention ?

Avatar
3stone
hm15

prends la formule de Pierre et remplace simplement 32 par 34.





Ahhh c'est malin ca.....

32 !!!!!

et pourquoi pas 33, hein docteur ?

;-)))))



--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/
--------------------------------------

Avatar
hm15
Tu as fait le plus dur, Pierre !
Ma spécialité : corriger les fautes des autres ;-))
J'espère que ce coup-là Pascal va nous annoncer une bonne nouvelle !

Au fait et au cas où il poserait la question... à propos de chr(34), sensé
correspondre au caractère ", sais-tu pourquoi, si on le remplace par le
caractère lui-même, ça ne fonctionne pas ?

Bonne soirée,

Annette
---------------------------------------------------------------------------
www.horizon-micro.com


"3stone" a écrit dans le message de news:

hm15

prends la formule de Pierre et remplace simplement 32 par 34.





Ahhh c'est malin ca.....

32 !!!!!

et pourquoi pas 33, hein docteur ?

;-)))))



--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/
--------------------------------------






Avatar
3stone
re,

hm15
Au fait et au cas où il poserait la question... à propos de chr(34), sensé
correspondre au caractère ", sais-tu pourquoi, si on le remplace par le
caractère lui-même, ça ne fonctionne pas ?




En fait...

LienFichier = """D:BENOIT CONSEILClientsFactures 2003" & Me![FichierFacture] & """"

devrait le faire aussi... mais, c'est moins "lisible"


--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/
--------------------------------------