Ouvrir un classeur sur une page précise
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 : Laurent Longre
Mots clefs associés à cette page : feuille, sheet, onglet, worksheet, fichier, classeur, file, xls, ouvrir, ouvert
- Vous devez vous identifier ou créer un compte pour écrire des commentaires
