Erreur avec un Find()

[yeti_yeti]

Bonjour,

J'ai un fichier qui recherche le nom de l'utilisateur à l'ouverture. Si le nom existe, le fichier s'ouvre. S'il n'existe pas, il reçoit une notification et le fichier se ferme (du moins c'est ce que je souhaiterais faire).

Lorsque les gens ont l'accès, aucun soucis, par contre lorsqu'ils ne l'ont pas, j'ai l'erreur suivante: "Run-time error 91: Object variable or With block variable not set". Voici le code qui déclenche cette erreur:

Private Sub Workbook_Open()
Dim x As Range
Set x = Sheets("Access").Range("A1:A1000").Find(Environ("UserName"), , xlValues, xlWhole, , , False)
    If x Is Nothing Then
        MsgBox ("You are not allowed to enter the Supply Info." & vbCrLf & "Please contact Customer Service for help")
        ThisWorkbook.Close
    End If
End Sub

Dans la colonne A de la feuille "Access" se trouve tous les noms d'utilisateurs des personnes autorisées à visualiser le fichier.

Auriez-vous une idée de pourquoi cette erreur apparait pour ceux qui n'ont pas l'accès et non pas la notification demandée?

Merci de votre aide.

YeTi

 

[Pierrot93]

Re : Erreur avec un Find()

Bonjour,

ce code ne provoque pas d'erreur chez moi, mais je suis sous 2003, alors peut être...

bonne soirée
@+

 

[Robert]

Re : Erreur avec un Find()

Bonjour Yeti_yeti, Pierrot, bonjour le forum,

Le message s'affiche correctement sans bug. Excel 2003 aussi...

 

[JNP]

Re : Erreur avec un Find()

Bonsoir le fil 🙂,
Pas de soucis non plus sous 2007, par contre

ThisWorkbook.Close Savechanges:=False

me paraitrait plus logique 😛...
Bonne soirée 😎
Ajout : je supprimerais aussi les () du MsgBox, qui en principe sont un appel de fonction pour remplir une variable 🙄...