Remplacer une base de donnees excel par une table access 2007

Résolu/Fermé
pyrus2047 Messages postés 154 Date d'inscription lundi 3 juillet 2017 Statut Membre Dernière intervention 22 mai 2023 - Modifié le 18 nov. 2018 à 12:41
pyrus2047 Messages postés 154 Date d'inscription lundi 3 juillet 2017 Statut Membre Dernière intervention 22 mai 2023 - 28 nov. 2018 à 20:21
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
A voir également:

4 réponses

yg_be Messages postés 22708 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 20 avril 2024 1 474
18 nov. 2018 à 14:03
bonjour, as-tu une question?
0
pyrus2047 Messages postés 154 Date d'inscription lundi 3 juillet 2017 Statut Membre Dernière intervention 22 mai 2023
18 nov. 2018 à 16:22
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
yg_be Messages postés 22708 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 20 avril 2024 1 474 > pyrus2047 Messages postés 154 Date d'inscription lundi 3 juillet 2017 Statut Membre Dernière intervention 22 mai 2023
18 nov. 2018 à 16:56
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
pyrus2047 Messages postés 154 Date d'inscription lundi 3 juillet 2017 Statut Membre Dernière intervention 22 mai 2023
18 nov. 2018 à 19:59
Re merci
cette ligne bug
Set rTrouve = CurrentDb.OpenRecordset(sql)
0
yg_be Messages postés 22708 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 20 avril 2024 1 474 > pyrus2047 Messages postés 154 Date d'inscription lundi 3 juillet 2017 Statut Membre Dernière intervention 22 mai 2023
18 nov. 2018 à 21:58
"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
pyrus2047 Messages postés 154 Date d'inscription lundi 3 juillet 2017 Statut Membre Dernière intervention 22 mai 2023
18 nov. 2018 à 22:57
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
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
pyrus2047 Messages postés 154 Date d'inscription lundi 3 juillet 2017 Statut Membre Dernière intervention 22 mai 2023
18 nov. 2018 à 17:50
0
bonjour
tu veux quoi exactement comme base de données
0
pyrus2047 Messages postés 154 Date d'inscription lundi 3 juillet 2017 Statut Membre Dernière intervention 22 mai 2023
18 nov. 2018 à 20:09
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
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
pyrus2047 Messages postés 154 Date d'inscription lundi 3 juillet 2017 Statut Membre Dernière intervention 22 mai 2023
20 nov. 2018 à 12:30
Bonjour
non pas possible chez moi tout le monde travail avec excel
0