Nom et chemin d'un fichier

  • Initiateur de la discussion Initiateur de la discussion fileofish
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

fileofish

XLDnaute Occasionnel
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
 
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
 
Dernière édition:
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
 
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
 
Dernière édition:
Bonjour.
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) ?
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
264
Réponses
3
Affichages
677
Retour