PB de lien vers onglet

Bonjour,

Un petit problème dans la création d'un lien de ma page accueil vers l'onglet en question.

J'ai tenté ce code, mais il ne fonctionne pas.

With Sheets("Accueil")
.Hyperlinks.Add Anchor:=.Range("G" & i), Address:="", SubAddress:=ajoutsalarie & "!A1", TextToDisplay:="lien"

Je pense qu'il n'y a pas grand chose à modifier,

mais vu que je débute en vba je n'ai pas la capacité à bien identifier l'erreur.

Le fichier en pj pour plus de facilité.

Merci pour votre aide.

Bonjour

essayez votre code comme ceci

Sub Bouton1_ajoutersalarie()

Dim ajoutsalarie As String
    ajoutsalarie = InputBox("Nom du nouveau salariŽ")

If ajoutsalarie = "" Then Exit Sub

Dim debutcontrat As Date
    debutcontrat = InputBox("Date de dŽbut du contrat ?", " Date de debut d'intervalle ", "01/01/2013 ")

Dim fincontrat As Date
    fincontrat = InputBox("Date de fin du contrat ?", " Date de debut d'intervalle ", "01/01/2013 ")

Dim dureecontrat As String
    dureecontrat = InputBox("Volume hebdomadaire ? (heure:min)")

Sheets("Onglet vierge").Copy before:=Sheets(Sheets.Count)

With ActiveSheet
    .Name = ajoutsalarie
    .Range("_nomsalarie").Value = ajoutsalarie
    .Range("_debut").Value = debutcontrat
    .Range("_fin").Value = fincontrat
    .Range("_duree").Value = dureecontrat
End With

Dim i As Integer
i = Sheets("Accueil").Range("B" & Rows.Count).End(xlUp).Row + 1
With Sheets("Accueil")
    i = .Range("B" & Rows.Count).End(xlUp).Row + 1
    .Range("B" & i).Value = ajoutsalarie
    .Range("C" & i).Value = dureecontrat
    .Range("D" & i).Value = debutcontrat
    .Range("E" & i).Value = fincontrat
    .Hyperlinks.Add Anchor:=.Range("G" & i), Address:="", SubAddress:="'" & .Range("B" & i) & "'!A1", TextToDisplay:="Lien"
End With
End Sub

Rem :
- vous auriez pu aussi utiliser le double click dans les cellules B plutot que de faire un lien
- Evitez aussi les accents et espaces dans le nom de vos feuilles si vous utilisez VBA. Il arrive toujours un souci à un moment ou un autre

Si ok

Cordialement

Bonjour à tous

Essaie de modifier comme ceci :

With Sheets("Accueil")
     .Hyperlinks.Add Anchor:=.Range("G" & i), Address:="", SubAddress:="'" & ajoutsalarie & "'!A1", TextToDisplay:="lien"
    End With

C'est à cause des espaces dans le nom de la feuille.

Bonne journée

Super 👍

Merci pour votre aide à tous les 2.

Effectivement j'aurai pu mettre en lien directement sur le nom, mais j'essaie de faire des choses qui sont à ma portée, je débute seulement en VBA...

Merci beaucoup pour votre aide.

Belle journée.