Nommer sa Feille avec un formule

Bonjour,

Je veux nommer mes feuilles en fonction des dates d'extraction et les trier à chaque nouvelle feuille par odre croissant.

la date se trouve toujours en C2, mais sous le format personnalisé JJ/MM/AA et je veux un nom sous la forme "aamm DA" (DA étant le type du fichier).

Donc, j'ai mis en B2 la formule =TEXTE(C2;"aa") & TEXTE(C2;"mm") & " DA", avec dans la macro

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If IsEmpty(Range("B2")) Then Exit Sub
    ActiveSheet.Name = [B2]    'je voudrais     =TEXTE(C2;"aa") & TEXTE(C2;"mm") & " DA"
End Sub

mise dans ThisWorkbook ; d'abord, je voudrais savoir s'il est possible de mettre la formule dans la macro du style, pour ne rien inscrire dans le fichier lui même.

et ensuite, comment faire pour les trier

Merci

Bonjour,

    If IsDate([C2]) Then
        ActiveSheet.Name = Format([C2], "yy") & Format([C2], "mm") & " DA"
    End If

A+

Slt à toi simple macro suffit :

Sub Bouton2_Clic()

If IsDate([C2]) Then

ActiveSheet.Name = Format([C2], "yy") & Format([C2], "mm") & " DA"

End If

End Sub

A+ Roland

Bonjour Frangy et Roland

Merci à vous deux, c'est pafait.

En ce qui concerne le tri, j'ai trouvé ça

Sub TriOnglet()
Dim Encore As Boolean
Dim i As Byte
    Do
    Encore = False
    For i = 1 To Sheets.Count - 2
      If Sheets(i).Name > Sheets(i + 1).Name Then
        Sheets(i).Move after:=Sheets(i + 1)
        Encore = True
      End If
    Next i
    Loop Until Encore = False
End Sub

ça fonctinne, mais étant débutante, je ne comprends pas à quoi sert la variable Encore.

Pouvez-vous me confirmer que le code est adéquat et à quoi correspond cette variable, comment fonctionne-t'elle ?

Merci

Dans ton code, chaque nom de feuille est comparé à celui des autres feuilles. Les feuilles sont ainsi classées dans un ordre ascendant.

La variable Encore est initialisée à l’état FAUX.

Si on trouve un classement à effectuer, elle est passée à l’état VRAI.

Si elle est à l’état FAUX en sortie de boucle, cela signifie qu’il ne reste aucun classement à effectuer. Toutes les feuilles sont alors dans le bon ordre.

A+

Merci Frangy,

Réponse claire et précise.

DSL mais moi 7 jearol53

pas grave a+

cordial