Remplacer une base de donnees excel par une table access 2007

Résolu
pyrus2047 Messages postés 156 Statut Membre -  
pyrus2047 Messages postés 156 Statut Membre -
Bonjour
j' ai un fichier excel qui me permet d'attribuer differant droit d'accer
depuis la feuil parametrage que je souhaite remplacer par une table
pour que les macros dans le module1recuper les informations dans la table
pour attribuer les droit
NOM Mot de Passe
DURANT DUDU
Pour l'userform de connection
voici les ficher access et excel
Cordialement

https://www.cjoint.com/c/HKslJRS3rbU

https://www.cjoint.com/c/HKslLWRBzOU

4 réponses

Résumé de la discussion

Un fichier Excel est discuté pour remplacer la feuille Paramétrage par une table afin que les macros du module1recuper récupèrent les droits via le NOM et le Mot de Passe et alimentent l'userform de connexion. Réponses proposées incluent deux versions de VerifMDP utilisant DAO et CurrentDb.OpenRecordset sur la table parametrage, avec des réflexions sur fermeture de boîtes de dialogue et accès à la base Access. Des défis portent sur la sécurité du mot de passe dans VBA et la gestion des droits visibles ou masqués, avec des propositions d’optimisation pour réduire les appels à la base et éviter l’erreur 3031.

Bobot (l'IA à votre service)
  1. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 588
     
    bonjour, as-tu une question?
    0
    1. pyrus2047 Messages postés 156 Statut Membre
       
      RE
      Merci pour ton interet
      si tu a une solution pour adapter le contenu du module 1pour que les information prisent
      dans la table access et non dans la feuil parametrage excel
      Cordialement
      0
    2. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   1 588 > pyrus2047 Messages postés 156 Statut Membre
       
      suggestion: 
      Function VerifMDP(Utilisateur As String, MdP As String) As Boolean
Dim rTrouve As dao.Recordset, sql As String

sql = "select * from parametrage where NOM='" & Utilisateur & "' and [Mot de Passe] ='" & MdP & "'"
Set rTrouve = CurrentDb.OpenRecordset(sql)
If rTrouve.EOF Then
    VerifMDP = False
Else
    VerifMDP = True
End If
End Function
      0
    3. pyrus2047 Messages postés 156 Statut Membre
       
      Re merci
      cette ligne bug
      Set rTrouve = CurrentDb.OpenRecordset(sql)
      0
    4. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   1 588 > pyrus2047 Messages postés 156 Statut Membre
       
      "bug": quel message d'erreur?
      tu as bien mis le code dans le fichier Access? oui bien tu souhaites laisser module1 dans le fichier Excel?
      0
    5. pyrus2047 Messages postés 156 Statut Membre
       
      j'ai ce message: Variable objet ou variable bloc With non définie (erreur 91)

      oui je veux laisser module 1 dans excel et du coup randre visible les feuilles qui ont un X dans la table access
      merci
      0
  2. castours
     
    Bonjour
    Compresse tes fichiers en zip ou rar puis tu les mets dans un comme la fait.
    Ils seront plus facile a lire et ouvrir
    0
  3. castours
     
    bonjour
    tu veux quoi exactement comme base de données
    0
    1. pyrus2047 Messages postés 156 Statut Membre
       
      Re
      je souhaite adapter le contenu du module 1pour que les information prisent
      dans la table access et non dans la feuil parametrage excel
      Cordialement
      0
  4. castours
     
    bonjour
    est ce que tu peux faire ce que as en excel le faire directement en access
    Dans access on peut faire des calcul
    0
    1. pyrus2047 Messages postés 156 Statut Membre
       
      Bonjour
      non pas possible chez moi tout le monde travail avec excel
      0