par Raziel » 31 Oct 2003 à 12:59
Salut, voici un bout de code qui répond à ton pbDim session As New notessessionDim ws As New notesuiworkspaceDim db As notesdatabaseDim retour As StringDim nomVues() As StringDim tabVues As VariantDim indice As Integer Set db = session.currentdatabasetabVues = db.viewsRedim nomVues(Ubound(tabVues)) As String For indice = 0 To Ubound(tabVues) nomVues(indice) = tabVues(indice).nameNext retour = Cstr(ws.Prompt(PROMPT_OKCANCELLIST, "Sélection d'une vue","Choississez la vue à ouvrir", "", nomVues)) If retour <> "" Then Call ws.currentdatabase.OpenView(retour)
Raziel
L'administration est un lieu ou les gens qui arrivent en retard croisent dans l'escalier ceux qui partent en avance. [Georges Courteline]