Discussion :

[jef.96]

Bonjour à tous,

C'est mon premier message sur ce forum, j'espere donc que vous pourrez m'aider, car j'avoue ne pas encore connaitre VBA.. mais j'aime le coté pratique de ce langage pour améliorer Excel.
Voici ma question : Comment faire pour que lorsqu'un utilisateur Windows défini ouvre un fichier Excel, celui ci tombe sur une feuille le concernant ?

En gros, j'ai créé 15 feuilles nommé "Dupont", "Martin".... et je veux que quand ces personnes ouvrent mon document Excel, elle tombent directement sur la page (un formulaire qu'il doivent remplir)

Merci par avance de votre aide !
A bientot

PS : J'ai entendu parler de environ.username("username").... si ca peut aider ?

[Godzestla]

Bonjour,

dans la mesure ou le username est corerctement défini dans l'envirronement, le code suivant à installer dans Thisworkbook de ton projet peut fonctionner :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Workbook_Open()
For Each sh In Sheets
    If UCase(sh.Name) = UCase(Application.UserName) Then
        sh.Select
        Exit For
    End If
Next sh
End Sub

[jef.96]

Merci !
Je vais jouer les gros nuls, mais ou puis je définir la feuille à ouvrir pour chaque utilisateur ?

Concrètement, dans le code, j'ai l'impression que tout est automatique, alors que je veux que l'utilisateur NT "mdupont" ouvre la page "Martin DUPONT"

Merci encore de votre aide

[Godzestla]

Oops,

ça change alors un peu.
J'utilise UCASE pour convertir le user NT en majuscule, comme cela pas besoin de se tracasser de la casse, mais le test est bien sûr à faire en majuscule alors.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Private Sub Workbook_Open()
dim Targetsh as string
 
Select case UCase(sh.Name)
         case "MDUPONT"
            Targetsh = "Martin DUPONT"
         case  "BGATES"
            Targetsh = "Bill Gates"
         '
         ' ici tous les autres cas
         ' 
 
         Case else
            Targetsh = "niks"
end select
For Each sh In Sheets
    If sh.Name = TargetSh Then
        sh.Select
        Exit For
    End If
Next sh
End Sub

Mais ce n'est pas idéal car tu dois changer ton code à chaque ajout, suppression de user.

Il est préférable de réserver une feuille du fichier avec en colonne A le NTUSER et en B le nom de la feuille lié, mais c'est une autre programmation et je n'ai guère le temps pour cela.