Remplacer une base de donnees excel par une table access 2007

Résolu/Fermé

pyrus2047 Messages postés 153 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 153 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:

Remplacer une base de donnees excel par une table access 2007
Table ascii - Guide
Déplacer une colonne excel - Guide
Remplacer disque dur par ssd - Guide
Table des matières word - Guide
Calculer une moyenne sur excel - Guide

4 réponses

Réponse 1 / 4

yg_be Messages postés 23408 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 26 décembre 2024 Ambassadeur 1 557
18 nov. 2018 à 14:03

bonjour, as-tu une question?

pyrus2047 Messages postés 153 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

yg_be Messages postés 23408 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 26 décembre 2024 1 557 > pyrus2047 Messages postés 153 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

pyrus2047 Messages postés 153 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)

"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?

pyrus2047 Messages postés 153 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

Réponse 2 / 4

castours
18 nov. 2018 à 17:34

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

pyrus2047 Messages postés 153 Date d'inscription lundi 3 juillet 2017 Statut Membre Dernière intervention 22 mai 2023
18 nov. 2018 à 17:50

Re
voici merci
https://www.cjoint.com/c/HKsqXfcmFrU

Réponse 3 / 4

castours
18 nov. 2018 à 18:06

bonjour
tu veux quoi exactement comme base de données

pyrus2047 Messages postés 153 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

Réponse 4 / 4

castours
20 nov. 2018 à 11:28

bonjour
est ce que tu peux faire ce que as en excel le faire directement en access
Dans access on peut faire des calcul

pyrus2047 Messages postés 153 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

Discussions similaires

Nettoyer une base de données avec une liste