Feuille sommaire et lien hypertexte

bonjour

j'aimerais quelques petit coup de main dans le fichier joint

à l'activation de la macro permettant de dupliquer une feuille avec lien hyper texte

• onglet sommaire avoir le lien hypertexte en B2 et non A1
• avoir un message d'erreur " nom unité déjà existant" quand le nom du fichier écrit est identique à celui de la liste existante

'Private Function Existe(ByVal Str As String) As Boolean

'On Error Resume Next

'Existe = ThisWorkbook.Sheets(Str).Index > 0

'On Error GoTo Fin

'Fin:

'MsgBox "nom unité déjà existant"

'End Function

- avoir dans la feuille copiée en D4 le nom de l'onglet actuellement je m'en sors avec une formule =STXT(CELLULE("nomfichier";$D$1);TROUVE("]";CELLULE("nomfichier";$D$1))+1;32)

mais j'aimerais quelque chose de plus faible

merci de vos corrections et de votre aide

bonjour,

proposition de correction

Sub AjoutdeFeuilleX()
Dim DerLigne As Long
Dim Nom As String

Nom = InputBox("Veuillez saisir le nom de la nouvelle unité.         ATTENTION!!! si le nom existe déjà pas de création de nouvelle feuille")
If Nom <> "" Then
    If Not Existe(Nom) Then
        With Worksheets("Sommaire")
            DerLigne = .Cells(.Rows.Count, 2).End(xlUp).Row
            Worksheets("feuille à copier").Copy After:=Sheets(Sheets.Count)
            ActiveSheet.Name = Nom
            .Hyperlinks.Add Anchor:=.Range("B" & DerLigne + 1), Address:="", _
            SubAddress:="'" & Nom & "'!A1", TextToDisplay:=Nom
        End With
    Else
       MsgBox "unité existe déjà ! "
    End If
End If
End Sub

Private Function Existe(ByVal Str As String) As Boolean

On Error Resume Next
Existe = ThisWorkbook.Sheets(Str).Index > 0
On Error GoTo 0
End Function

merci H2SO4

j'étais parti dansun mauvaise direction

pour intégrer dans ce code le nom de l'onglet dans une cellule donné plutôt que la formule

=STXT(CELLULE("nomfichier";$D$1);TROUVE("]";CELLULE("nomfichier";$D$1))+1;32)

j'essaie de trouver par moi même sur ce forum

merci encore une fois de ton aide