Nom et chemin d'un fichier

fileofish · 25 Juin 2018

Bonjour le forum

J'espère que vous aller bien !
Peut être pourrez vous m'aider : Je souhaite récupérer le nom et chemin d'un fichier sélectionné
Le chemin fonctionne mais le nom du fichier ne fonctionne pas

Sub choix_fichiers()

Dim fichier As String
Dim File_name As String

With Application.FileDialog(msoFileDialogFilePicker)
.Show
On Error Resume Next
chemin = .SelectedItems.Item(1)
nomfich = Mid(chemin.Name, 1, InStrRev(chemin.Name, ".") - 1)
End With
If chemin <> "" Then Range("Chemin_du_fichier").Value = chemin
If chemin <> "" Then Range("Nom_du_fichier").Value = nomfich

End Sub

Avez vous une idée
Merci encore
Philippe

Roland_M · 25 Juin 2018

bonjour,

un exemple :

Code:

Sub Choix_Fichiers()
Dim Chemin As String, Fichier As String
With Application.FileDialog(msoFileDialogFilePicker):  .Show
   Chemin = .SelectedItems.Item(1)
End With
If Chemin <> "" Then 'test !?
   Fichier = Mid(Chemin, InStrRev(Chemin, "\") + 1)
   Chemin = Left(Chemin, InStrRev(Chemin, "\") - 1)
   Range("Chemin_du_fichier").Value = Chemin
   Range("Nom_du_fichier").Value = Fichier
End If
End Sub

Robert · 25 Juin 2018

Bonjour Philippe, bonjour le forum,

Peut-être comme ça :

VB:

Sub choix_fichiers()

Dim Filename As String
Dim chemin As String
Dim fichier As String

With Application.FileDialog(msoFileDialogFilePicker)
    .Show
    On Error Resume Next
    Filename = .SelectedItems.Item(1)
    chemin = Left(Filename, InStrRev(Filename, "\", -1, vbTextCompare) - 1)
    fichier = Mid(Filename, InStrRev(Filename, "\") + 1)
End With
If chemin <> "" Then Range("Chemin_du_fichier").Value = chemin
If chemin <> "" Then Range("Nom_du_fichier").Value = fichier
End Sub

fileofish · 25 Juin 2018

Super !

merci à tous les 2 ca fonctionne
Bonne journée

Lone-wolf · 25 Juin 2018

Bonjour Philippe, Roland_M, Robert

@fileofish

Pourquoi 2 fois les conditions if fichier <>"" then, puisque de toute façon tu vas le sélectionné??
Et si après coups tu te dis "Non j'en ai pas besoin"

If Filename = "" Then Exit Sub

VB:

On Error Resume Next
With Application.FileDialog(msoFileDialogFilePicker)
    .Show
    Filename = .SelectedItems.Item(1)
    If Filename = "" Then Exit Sub
       chemin = Left(Filename, InStrRev(Filename, "\"))
      fichier = Mid(Filename, InStrRev(Filename, "\") + 1)
End With
Range("Chemin_du_fichier") = chemin
Range("Nom_du_fichier") = fichier

Dranreb · 25 Juin 2018

Bonjour.

Lone-wolf à dit:
Pourquoi les conditions if fichier <>"" then, puisque de toute façon tu vas le sélectionné??

Rien de moins sûr…
Mais c'est vrai que j'aurais préféré à un moment If .SelectedItems.Count = 0 Then Exit Sub
Remarque: pour un seul fichier je trouve GetOpenFileName plus simple. Quelqu'un d'entre vous voit-il néanmoins une supériorité de FileDialog(msoFileDialogFilePicker) ?

Lone-wolf · 25 Juin 2018

Bonjour Dranreb

C'est vrai que "If .SelectedItems.Count = 0 Then Exit Sub" est bien mieux ainsi que GetOpenFileName.

Nom et chemin d'un fichier

fileofish

XLDnaute Occasionnel

Roland_M

XLDnaute Barbatruc

Robert

XLDnaute Barbatruc

fileofish

XLDnaute Occasionnel

Lone-wolf

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

Discussions similaires