Ouvrir un classeur sur une page précise

Comment faire pour que mon classeur s'ouvre toujours sur la page "saisie" ? Ce classeur est utilisé par plusieurs personnes ayant chacune leur feuille particulière. Peut-on mettre sur le PC de chacune un raccourci qui ouvrirait directement sur la bonne feuille ?

Si tu n'as pas la contrainte d'utilisateurs multiples, sans aucun code, si à la fermeture de ton classeur tu l'enregistres alors qu'il est sur cette page, il se rouvrira sur celle-ci.
Pour automatiser la chose, tu peux mettre ceci dans le before_close du module ThisWorkBook
sheets("saisie").range("A1").select.
Maintenant si tu veux personnaliser cette page en fonction de l'utilisateur
La cible du raccourci doit être écrite ainsi pour ouvrir le fichier sur la feuille 3
"CheminCompletd'XL" /e3 "CheminCompletduFichierXLS"
Et dans le module ThisWorkBook.

Private Declare Function GetCommandLine$ Lib "Kernel32" Alias "GetCommandLineA" ()
Private sub Workbook_Open()
  Dim CmdLine$, Pos1&
  CmdLine = GetCommandLine
  Pos1 = InStr(CmdLine, ThisWorkbook.FullName)
  If Pos1 <> 0& Then CmdLine = Mid$(CmdLine, 1&, Pos1 - 1&) Else exit sub
  If Right(CmdLine, 1&) = """" Then Pos1 = 2& Else Pos1 = 1&
  CmdLine = Mid$(CmdLine, 1&, Len(CmdLine) - Pos1)
  CmdLine = Mid$(CmdLine, InStr(1&, CmdLine, " /e") + 3&, Len(CmdLine) - 1&)
  Worksheets(CLng(CmdLine)).Activate
 end sub

Auteur :

Mots clefs associés à cette page : , , , , , , , , ,