petit probleme qui m'empeche d'avancer

[rainbow69006]

Bonjour a tous voila mon probleme.

J'ai un code qui test au demarage que l'utilisateur est autorise a rentrer dans le fichier et qui verifie a quel page il a acces.

Pour cela mon programe compare le nom d'utilisateur avec ceux qui sont rentrer dans la page "adm". Mon programe quand j'ecris les nom d'utilisateurs dans la page adm marche parfaitement.

Probleme c'est que mes nom d'utilisateurs ne sont pas ecris mais ils sont copier a partir d'un autre classeur.

Donc il faurait soit que le programe lise la valeur inscrite dans les cases de la page adm et non les liens (c'est ce que je pense qu'il fait actuellement (il ne lit pas utilisateur pierre mais ='C:\classeur.xls]adm'!A11)), soit qu'il compare directement avec le classeur ou sont les liens.

Merci de votre aide.


Private Sub acces()
Dim LigF As Long, Niveau As Integer

On Error Resume Next
LigF = Sheets("adm").Range("A:A").Find(What:=Application.UserName, LookAt:=xlWhole).Row
On Error GoTo 0
' L'utilisateur n'est pas trouvé
If LigF = 0 Then
access.Show
Exit Sub
End If
' L'utilisateur est trouvé
Niveau = Sheets("adm").Range("B" & LigF)
If Niveau = 1 Then
Sheets("A").Visible = False
Sheets("B").Visible = True
Sheets("C").Visible = True
Sheets("D").Visible = False
Sheets("E").Visible = False
Sheets("F").Visible = False
Sheets("G").Visible = False
Sheets("H").Visible = False
Sheets("I").Visible = False

End If
If Niveau = 2 Then
Sheets("A").Visible = True
Sheets("B").Visible = True
Sheets("C").Visible = True
Sheets("D").Visible = True
Sheets("E").Visible = True
Sheets("F").Visible = False
Sheets("G").Visible = False
Sheets("H").Visible = False
Sheets("I").Visible = False
End If
End Sub

 

[jp14]

Re : petit probleme qui m'empeche d'avancer

Bonsoir

Une piste ouvrir le fichier qui contient les données.

JP

 

[rainbow69006]

Re : petit probleme qui m'empeche d'avancer

Merci de ta reponse

Mias Non justement le fichier ou ce situe les donnees ne doit pas etre ouvert

as tu une autre idee?

merci

 

[Compte Supprimé 979]

Re : petit probleme qui m'empeche d'avancer

Salut Rainbow69006,
Salut jp14

As-tu essayé avec l'argument : lookin:=xlValues en plus

Ce qui donnerait

On Error Resume Next
LigF = Sheets("adm").Range("A:A").Find(What:=Application. UserName, LookIn:= XlValues, LookAt:=xlWhole).Row
On Error GoTo 0

A+

 

[jp14]

Re : petit probleme qui m'empeche d'avancer

Bonsoir

Une piste : utiliser la base de registre pour stocker les informations.

JP

 

[rainbow69006]

Re : petit probleme qui m'empeche d'avancer

Bruno

ta solution marche tres bien , le probleme c'est qu'apres mes cellules ou il y avait des liens au depart sont transformes en valeurs

c'est a dire qu'au lieu d'avoir c:... il y a la valeurs ce qui empeche donc toute mise a jours. Ce qui bien sur ne peu pas aller.

MMM bizarre je viens de remettre les liens et sa a l'air de marcher


JP14
Comment utilise t'on une base de registre?

Meric a tout les deux

 

[Compte Supprimé 979]

Re : petit probleme qui m'empeche d'avancer

Bruno
ta solution marche tres bien , le probleme c'est qu'apres mes cellules ou il y avait des liens au depart sont transformes en valeurs

c'est a dire qu'au lieu d'avoir c:... il y a la valeurs ce qui empeche donc toute mise a jours. Ce qui bien sur ne peu pas aller.

Je ne vois pas pourquoi les liens sont transformés en valeurs 😕
puisque le code que je t'ai donné ne fait que rechercher la ligne qui contient le nom d'utilisateur

Et ne remplace en aucun cas le contenu de la cellule !

A+

 

[rainbow69006]

Re : petit probleme qui m'empeche d'avancer

Oui c'est bizarre maintenant sa ne le fais plus...

J'ai du faire une fausse manip😡

Merci Bruno

 

[jp14]

Re : petit probleme qui m'empeche d'avancer

Bonjour

Bruno


JP14
Comment utilise t'on une base de registre?

Merci a tout les deux

Ci joint un fichier avec des USF pour inscrire et modifier les clefs.

JP