Recuperation Valeur entre UserForms

Bonjour
Je reviens vers le forum pour vous demander conseil à propos de la recuperation d'une valeur d'une UserForm à une autre.
Lors du lancement de l'application Excel, This Workbook:

Code:

---

1 2 3

Private Sub Workbook_Open() UserForm_mdp.Show End Sub

---

L'utilisatiteur doit, en effet, s'identifier pour acceder à l'application (tt un dispositif a été mis au point pour ça).
Or, ce que je souhaiterais faire, c'est enregistrer l'historique des actions de l'utilisateur sur une BD contenant une table qui se compose des champs : Login,Operation,When.
Login as string
operation as string
when as date (avec la date=maintenant() ).

Jusqu'ici, aucun soucis, dés validation de l'identification, un nouveau champs est ajouté à la BD indiquant l'action :"Connexion à l'application", avec le nom de l'utilisateur aussi.

Or ! L'application dispose de plusieurs autres bouton, et quand je voudrais refaire cette action (d'enregistrement sur la BD), avec le meme login, ceci ne s'effectue pas !

Voila mon code pour l'enregistrement dans la BD :
Dans un module:

Code:

---

1 2 3 4 5 6 7

Public Function histo(op As String) Set rst1 = cnx.OpenRecordSet("SELECT * FROM Operations;") rst1.AddNew rst1.fields("login") = UserForm_mdp.ComboBox_login.Value rst1.fields("Operation") = op rst1.Update End Function

---

Si vous avez des idées ou plus de questions, je suis à disposition !

Bonjour,

Déclare une variable de portée projet en en-tete de module

Code:

---

Public NomOperateur as string

---

Tu initialise ensuite cette variable avec ton Usf de login.

Code:

---

NomOperateur = login.value ' a adapter à ton Usf

---

Cette variable conservera sa valeur tant que le classeur est ouvert, elle pourra donc etre réutiliser par tes autres procédures.

bonne journée

Merci pour cette reponse qui m'a un peu plus eclaircie sur le sujet.

Du coup, la fonction :

Code:

---

1 2 3 4 5 6 7

Public Function histo(op As String) Set rst1 = cnx.OpenRecordSet("SELECT * FROM Operations;") rst1.AddNew rst1.fields("login") = UserForm_mdp.ComboBox_login.Value rst1.fields("Operation") = op rst1.Update End Function

---

ne devra plus etre dans un module, mais dans chaque Usf non?

Bonjour sur le forum!
Sur la feuille module:

Code:

---

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 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50

Option Explicit   Public cnx As New ADODBRD Public wrk As Workbook   Public rst Public rst1 Public rst2 Public rst3 Public rst4 Public rst5 Public rst6 Public Rs Public rd   Public Sql As String Public Sql1 As String Public Sql2 As String Public Sql3 As String Public Sql4 As String Public Sql5 As String Public Sql6 As String   Public Rep As String Public nomfich As String Public choix As String   Public I As Integer   Public IMois As Long Public MesMois As New ClsMois Public CollectionMois As New Collection Public MoisExiste As String Public leMois As String Public Login As String   Sub connexion() Rep = ActiveWorkbook.Path cnx.TYPEBASE = 4 cnx.PassWord = "??" cnx.Fichier = "??" End Sub   Public Function histo(op As String) Dim Sql As String Sql = "INSERT INTO Operations (login,Operation) values('" Sql = Sql & Login & "','" Sql = Sql & op & "');" cnx.Execute Sql End Function

---

sur UserForm_mdp:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub cmd_valider_Click() Dim mdp As String   Login = ComboBox_login.Value mdp = TextBox_mdp.Value   Set rst = cnx.OpenRecordSet("SELECT * FROM Users WHERE login Like '" & ComboBox_login.Value & "' AND mdp='" & TextBox_mdp.Value & "'") If rst.EOF = False Then MsgBox ("Identification Réussie"), vbOKOnly, "Welcome" Unload Me Else MsgBox ("Erreur identification, veuillez réessayer"), vbCritical, "Erreur" TextBox_mdp.Value = "" End If End Sub

---

ensuit quand tu en as besoin,

Code:

---

1 2 3 4 5 6

histo "Condition Details" histo "Conditions Overview" histo "Number of <UB>" histo "Promotions OverView" histo "Promotion Details" histo "Exit"

---