Récuperer le nom de la feuille

Bonjour,

J'aimerais savoir comment je pourrais récuperer le 1er mot du nom d'une feuille puis le deuxième

Les feuilles sont nommées par Nom

Dans le cas de cette feuille je souhaiterais récupérer tous d'abord "Villechalane" Puis ensuite "Louis"

Merci pour votre aide

Arthur Renoud

Bonjour,

Un test à adapter à votre classeur via la méthode SPLIT qui permet de créer un array via le délimiteur espace :

Sub NOM()
Dim T() As Variant, W%
For W = 1 To Worksheets.Count - 1
    ReDim Preserve T(W - 1)
    T(W - 1) = Split(Worksheets(W).Name, " ")
Next W
Worksheets("BILAN").[A1].Resize(UBound(T) + 1, 2) = Application.WorksheetFunction.Transpose(T)
End Sub

Avec le classeur qui va bien. La feuille BILAN doit rester à la fin.

Cdlt,

Bonjour !

Une proposition via formules Excel.