Discussion :

[Twinette]

Bonjour,

Sur Access

Dans mon formulaire il y a un champs « Lien hypertexte » et un champs « Nom du document »

Le champs lien hypertexte contient le chemin complet vers le document.
(ex : « C:mesdocuments\mestableaux\montableau1.xl s »)

Est-ce possible d’afficher directement le nom du document (ex : monTableau1.xls ; monfichier3.doc…) dans le champs « Nom du document » ?

J'espère sur vos lumières :-)

[Moha25fr]

bonjour

utilise un btn parcourir (par exemple) et colle le code ouvrirfichier ( ce code se trouve dans la faq)

A+

[Twinette]

Je ne veux que le nom du fichier

Je ne veux aps l'ouvrir
Il n'y aurait pas une solution pour juste renseigner le nom du fichier?

[ft035580]

Salut,

Et en essayant ? :

Code :

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

Me.nom_du_document = Me.Lien_hypertexte.HyperlinkAddress

[Lou Pitchoun]

Salut,
Un début de réponse se trouve ici, en analysant le code : tu vas trouver.

[Twinette]

en fait c'est la fonction inverse que je souhaite.
Avoir le nom du fichier complet qui s'affiche à partir du chemin complet(lien hypertexte).

Le lien hypertexte apparait dans le champs 1
et le nom du fichier dans le champs 2.

JE ne sais pas si je suis claire??

[cafeine]

alors, il ne suffit pas de concaténer ?

Code :

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

1
2
3
4
Toto = "Hello "
Tata = "World !"
Tutu = Toto & Tata
MsgBox Tutu

[Lou Pitchoun]

Remplace

Code :

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

1
2
3
4
5
If Mid(str, i, 1) = "\" Then 
        Debug.Print "Fichier " & Right(str, Len(str) - i) 
        str = Left(str, i) 
        GoTo fin01 
End If

par

Code :

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

1
2
3
4
5
If Mid(str, i, 1) = "\" Then 
        Debug.Print "Fichier " & Right(str, Len(str) - i) 
        str = Right(str, Len(str) - i)  
        GoTo fin01 
End If

et tu obtiendras bien le nom du fichier, non ??

[Twinette]

Remplace

Code :

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

1
2
3
4
5
If Mid(str, i, 1) = "\" Then 
        Debug.Print "Fichier " & Right(str, Len(str) - i) 
        str = Left(str, i) 
        GoTo fin01 
End If

par

Code :

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

1
2
3
4
5
If Mid(str, i, 1) = "\" Then 
        Debug.Print "Fichier " & Right(str, Len(str) - i) 
        str = Right(str, Len(str) - i)  
        GoTo fin01 
End If

et tu obtiendras bien le nom du fichier, non ??

Ta solution est parfaite !

Merci KIKOF !