Demande de macro VBA [Résolu]

[Sobas]

Bonjour j'aurais voulus avoir un code pour récupérer se qui écris dans le titre du fichier et le coller en feul3.

Se texte est toujours de la forme, date nom (en un ou plusieurs mots): "ex" 08 10 alpha F

je voudrais que la date sois coller entre parenthèse, à la suite de se qui est écris en A16, et le nom en A19 sous la forme: Nombre (Nom)

Ci joint, un dossier type.

Je vous remercie

[Sobas]

j'ai fait ça a partir d'un code qu'on m'avais envoyé:

Code :

1
2
3
4
5
Sub Traitement()
    nom = ActiveWorkbook.Name
    Range("a16") = "(" & Left(nom, 5) & ")"
    Range("A19") = Mid(nom, 7)
End Sub

Mais je me retrouve avec la deuxième partie de mon titre (Range("A19") = Mid(nom, 7)) avec .xlsx

Comment je pourrais supprimer ça?

[Gestionnaire_rh]

Bonjour,

essaye avec cette modif:

Code :

1
2
3
4
    nom = ActiveWorkbook.Name
    N = Len(nom)
    Range("a16") = "(" & Left(nom, 5) & ")"
    Range("A19") = Mid(nom, 7, N - 11) ' 11=06 premiers caracteres (08 10 ),plus les 05 derniers (.xlsx)

quoique en formule ça marche aussi avec:

Code :

1
2
A16="("&GAUCHE(NOMCLASSEUR();5)&")"
A19=STXT(NOMCLASSEUR();7;NBCAR(NOMCLASSEUR())-11)

Cordialement

[Sobas]

Parfais merci beaucoup.