suprimer caracteres

[claude]

Bonsoir le forum.

Comment récupérer le non d'un fichier 'tata.txt' quand celui-ci est dans une variable chemin contenant le non de ce dit fichier avec toute son arborescence:
par ex: C:\\toto\\titi\\tutu\\tata.txt
Mais l'arborescence peut etre plus courte
par ex: C:\\toto\\titi\\tata.txt
Voir plus longue

Merci a tous les XLD......

 

[claude]

petit correctif:

C:toto/titi/tutu/tata.txt a la place de C:tototititututata.txt
C:toto/titi/tata.txt a la place de C:tototititata.txt
Désolé

 

[salim]

Bonsoir Claude


Voici un Code qui fonctionne :

je ne sais pas si Ti est son créateur (ce qui ne m'etonnerai pas) mais comme je n'ai vu que lui l'utiliser .......j'en déduis que oui

Option Explicit
Sub JeDemandeLeNom()
Dim NomF$
    NomF = 'C:\\toto\\titi\\tutu\\tata.txt'
    MsgBox RenvoiNomF(NomF)
End Sub
Function RenvoiNomF$(ByVal PFichier$) 'Ti
    RenvoiNomF = Mid(PFichier, InStrRev(PFichier, Application.PathSeparator) + 1)
End Function

salim

 

[claude]

Merci salim c'est Cool

 

[ZZR09]

Bonsoir Claude, Salim, le forum

Dir est une une fonction qui permet d'avoir le nom d'un fichier lorsque l'on a un chemin complet. Par contre, je crois que cela ne fonctionne qu'avec un fichier existant. si c'est un fichier qui n'est pas encore créé, il faut passer par la méthode proposée par Salim : Dim

le code dans UserForm avec textbox1 et 2; 3 boutons

Private Sub CommandButton1_Click()
Me.TextBox1 = Application.GetOpenFilename('Tous les fichiers Excel(*.xls), *.xls', , 'Fichier Source')
Me.TextBox2 = Dir(Me.TextBox1, vbNormal) 'C-est la fonction qui permet d-avoir le nom du fichier
End Sub

Private Sub CommandButton2_Click()
Me.Hide
End Sub

Private Sub CommandButton3_Click()
Me.TextBox1 = ''
Me.TextBox2 = ''
End Sub

A+
[file name=Claude.zip size=9590]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Claude.zip[/file]

 

[salim]

Bonsoir

ZZR09 Dim n'est pas une méthode mais une instruction qui sert à déclarer les variables

Dim NomF$ -> la je déclare une variable de type String qui se nomme NomF

salim

 

[ZZR09]

Bonjour Salim, le forum

Par méthode, je voulais juste dire 'façon de faire' plutôt qu'appeler une méthode, une instruction ou une fonction.

En fait, dans l'aide VB, DIR est déclarée comme Fonction.

Mais puisque tu sembles connaître, à quoi sert le '$' dans NomF$ ?
Comment l'utilise t'on?


A+
ZZR09

Réédition :
En relisant mon premier message, je viens de comprendre : j'ai tout simplement inversé Dim qui est effectivement une instruction et Mid qui est la fonction qui nous intéresse ! :S

Message édité par: zzr09, à: 23/10/2005 07:48