Bonjour, je voudrais savoir comment executer une macro à l'ouverture?
Bonjour, je voudrais savoir comment executer une macro à l'ouverture?
Il me semble qu'il suffit que tu l'appelles autoexec
Je met sa ou?
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.
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.![]()
Cycle de vie d'un bon programme :
1/ ça fonctionne 2/ ça s'optimise 3/ ça se refactorise
Pas de question technique par MP, je ne réponds pas
Mes ouvrages :
Migrer les applications VBA Access et VBA Excel vers la Power Platform
Apprendre à programmer avec Access 2016, Access 2019 et 2021
Apprendre à programmer avec VBA Excel
Prise en main de Dynamics 365 Business Central
Coffrets disponibles de mes ouvrages : https://www.editions-eni.fr/jean-philippe-andre
Pensez à consulter la FAQ Excel et la FAQ Access
Derniers tutos
Excel et les paramètres régionaux
Les fichiers Excel binaires : xlsb,
Autres tutos
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?
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!
Merci
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
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
Cycle de vie d'un bon programme :
1/ ça fonctionne 2/ ça s'optimise 3/ ça se refactorise
Pas de question technique par MP, je ne réponds pas
Mes ouvrages :
Migrer les applications VBA Access et VBA Excel vers la Power Platform
Apprendre à programmer avec Access 2016, Access 2019 et 2021
Apprendre à programmer avec VBA Excel
Prise en main de Dynamics 365 Business Central
Coffrets disponibles de mes ouvrages : https://www.editions-eni.fr/jean-philippe-andre
Pensez à consulter la FAQ Excel et la FAQ Access
Derniers tutos
Excel et les paramètres régionaux
Les fichiers Excel binaires : xlsb,
Autres tutos
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
Salut,
Tu crées un formulaire, avec une liste appelée ListBox, et tu mets ce code dans l'évènement Form_Open()
Cycle de vie d'un bon programme :
1/ ça fonctionne 2/ ça s'optimise 3/ ça se refactorise
Pas de question technique par MP, je ne réponds pas
Mes ouvrages :
Migrer les applications VBA Access et VBA Excel vers la Power Platform
Apprendre à programmer avec Access 2016, Access 2019 et 2021
Apprendre à programmer avec VBA Excel
Prise en main de Dynamics 365 Business Central
Coffrets disponibles de mes ouvrages : https://www.editions-eni.fr/jean-philippe-andre
Pensez à consulter la FAQ Excel et la FAQ Access
Derniers tutos
Excel et les paramètres régionaux
Les fichiers Excel binaires : xlsb,
Autres tutos
Partager