Macro qui ouvre une feuille par rapport à la session

tototiti2008

XLDnaute Barbatruc

• 31 Octobre 2012

• #2

Re : Macro qui ouvre une feuille par rapport à la session

Bonjour vinzu,

Tu peux savoir quel utilisateur ouvre ton classeur, soit le nom enregistré à l'installation de Microsoft Office (Menu Outils - Options, Onglet Général, Nom d'utilisateur) avec

Code:

Application.Username

soit le nom de connexion à Windows avec

Code:

Environ("username")

Après, il faudra surement tester s'il y a une feuille existante à ce nom, décider que faire si cette feuille n'existe pas, etc...

 

Vote positif 0 Vote négatif

V

vinzu

XLDnaute Nouveau

• 31 Octobre 2012

• #3

Re : Macro qui ouvre une feuille par rapport à la session

J'ai tenté avec le code :

Code:

Private Sub Workbook_Open()
Environ (victor)
victor.ScrollArea = "A1:S800"
victor.Activate
ActiveWindow.Zoom = 101
End Sub

Mais cela me mets un message d'erreur...

Pour décider que faire si cette feuille n'existe pas par rapport à la session, je pensais que si un utilisateur n'existe pas, cela dirige automatique sur une feuille du début : feuil1

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 31 Octobre 2012

• #4

Re : Macro qui ouvre une feuille par rapport à la session

Bonjour vinzu, toto

c'est quoi "victor" dans ton code ??? si nom de feuille :

Code:

Sheets("Victor").Activate

bon après midi
@+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 31 Octobre 2012

• #5

Re : Macro qui ouvre une feuille par rapport à la session

Re,
un exemple de test de l'utilisateur de la cession windows :

Code:

If Environ("UserName") = "Victor" Then Sheets("Victor").Activate Else Sheets("Feuil1").Activate

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 31 Octobre 2012

• #6

Re : Macro qui ouvre une feuille par rapport à la session

Bonjour Pierrot ,
Re,

Ou peut-être un truc comme ça

Code:

Sub test()
Dim Ws As Worksheet
    On Error Resume Next
    Set Ws = ThisWorkbook.Worksheets(Environ("username"))
    On Error GoTo 0
    If Ws Is Nothing Then
        Sheets("Feuil1").Activate
    Else
        Ws.Activate
    End If
End Sub

 

Vote positif 0 Vote négatif