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 -
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
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
- Save as pdf office 2007 - Télécharger - Bureautique
- Déplacer une colonne excel - Guide
- Remplacer disque dur par ssd - Guide
- Table des matières word - Guide
4 réponses
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
Compresse tes fichiers en zip ou rar puis tu les mets dans un comme la fait.
Ils seront plus facile a lire et ouvrir
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
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 Functioncette ligne bug
Set rTrouve = CurrentDb.OpenRecordset(sql)
tu as bien mis le code dans le fichier Access? oui bien tu souhaites laisser module1 dans le fichier Excel?
oui je veux laisser module 1 dans excel et du coup randre visible les feuilles qui ont un X dans la table access
merci