XL 2016 Extraction nom de fichier à partir du chemin et du nom de dossier

MJ13 · 17 Février 2020

Bonjour à tous

Je cherche en VBA à extraire le nom d'un fichier, sachant que j'ai dans une variable le nom du dossier et du fichier.

Voici mon début de code pour insérer dans une feuille une image avec 'Nomfichier = ????????? qui est ce que je cherche qui est représenté par QuelFichier(Ctr).

Merci d'avance.

VB:

Sub Ouvre_Img()
Dossier = Cells(1, 13)
[A1].Select
ChDrive (Left(Dossier, 1))
ChDir (Dossier)
     Dim QuelFichier()
  QuelFichier = Application.GetOpenFilename(, , , , True)
  For Ctr = 1 To UBound(QuelFichier)
    ActiveSheet.Pictures.Insert(QuelFichier(Ctr)).Select
    'Nomfichier = ?????????
     Selection.ShapeRange.ZOrder msoSendToBack
    Selection.Name = "Image"
  Next
End Sub

patricktoulon · 17 Février 2020

bonsoir
et la fonction InStrRev elle sert a quoi ?

VB:

Sub ExtraitNomFichier()
    NomEntrée = "C:\Users\PC_PAPA\Desktop\XLD\Dossier\agent 1.xlsx"
      NomFichier = Mid(NomEntrée, InStrRev(NomEntrée, "\") + 1)
End Sub

sylvanu · 17 Février 2020

Bonsoir MJ13,
Un exemple d'extraction :

VB:

Sub ExtraitNomFichier()
    NomEntrée = "C:\Users\PC_PAPA\Desktop\XLD\Dossier\agent 1.xlsx"
    tablo = Split(NomEntrée, "\")
    NomFichier = tablo(UBound(tablo))
End Sub

MJ13 · 17 Février 2020

Bonjour Sylvanu

Merci pour ton retour, cela fonctionne très bien. J'avais un peu cherché mais pas trouvé avec le moteur de recherche.

Staple1600 · 17 Février 2020

Bonsoir le fil, MJ13, sylvanu

MJ13
On a pas rangé sa chambre Excel ?

VBA Liste Dossiers et sous-dossiers d'un dosssier

Bonjour à tous Je me permet de vous demander une aide pour avoir la liste des dossiers (ou répertoire) et sous-dossiers d'un Dossier. J'ai trouvé des tas de codes mais en général on a le nom des fichiers avec. Le but serait d'avoir le nom des dossiers à trouver en A1 (ex: C:\temp) et...

www.excel-downloads.com

Ok, je sors

MJ13 · 17 Février 2020

Bonjour JM

Pas trop compris le rapport avec ma demande.

Staple1600 · 17 Février 2020

Re

MJ13
Ce n'était qu'un trait d'humour
Tu as cliqué sur le lien au moins ?
Si oui, tu devrais comprendre où je voulais en venir

patricktoulon · 17 Février 2020

bonsoir
et la fonction InStrRev elle sert a quoi ?

VB:

Sub ExtraitNomFichier()
    NomEntrée = "C:\Users\PC_PAPA\Desktop\XLD\Dossier\agent 1.xlsx"
      NomFichier = Mid(NomEntrée, InStrRev(NomEntrée, "\") + 1)
End Sub

Staple1600 · 17 Février 2020

Bonsoir le fil

patricktoulon à dit:
bonsoir
et la fonction InStrRev elle sert a quoi ?

VB:

Sub ExtraitNomFichier() NomEntrée = "C:\Users\PC_PAPA\Desktop\XLD\Dossier\agent 1.xlsx" NomFichier = Mid(NomEntrée, InStrRev(NomEntrée, "\") + 1) End Sub

Bah, à être utilisé

https://www.excel-downloads.com/thr...pas-ou-je-le-souhaite.20037940/#post-20271018

Tout comme le moteur interne du forum

patricktoulon · 17 Février 2020

re @Staple1600
je l'avais oublié celle la
je me demande qu'est ce qui va pas dans ce moteur de recherche personne s'en sert

Staple1600 · 17 Février 2020

Re

Ce n'est pas le moteur, ni les fonctionnalités de Xenforo qui sont à blâmer.
C'est d'abord un problème d'ICC

patricktoulon · 17 Février 2020

MJ13 · 19 Février 2020

Bonjour à tous

JM et Patrick: Merci pour vos Fanfaronnades.

Sinon, après une recherche sur le net et dans ma tête j'ai trouvé d'autre solutions que voici.

VB:

Sub Ouvre_Insère_Img_Sur_Feuille()
'Nom du dossier en A13 (A adapter)
dossier = Cells(1, 13)
[A1].Select
ChDrive (Left(dossier, 1))
ChDir (dossier)
     Dim QuelFichier()
  QuelFichier = Application.GetOpenFilename(, , , , True)
  For Ctr = 1 To UBound(QuelFichier)
    ActiveSheet.Pictures.Insert(QuelFichier(Ctr)).Select
    
    'Solution1
    'Sylvanu
    tablo = Split(QuelFichier(Ctr), "\")
    NomFichier = tablo(UBound(tablo))
    MsgBox "De Sylvanu " & NomFichier
    
    'Solution2
    'PatrickToulon
    NomEntrée = QuelFichier(Ctr)
    NomFichier = Mid(NomEntrée, InStrRev(NomEntrée, "\") + 1)
    MsgBox "De PatrickToulon " & NomFichier
    
    'Solution3
    'MJ
    NomFichier = Mid(QuelFichier(Ctr), Len(dossier) + 2, Len(QuelFichier(Ctr)) - Len(dossier))
    MsgBox "De MJ " & NomFichier
  
   'Solution4
   'https://www.developpez.net/forums/d372217/logiciels/microsoft-office/access/vba-access/recuperer-nom-d-fichier-on-chemin/
   var_CheminFichier = QuelFichier(Ctr)
   NomFichier = Dir(var_CheminFichier)
   MsgBox "De https://www.developpez.net/ " & NomFichier
  
   'Solution5
   'https://www.commentcamarche.net/forum/affich-30505287-vb-ne-garder-que-le-nom-du-fichier-sans-le-chemin
   NomFichier = CreateObject("Scripting.FileSystemObject").GetFileName(QuelFichier(Ctr))
   MsgBox "De https://www.commentcamarche.net/ " & NomFichier
  
   Selection.ShapeRange.ZOrder msoSendToBack
    Selection.Name = "Image"
  Next
End Sub

patricktoulon · 19 Février 2020

re
bonjour Mj13
celle ci me plait

VB:

var_CheminFichier = QuelFichier(Ctr)
   NomFichier = Dir(var_CheminFichier)
   MsgBox "De https://www.developpez.net/ " & NomFichier

XL 2016 Extraction nom de fichier à partir du chemin et du nom de dossier

MJ13

XLDnaute Barbatruc

patricktoulon

sylvanu

XLDnaute Barbatruc

MJ13

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

VBA Liste Dossiers et sous-dossiers d'un dosssier

MJ13

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

MJ13

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Discussions similaires