DominoArea.org [Archive]

Bonjour, j'ai une erreur qui s'affiche des que j'execute ce code!!En fait je cherche a ouvrir une fenetre qui me demande si je veux lancer un nouveau masque! En repondant oui, cela execute le code "Set uidoc = workspace.composeDocument( "", "", "Adherent_Notes'")".Mais une erreur s'affiche a l'execution de cette ligne (ci dessus).L'erreur est :"document non valide ou inexistant" puis une autre erreur"unable to find Document Windows"Le masque existe bien, et le script se trouve dans une "Query Close"Voici le code complet!Merci d'avance a la personne qui me sort de ce script!!!!Sub Queryclose(Source As Notesuidocument, Continue As Variant) Dim workspace As New NotesUIWorkspace Dim db As NotesUIDatabase Dim doc As notesdocument Dim doc1 As notesdocument Dim uidoc As notesuidocument Set db = workspace.CurrentDatabase Set uidoc = workspace.CurrentDocument 'Set doc = uidoc.Document If uidoc.IsNewDoc Then If workspace.Prompt(PROMPT_YESNO, _ "Fiche Adherent ?", "Voulez vous creer une fiche adhérent tout de suite ?", "", "")=1 Then Set uidoc = workspace.composeDocument( "", "", "Adherent_Notes'") ' evaluate("@Command([Compose]; "Adherent_Notes"") End If End Ifend subCIaooooooooooOlivier I

Essaie de renseigné le nom du serveur et de la base.Vérifie bien que le nom du masque que tu passes en paramétre soit le bon

j'ai deja essayé de les renseigner, cela ne change rien, et le nom du masque est bien le bon!Je comprends pas d'ou viennent ces erreurs!!