XL 2010 extraction d'une partie de nom de fichier

herve62 · 13 Octobre 2021

Bonsoir
Quel serait pour vous le code le plus simple pour récupérer en vba une partie de nom de fichier
j'ai x fichiers dont le nom est
Jeux Liste 1 - 20.xlsx
Jeux Liste 21 - 40.xlsx
Jeux Liste 41 - 60.xlsx
.....
Jeux Liste 121 - 140.xlsx

Il me faudrait récupérer en temps que string la partie par exemple "1 - 20" ; "41 - 60" , "121 - 140" ..etc
Vu que c'est variable en longueur entre 6 et 9 .. ??? avec les espaces plus les digits de 1 à 3
Vous me direz on peut retirer les espaces .. Oui , mais pas les digits !!
je pense que cela ira plus vite avec vos avis
merci

Victor21 · 13 Octobre 2021

Bonjour, herve62.
Je ne suis pas spécialiste de VBA, mais une piste en formule :
=SUBSTITUE(SUBSTITUE("Jeux Liste 1 - 20.xlsx";"Jeux Liste ";"");".xlsx";"") renvoie 1 - 20

Bernard_XLD · 13 Octobre 2021

Bonjour Herve62, Victor21, le forum

autre façon en formule
=GAUCHE(DROITE(A1;NBCAR(A1)-11);CHERCHE(".";DROITE(A1;NBCAR(A1)-11))-1)

Cordialement, @+

Bernard_XLD · 13 Octobre 2021

re,

ou en vba
Mid$(Nom_Fichier, 12, InStr(12, Nom_Fichier, ".") - 12)

Cordialement, @+

herve62 · 13 Octobre 2021

Re, bsr tous
merci , mais rien ne va !!
je suis dans des sub VBA avec récup de données de X fichiers xlsx
mes onglets ont le nom de la partie string que je veux récupérer "1 -20" pour "Jeu Liste 1 -20.xlsx"
ou " 21 - 40" pour "Jeu Liste 21 - 40.xlsx" le max est du genre "Jeu Liste 121 - 140.xlsx" pour que je récupère
"121 - 140"

Bernard_XLD · 13 Octobre 2021

herve62 à dit:
merci , mais rien ne va !!
je suis dans des sub VBA avec récup de données de X fichiers xlsx
mes onglets ont le nom de la partie string que je veux récupérer "1 -20" pour "Jeu Liste 1 -20.xlsx"

herve62 à dit:
j'ai x fichiers dont le nom est
Jeux Liste 1 - 20.xlsx
Jeux Liste 21 - 40.xlsx
Jeux Liste 41 - 60.xlsx

Re,

C'est sûr que si les noms des fichiers changent entretemps !
Le code Vba que je t'ai donné extrait bien la bonne chaîne d'après les noms donnés en post #1.

VB:

Function Extract_Donnees$(ByVal Nom_Fichier$)
Extract_Donnees = Mid$(Nom_Fichier, 12, InStr(12, Nom_Fichier, ".") - 12)
End Function

Bien sûr, si tu changes jeux en jeu, il faut aussi changer la formule

Code:

Function Extract_Donnees$(ByVal Nom_Fichier$)
Extract_Donnees = Mid$(Nom_Fichier, 11, InStr(11, Nom_Fichier, ".") - 11)
End Function

Bernard_XLD · 13 Octobre 2021

re,

sinon, avec une boucle pour détecter le premier caractère numérique

Cordialement, @+

VB:

Function Extract_Donnees$(ByVal Nom_Fichier$)
Dim Compteur%, Compteur2 As Byte
Compteur = Len(Nom_Fichier)
For Compteur2 = 0 To 9
    If InStr(1, Nom_Fichier, Compteur2) Then Compteur = Application.Min(Compteur, InStr(1, Nom_Fichier, Compteur2))
Next Compteur2
Extract_Donnees = Mid$(Nom_Fichier, Compteur, InStr(Compteur, Nom_Fichier, ".") - Compteur)
End Function

herve62 · 13 Octobre 2021

Yeahou à dit:
Mid$(Nom_Fichier, 12, InStr(12, Nom_Fichier, ".") - 12)

j'ai fait Liste= ta formule

Yeahou à dit:
Le code Vba que je t'ai donné extrait bien la bonne chaîne d'après les noms donnés en post #1.

non moi j'ai comme image ?

Yeahou à dit:
C'est sûr que si les noms des fichiers changent entretemps !

FAUT pas pinailler si j'ai oublié un "x" en tapant jeu !!!!!!!!!!!!!!!!!!!!

ENFIN Je rappelle que je suis dans une appli 100% VBA donc fonction INUTILE

Bernard_XLD · 13 Octobre 2021

@herve62, je t'ai mis un fichier en démo sur le post #7 , pas de raison que cela ne fonctionne pas sous 2010.

Bernard_XLD · 13 Octobre 2021

herve62 à dit:
FAUT pas pinailler si j'ai oublié un "x" en tapant jeu !!!!!!!!!!!!!!!!!!!!

mapomme · 13 Octobre 2021

Bonsoir à tous ,

Une autre function :

VB:

Function N1N2(ByVal Nom_Fichier$)
Dim t
   t = Split(Application.Trim(Replace(Nom_Fichier, ".", " ")))
   N1N2 = Join(Array(t(2), t(3), t(4)))
End Function

Bernard_XLD · 13 Octobre 2021

herve62 à dit:
ENFIN Je rappelle que je suis dans une appli 100% VBA donc fonction INUTILE

Re,
Salut mapomme
Herve62, les fonctions personnalisées peuvent être utilisées en VBA, c'est parfois pratique.

VB:

Liste = Extract_Donnees(Nom_proj(x))

Bien cordialement, @+

herve62 · 13 Octobre 2021

Bonsoir Luc , ta fonction tu la met OU ?? je suis en VBA PUR !

Yeahou à dit:
je t'ai mis un fichier en démo sur le post #7 , pas de raison que cela ne fonctionne pas sous 2010.

Mais enfin !! je me fiche des cellules Excel moi j'en suis là dans mon code

VB:

 Liste = Mid$(Nom_proj(x), 12, InStr(12, Nom_proj(x), ".") - 12)
    
    With Worksheets("FICHE DINSCRIPTION À REMPLIR")
    
        For y = 3 To 7
        ThisWorkbook.Sheets(Liste).Range("B" & y) = .Range("B" & y)
        Next y

et donc Liste doit correspondre à ce que j'ai écrit avant

herve62 · 13 Octobre 2021

Bon A cette heure.. dodo je fatigue donc je reprendrais la marmite demain ......bonne nuit à vous

Bernard_XLD · 13 Octobre 2021

herve62 à dit:
Mais enfin !! je me fiche des cellules Excel moi j'en suis là dans mon code

Décidément, j'ai fait la fonction personnalisée pour la démo, tu n'as pas fourni de fichier ni de code. Si elle renvoie la bonne valeur dans une cellule, elle renverra la bonne valeur dans Vba si tu l'utilise dans VBA. De toute façon, une fonction personnalisée, c'est du code Vba dans un module et tu peux directement le transposer dans ton code si tu préfères.

herve62 à dit:
je fatigue

Oui, moi aussi !

Bonne nuit

XL 2010 extraction d'une partie de nom de fichier

herve62

XLDnaute Barbatruc

Victor21

XLDnaute Barbatruc

Bernard_XLD

XLDnaute Barbatruc

Bernard_XLD

XLDnaute Barbatruc

herve62

XLDnaute Barbatruc

Bernard_XLD

XLDnaute Barbatruc

Bernard_XLD

XLDnaute Barbatruc

Pièces jointes

herve62

XLDnaute Barbatruc

Pièces jointes

Bernard_XLD

XLDnaute Barbatruc

Bernard_XLD

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Bernard_XLD

XLDnaute Barbatruc

herve62

XLDnaute Barbatruc

herve62

XLDnaute Barbatruc

Bernard_XLD

XLDnaute Barbatruc

Discussions similaires