afficher le nom d'un ficher txt

[dede039]

bonjours a tous

avec ce code je voudrais afficher les nom d'un ficher txt et juste sur nom la j'affiche tout les chemin

Private Sub chemin_ficher_Click()
Dim nomficher As String
    nomficher = Application.GetOpenFilename("text files (*.txt), *.txt") 
        Me.TextBox5 = nomficher
End Sub

 

[dede039]

Re : afficher le nom d'un ficher txt

bonjours

quand je lance la macro j'ai sa dans le textbox5

G:\données meteo excel\dayfile.txt

alors que je voudrai sa

dayfile.txt

comment faire ???

 

[Pierrot93]

Re : afficher le nom d'un ficher txt

Bonjour,

essaye comme ceci :

Me.TextBox5 = Mid(nomficher, InStrRev(nomficher, "\") + 1)

bonne journée
@+

 

[dede039]

Re : afficher le nom d'un ficher txt

bonjour et merci pour ta réponse Pierrot93
sa marche très bien

 

[tototiti2008]

Re : afficher le nom d'un ficher txt

Bonjour dede, Bonjour Pierrot 🙂

Ou alors

Me.TextBox5=dir(nomfichier)

 

[Pierrot93]

Re : afficher le nom d'un ficher txt

Re, bonjour Toto🙂

Aarf, bien vu Toto🙂...