Condition avec Or ou And ?

Bonjour à tous,

Je n'arrive pas à écrire la bonne syntaxe, limitant l'accès à mon fichier à deux ordinateurs (ou plus après). Dans ThisWorkbook_Open :

SI "nom du pc est différent de 1" OU "nom du pc est différent de 2" ALORS fermeture.

Private Sub Workbook_Open()
Application.OnKey "{ESCAPE}", ""
Application.WindowState = xlMinimized
Application.Visible = False
USFKiKiFé.Show 0
If Environ("COMPUTERNAME") <> "PSC21542" Or Environ("COMPUTERNAME") <> "PPS50092" Then MsgBox "Vous n'avez pas d'autorisation pour accéder au KiKifé": Unload USFKiKiFé
End Sub

Merci de votre aide

Bonjour Landry.

Essaye ainsi :

If Not Environ("COMPUTERNAME") = "PSC21542" And Not Environ("COMPUTERNAME") = "PPS50092" Then

Bonjour,

quelle que soit son nom il sera forcément différent d'un des deux cités, et un test au moins sera toujours vrai.

Ton OR ne va donc pas. Il faut différencier le langage parlé des tests logiques.

If not(Environ("COMPUTERNAME") = "PSC21542" Or Environ("COMPUTERNAME") = "PPS50092") Then 

eric

Merci à tous les deux, mais aucune des solutions ne fonctionne.

Dans les deux cas, seul PPS50092 à accès.

As-tu vérifié le retour de

Environ("COMPUTERNAME")

sur le poste PSC21542 ?

Debug.Print Environ("COMPUTERNAME")

thebenoit59 a écrit :

As-tu vérifié le retour de

Environ("COMPUTERNAME")

sur le poste PSC21542 ?

Debug.Print Environ("COMPUTERNAME")

J'ai essayé avec MsgBox Environ("COMPUTERNAME") et le retour est bien PSC21542

N'existe t'il pas un espace, une majuscule, accent ou autre qui diffère ?

thebenoit59 a écrit :

N'existe t'il pas un espace, une majuscule, accent ou autre qui diffère ?

Oh Honte à moi!!!! c'est PCS et non PSC

Je retente

Bon

Voila voila ...

Ca fonctionne, merci beaucoup