Discussion :

[moilou2]

Bonjour, je voudrais savoir comment executer une macro à l'ouverture?

[tamyly]

Il me semble qu'il suffit que tu l'appelles autoexec

[moilou2]

Je met sa ou?

[tamyly]

Tu crées ta macro sous access et tu l'enregistres en la renommant : Autoexec.

De cette façon à chaque ouverture de la base ta macro va s'exécuter.

[Jean-Philippe André]

Bonjour,
- Tu crées une macro dans l'interface Access (Onglets Macros)
- Tu la nommes AutoExec
- Access la détectera automatiquement en tant que macro à lancer à l'ouverture.

[moilou2]

OK merci. En fait, je voulais lancer un formulaire avec une photo pour qu'il se positionne derrière ma feneter me demandant le login et le password, mais je sais pas si c'est possible?

[moilou2]

Re se que je voualis faire aussi à l'ouverture du classeur, c'était que à la place d'avoir une textbox dans la fenetre des mot de passe + login, je voulais que pour les login, se soit une liste déroulante avec les différents groupe d'utilisateur, j'avais trouvé le code suivant, mais je ne sais pas comment l'introduire dans mon vba!

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
24
25
26
27
Sub lstGrpUsr()
    Dim Wrk As Workspace
    Dim Grp As DAO.Group
    Dim Usr As DAO.User
 
    Set Wrk = DBEngine.Workspaces(0)
 
    With Wrk
 
        Debug.Print "Groupes :"
 
        For Each Grp In .Groups
            Debug.Print "  " & Grp.Name
            Debug.Print "   Contient les membres suivants:"
 
            If Grp.Users.Count <> 0 Then
                For Each Usr In Grp.Users
                    Debug.Print "    " & Usr.Name
                Next Usr
            Else
                Debug.Print "    Aucun Membre"
            End If
 
        Next Grp
 
    End With
End Sub

Merci

[Jean-Philippe André]

Pour alimenter ta liste, tu peux regarder dans la FAQ ici
http://access.developpez.com/faq/?page=zdl#AddItem
Dans une liste avec deux colonnes Groupe/Utilisateur, ca donnerait ca :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 Me.ListBox.RowSource = ""
For Each Grp In .Groups
      If Grp.Users.Count <> 0 Then
                For Each Usr In Grp.Users
                    Me.ListBox.RowSource = Me.ListBox.RowSource & Grp.Name & ";" & Usr.Name & ";" 
                Next Usr
      Else
                Me.ListBox.RowSource = "Aucun Membre"
      End If
 
Next Grp

[moilou2]

Re j'espère que l'on parle de la même chose moi je parle de remplacer la text box de la boite de dialogue password + login par une listbox qui reprend les groupe d'utilisateurs, voir les comptes utilisateurs?

Ce n'est pas moi qui ai créer la boite de dialogue (autrement dit ce n'est pas un formulaire que j'ai créé), mais je me suis servi du menu Outils/Sécurité/Gestion des utilisateurs et des groupes...

Merci si c'est bien sa je le place ou ce code?

Merci bcp

[Jean-Philippe André]

Salut,
Tu crées un formulaire, avec une liste appelée ListBox, et tu mets ce code dans l'évènement Form_Open()