Affichage de l'utilisateur connecté

Une solution est d'afficher la bibliothèque de l'utilisateur connecté.

Lorsqu'on lance la commande aff bib, l'ILN de la bibliothèque est renvoyé dans la variable locale P3LLI : on voit ça en faisant Affichage, Source du document.
D'où l'idée du script suivant :

Sub AfficheBib()
Dim maBib
Application.ActiveWindow.Command "aff bib",True
maBib = Application.ActiveWindow.Variable("P3LLI")
Application.ActiveWindow.CloseWindow
If maBib = "831372101 " Then
	maBib = maBib & " Toulon BU Droit"
Elseif maBib = "830622101 " Then
	maBib = maBib & " La Garde"
Elseif maBib = "830502101 " Then
	maBib = maBib & " Draguignan"
Else
	maBib = maBib & " ISITV"
End If
Application.ActiveWindow.Caption = maBib
End Sub

La commande Application.ActiveWindow.Command prend l'argument True pour envoyer la commande dans une nouvelle fenêtre (False sinon).