Discussion :

[dvdhag123]

Bonjour,

J'ai un problème j'ai développé un fichier VBA, avec système d'authentification (USF pour connexion utilisateur,..)
Cette connexion permet l’accès ou non à certaine colonne et certaine feuille, les accès sont régulé par la feuille "paramétrage" accessible via le compte "admin" exclusivement

Le problème est que j'ai développé cette application sur XL 2007 et ce fichier doit-être partagé avec plusieurs utilisateurs certains ont 2007 d'autre 2010.

Pour les 2007 aucun problème car c'est le logiciel que lequel j'ai travaillé, mais en faisant les tests sur un 2010 il y a un problème avec l'USF1 et une aide me dit que c'est un problème de version. (je n'ai pas accès aux autres version donc les test ont été fait sur 2007 et 2010)

Quelqu'un sais comment régler cela?

Voila mon fichier en PJ

pour la connexion admin: utilisateur:admin mdp:admin
Pour la connexion au code VBA: mdp:rd


Je vous remercie

Suivi.xlsm

[clementmarcotte]

Bonjour,

On dirait que c'est juste pour une déclaration de fonction en double de FindWindowA dans la branche du if vba7:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
#If VBA7 Then
    Private Declare PtrSafe Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long<======== ici une
    Private Declare PtrSafe Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
    Private Declare PtrSafe Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
   ' Private Declare PtrSafe Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long <======== ici deux
 #Else
    Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
    Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
    Private Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
#End If

parce que dès que j'ai mis la deuxième ligne (Ligne 5) en commentaire, l'Userform a pu s'afficher

[dvdhag123]

Tu as bien la version 2010?

Je ferais un test demain au bureau en tout cas si c'est simplement ça je te remercie vraiment car ce problème j'ai mis 1 journée à le chercher sans trouver quelque chose

[dvdhag123]

Tout est OK;