Bonjour Jean-Eric,
Merci pour ton code qui fonctionne très bien!!
J'ai seulement un soucis, c'est que plusieurs PC pourront acceder a mon fichier.
j'ai donc essayer de mettre ce code:
Option Explicit
Private Sub Workbook_Open()
Dim nomPC As String, nom As String
nomPC = environ("COMPUTERNAME")
nom = environ("USERNAME")
Select Case nomPC
Case "A" & "C", "B" & "D"
MsgBox "Bonjour " & nom, 64
' procédure
Case Else
MsgBox "Bonjour " & nom & Chr(10) & "Vous n'êtes pas autorisé à utiliser ce fichier.", 16
End Select
End Sub
Mais ça ne fonctionne pas!
Pour info, il y aura environ 5 PC qui auront acces au fichier.
As tu une solution?