Discussion :

[mosquitout]

Bonjour,
En utilisant le composant Commondialog, comment récupérer le nom du document ?
Filename me donne le nom complet du chemin jusqu'a mon doc mais je ne voudrai récupérer que le nom de mon doc. Ex toto.xls et non pas C\Mes documents\toto.xls
Merci

[ouskel'n'or]

Code :

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

1
2
3
4
5
set MonDoc = activedocument
with MonDoc
msgbox .name
End with
Set MonDoc = nothing

Pas vérifié mais ça devrait marcher

A+

[zazaraignée]

salut

Vu que le nom complet retourné par la boîte de dialogue est une chaîne de caractères, les fonctions de chaîne peuvent faire le travail aussi.

mais le plus simple, c'est la propriété FileTitle. J'ai fait ce test, c'est d'ailleurs en le faisant que j'ai découvert la-dite propriété:

Code :

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

1
2
3
4
5
6
Private Sub Command2_Click()
    Dim fichier As String
    CommonDialog1.ShowOpen
    fichier = CommonDialog1.FileTitle
    Text1.Text = fichier
End Sub

[hassanibi]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Public Function NameFromPath(ByVal Path As String) As String
Dim I As Integer
Dim FileName As String
 
I = Len(Path)
 
While (Mid(Path, I, 1) <> "\")
I = I - 1
Wend
FileName = Mid(Path, I + 1, Len(Path) - I + 1)
NameFromPath = FileName
 
End Function

voici une fonction qui recupere le nom de fichier à partir de chemin complet.