Automatiser le nom d'une feuille

Bonjours à tous,

voici en premier lieu le fichier

https://www.excel-pratique.com/~files/doc/bordereaux.xls

Dans cet exemple, mon bouton crée automatiquement un bordereau en fonction d'une feuille type. A la création, cette nouvelle feuille se nomme "Feuille type (2)". Pour l'instant, je suis obligé de la renommer manuellement. Ainsi, le premier bordereau a été renommé "1", le deuxième "2" (voir format - feuille - afficher).

est-il possible que le nom se mette automatiquement à la création en fonction des feuilles précédentes déjà existantes? Ainsi, à la troisième création, le bordereau se nommerait automatiquement "3".

Question subsidiaire, puis-je aussi remplir automatiquement la case H3 en focntion du n° de bordereau (nom de l'onglet).

D'avance, merci à tous,

Bien cordialement

Elfi

Rebonjour,

à réponses longues, problème intéressant. Je ne pensais pas que ce soit aussi compliqué,

mais j'ai confiance en vous!

Merci d'avance encore,

bien cordialement,

Elfi

Bonjour

Avec ta macro modifié de cette façon:

Sub créerbordereau()
Dim i As Integer
    Sheets("feuille type").Visible = True
    Sheets("feuille type").Copy after:=Sheets("feuille type")
    i = Sheets.Count
    ActiveSheet.Name = i - 2 '- 2 = feuille type et accueil
'nom de la feuille dans la cellule H3
    [H3].Value = ActiveSheet.Name

    Sheets("feuille type").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("accueil").Select
    ActiveWindow.SelectedSheets.Visible = False

End Sub

Bonjour,

Tu peux essayer aussi ce code :

Sub créerbordereau()
' Macro par DAN pour plabrousse le 06/03/08
On Error Resume Next
Application.ScreenUpdating = False
With Sheets("feuille type")
    .Visible = xlSheetVisible
.Copy after:=Sheets("feuille type")
    ActiveSheet.Name = Worksheets.Count - 2
     .Visible = xlSheetVeryHidden
End With
Sheets("Accueil").Visible = xlSheetVeryHidden
End Sub

Amicalement

Dan

Bonjours à tous,

Lundi matin, bon pied, bon oeil!

Merci à Nad dan et CB60, vous assurez vraiment. C'est exactement ce qu'il me fallait.

Merci mille fois,

Bien cordialement

Elfi