récuperer une partie de nom de fichier

[sri75]

Bonjour, je recois des fichiers excel qui ont tous la structure suivante :

QUEST_2008_numero.xls numero étant un chiffre de 1 à 100000 en fonction de celui qui m'envoie le fichier.

ce que je cherche à faire c'est de récuperer uniquement numero dans une variable.

Lui dire de prendre la donnée entre le _ de 2008_ et le . de .xls.

Merci à tous pour vos suggestions.

 

[vbacrumble]

Re : récuperer une partie de nom de fichier

Bonjour tous


Je te laisse adapter cela avec ton code VBA existant

Sub test()
Dim chaine$
chaine = "QUEST_2008_123456.xls"
tchaine = Split(chaine, "_")
MsgBox Replace(tchaine(UBound(tchaine)), ".xls", vbNullString)
End Sub

A+

 

[sri75]

Re : récuperer une partie de nom de fichier

En formule ca donne

=SI(NBCAR(B4)>2;STXT(B4;12;NBCAR(B4)-15);"")

je voudrais l'avoir en vba

Merci

 

[vbacrumble]

Re : récuperer une partie de nom de fichier

Re

je t'ai répondu en VBA non ?


Voir mon premier message.
A+

 

[Pierrot93]

Re : récuperer une partie de nom de fichier

Bonjour

une solution parmi d'autres :

Dim z As String, x
z = "QUEST_2008_12008.xls"
x = Split(Split(z, "_")(UBound(Split(z, "_"))), ".")(0)

bon après midi
@+

 

[CISCO]

Re : récuperer une partie de nom de fichier

Bonjour

Une solution, pas très belle, mais qui fonctionne, avec ta ref en A1 :
=STXT(A1;CHERCHE("_";A1;CHERCHE("_";A1)+1)+1;NBCAR(A1)-4-CHERCHE("_";A1;CHERCHE("_";A1)+1))

@ plus

 

[sri75]

Re : récuperer une partie de nom de fichier

Avec quest_2008 ca fonctionne parfaitement.

Si dans le meme cas, ma structure de fichier est de 8 chiffres et .xls , les premiers chiffres étant toujours des zeros ( ex 00000001.xls ou 00100000.xls ).

Est il possible de récuperer mon numéro situé entre les zéros et .xls ?

merci

 

[vbacrumble]

Re : récuperer une partie de nom de fichier

Re

Sub test()
Dim chaine$
chaine = "QUEST_2008_00100000.xls"
tchaine = Split(chaine, "_")
MsgBox CDbl(Replace(tchaine(UBound(tchaine)), ".xls", vbNullString))
End Sub

Le code de Pierrot93 (au passage joli, ce code) )

Sub tests()
Dim z As String, x
z = "QUEST_2008_00100000.xls"
x = CDbl(Split(Split(z, "_")(UBound(Split(z, "_"))), ".")(0))
MsgBox x
End Sub

A+

 

[Pierrot93]

Re : récuperer une partie de nom de fichier

re

modifies comme suit :

Dim z As String, x
z = "QUEST_2008_00012908.xls"
x = Val(Split(Split(z, "_")(UBound(Split(z, "_"))), ".")(0))

@+

 

[sri75]

Re : récuperer une partie de nom de fichier

Re

Sub test()
Dim chaine$
chaine = "QUEST_2008_00100000.xls"
tchaine = Split(chaine, "_")
MsgBox CDbl(Replace(tchaine(UBound(tchaine)), ".xls", vbNullString))
End Sub

Je me suis mal exprimé, mon fichier ne se nomme plus quest..... mais uniquement

0000000numero.xls , meme opération que tout à l'heure mais en enlevant tous les zeros et le .xls

merci

 

[vbacrumble]

Re : récuperer une partie de nom de fichier

Re



En adaptant simplement

Sub tests()
Dim z As String, x
z = "0000000100000.xls"
x = CDbl(Split(z, ".")(0))
MsgBox x
End Sub

A+

 

[Pierrot93]

Re : récuperer une partie de nom de fichier

Re

je pense que tu as maintenant tous les codes pour adapter.. essaye peut être un peu... tout l'interêt de ce forum est là...

 

[vbacrumble]

Re : récuperer une partie de nom de fichier

Re


J'allais le dire.

Je me suis permis de reprendre ton code Pierrot93
(Val ou CDbl, que vaut-il mieux choisir ?)

A+

 

[sri75]

Re : récuperer une partie de nom de fichier

Re

je pense que tu as maintenant tous les codes pour adapter.. essaye peut être un peu... tout l'interêt de ce forum est là...

Mon problème est que vous allez plus vite à répondre que moi à tester mais je suis comblé par vos réponses.

Il ne me rest plus qu'a tester si le numéro tronqué est considéré comme numérique afin de la comparer avec le vrai numéro !

En tout cas merci à tous et bravo pour votre rapidité

 

[vbacrumble]

Re : récuperer une partie de nom de fichier

Re



Regardes dans l'aide VBA, ce que font Val ou CDbl dans ce cas...

(Dans l'éditeur VBE, appuie sur F1)

A+