Récupération caractères dans titre fichier excel

[rudymagny]

Bonsoir à tous,
Voilà j'utilise une macro pour ouvrir un fichier excel.
Ce que je voudrais, c'est pouvoir récupérer deux mots de ce titre.
Ce titre contient deux versions de bases de données et ressemble à cela:

AdNat_VED_PARIS36_051107_VED_PARIS31_070807_Totale-071106.csv

dans ce cas je voudrais récupérer dans une textbox le mot "PARIS36"
et dans une deuxièmre textbox, le mot "PARIS31"

le problème est que la seule chose qui ne varie pas dans le titre est les deux PARISXX alors que le reste peux changer.

à savoir que j'utilise ce code pour ouvir le fichier:

Dim vFich, sFiltre$
sFiltre = "Comma Separated Value (*.csv),*.csv" ' <- ou autre...
ChDir CurDir
vFich = Application.GetOpenFilename(sFiltre)
If VarType(vFich) = vbBoolean Then
Exit Sub
Else
Workbooks.OpenText Filename:=vFich, DataType:=xlDelimited, semicolon:=True
Range("A:A").TextToColumns semicolon:=True
End If
TextBox1.Value = vFich


je ne sais pas comment puis je faire.

Pouvez vous m'aider?
merci d'avance

 

[fred65200]

Re : Récupération caractères dans titre fichier excel

bonsoir,
une possibilité pour récupérer tes noms

Sub Cherche()
maStr = "AdNat_VED_PARIS36_051107_VED_PARIS31_070807_Totale-071106.csv"
Tablo = Split(maStr, "PARIS")
For i = 1 To UBound(Tablo)
Msg = Msg & "PARIS" & Left(Tablo(i), 2) & vbLf
Debug.Print "PARIS" & Left(Tablo(i), 2)
Next i
MsgBox Msg
End Sub

cordialement

 

[rudymagny]

Re : Récupération caractères dans titre fichier excel

bonsoir fred65200,
ça me parait une bonne piste.
je regarde et je te dis tout de suite.

merci

 

[rudymagny]

Re : Récupération caractères dans titre fichier excel

Ca peut le faire mais j'ai une autre question:

je voudrais affichier dans une 1ère textbox le premier PARISXX et dans une deuxième le deuxième PARISXX.

Je regarde ça mais si tu as une réponse je suis preneur

merci d'avance

 

[rudymagny]

Re : Récupération caractères dans titre fichier excel

nan bah c'est bon j'ai adapté comme ça et ça marche:

Dim vFich, sFiltre$
sFiltre = "Comma Separated Value (*.csv),*.csv" ' <- ou autre...
ChDir CurDir
vFich = Application.GetOpenFilename(sFiltre)
If VarType(vFich) = vbBoolean Then
Exit Sub
Else
Workbooks.OpenText Filename:=vFich, DataType:=xlDelimited, semicolon:=True
Range("A:A").TextToColumns semicolon:=True
End If
TextBox1.Value = vFich

maStr = vFich
Tablo = Split(maStr, "PARIS")
TextBox2.Value = "PARIS" & Left(Tablo(1), 2)
TextBox3.Value = "PARIS" & Left(Tablo(2), 2)
CommandButton7.Visible = True

merci beaucoup et à plus tard

 

[fred65200]

Re : Récupération caractères dans titre fichier excel

ok bonne nuit.