VBA, Recupérer le titre d'un fichier

[kennedy]

Bonjour à tous!

Une petite question: J'ai un fichier excel que j'ouvre pendant le déroulement de mon application. Le titre de mon fichier est: "100_21.xls".

Je voudrais récupérer le "100" et le mettre dans "A2", le "21" pour le mettre dans "B2". Comment est ce que je peux m'y prendre?

Merci d'avance
Bonne journée!

 

[job75]

Re : VBA, Recupérer le titre d'un fichier

Bonjour kennedy,

Dim txt$
txt = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)
[A2] = Split(txt, "_")(0)
[B2] = Split(txt, "_")(1)

A+

 

[mromain]

Re : VBA, Recupérer le titre d'un fichier

Bonjour kennedy, Job

Sinon, par formules :
En A2, saisir cette formule :

=STXT(CELLULE("nomfichier");TROUVE("[";CELLULE("nomfichier"))+1;3)

Et en B2 :

=STXT(CELLULE("nomfichier");TROUVE("[";CELLULE("nomfichier"))+5;2)

a+

 

[kennedy]

Re : VBA, Recupérer le titre d'un fichier

Super merci beaucoup ça marche!

 

[Dull]

Re : VBA, Recupérer le titre d'un fichier

Salut kennedy Job75, mromain, le Forum

Tiré de l'excellent fichier de Mth sur ce merveilleux site un exemple en pièce jointe. jevoulaisjustelefairevoiretlefairesavoir

Edition: Salut JM et merci ...Lien rectifié et j'espère que Didier n'a pas vu ma bévue

Bonne Journée

 

[Staple1600]

Re : VBA, Recupérer le titre d'un fichier

Bonsoir à tous



Alors Dull, dans tes rêves les plus fous tu voudrais fusionner XLD avec le site de MyDearFriend!

En tout cas c'est ce que semble indiquer ton lien dans message
(Celui qui pointe sur ce merveilleux site ...)