Besoin d'une commande pour récupération du titre de l'onglet

[Sobas]

Bonjour j'aurais voulus avoir un code pour récupérer se qui écris sur mon premier onglet 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 a 16, et le nom en A19 sous la forme: Nombre (Nom)

Ci joint, un dossier type.

Je vous remercie

[ouisansdoute]

Voici un bout de code

Code :

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

[Sobas]

salut ouisansdoute,

SA marche d'enfer, merci a toi et pardon pour la réponse tardive.
a+

[Sobas]

J'aurais voulus savoir s'il était possible de faire la même chose mais avec le titre du document (qui est luis aussi de la même forme).

Merci.