bouton "parcourir" nom de fichier cours

[jean- luc]

Je suis entrain de rechercher un moyen de recuperer le nom d un fichier
J y suis quasiement arrivé en appuyant sur mon bouton (comme le montre le code ci-dessous) je recupere le nom ainsi que le chemin d acces du fichier que je choisis (grace a une sorte de fenetre d explorateur), et je le place dans une textBox. or j aimerai n avoir qu une partie de ce chemin d acces (genre les deux dernier niveau. La pour l instant je recupere un truc du genre :
D:\Documents and Settings\GDDWB26\Mes documents\Demo\Unitaire\myfileI.html
et j aimerai avoir uniquement Demo\Unitaire\myfileI.HTML par exemple
De plsu j aimerai pouvoir choisir le dossier ou se place l explorateur (pour le moment il souvre au dernier endroit ou je l ai laisserpar exemple dans mes documents
merci d avance au developpeur en herbe


Private Sub CommandButton1_Click()

fileToOpen = Application _
.GetOpenFilename("Pages Web (*.htm, *.html)")
TextBox1.Value = fileToOpen

End Sub

 

[sylsyl]

Re salut J-luc,

Il semblerait que tu n’es pas lu le Charte du Forum.

Si tu es nouveau sur ce forum, la premiere chose a faire est de se renseigner sur son fonctionnement. Tu trouveras un raccourci vers cette charte en haut a droite de la page.

Si c’est pas la premiere fois que tu viens, tu n’as pas du avoir beaucoup de reponse.

T’ayant deja repondu ce matin sur ce meme sujet, j’attendais de tes nouvelles (sur le meme fil) et si tu avais t’autres questions je t’aurais repondu avec plaisir (comme tous ceux qui repondent aux questions sur ce forum).

N’etant jamais rancunier je te repond une nouvelle fois en esperant savoir si ton probleme est resolu.


Dim i, Niveau, Niveau_Desire As Integer
Dim Pa As String
Niveau_Desire = 2
Pa = "F:\niveau3\niveau2\niveau1.xls"
For i = 1 To Len(Pa) - 1
If Mid(Pa, Len(Pa) - i, 1) = "\" Then
Niveau = Niveau + 1
If Niveau = Niveau_Desire Then
Pa = Right(Pa, i + 1)
Exit For
End If
End If
Next i
MsgBox Pa


Si tu as d’autres questions n’hesites et surtout lis la Charte.

A++, Sylsyl.

P.S.:le "Application.DefaultPath" ne marche pas ?