XL 2019 Ouvrir un fichier toujours sur le même onglet et cellule

job75 à dit:

Bonjour Patrick BRZ,

Dans ThisWorkbook :

VB:

Private Sub Workbook_Open()
With Sheets("Accueil")
    .Visible = xlSheetVisible 'au cas où
    Application.Goto .[B3]
End With
End Sub

A+

Cliquez pour agrandir...

job75 à dit:

Ce que vous appelez "ascenseur" est sans doute une liste de validation.

Voyez le fichier joint avec ce code dans ThisWorkbook :

VB:

Private Sub Workbook_Open()
Dim n%, s As Object
With Sheets("Accueil")
    .Range("K2:K" & .Rows.Count).ClearContents 'RAZ
    n = 1
    For Each s In Sheets
        If LCase(s.Name) <> "accueil" Then n = n + 1: .Cells(n, "K") = s.Name
    Next s
    With .[B3].Validation
        .Delete
        .Add xlValidateList, Formula1:="=$K$2:$K$" & n
        .Parent = Evaluate(.Formula1).Cells(1) '1er élément de la liste
    End With
End With
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If LCase(Sh.Name) = "accueil" Then If Target.Address = "$B$3" Then If Target <> "" _
    Then Sheets(CStr(Sh.[B3])).Visible = xlSheetVisible: Sheets(CStr(Sh.[B3])).Activate
End Sub

La 1ère macro redéfinit la liste de validation et entre le 1er élément en B3 (Feuil2).

La 2ème macro active la feuille dont le nom a été choisi en B3.

Cliquez pour agrandir...

job75 à dit:

Bonjour le forum,

Dans la Workbook_Open du post #4 j'avais oublié de nommer la plage définissant la liste de validation, c'est corrigé.

A+

Cliquez pour agrandir...

JohnBill à dit:

Bonjour, ne serait il pas plus simple de sélectionner le fichier et la cellule en cause à la fermeture du fichier et d'enregistrer les modifications. Il se réouvrira tel qu'il a été fermé.

Cliquez pour agrandir...