DominoArea.org [Archive]

l'utilisateur doit rentrer le nom d'une vue dans un champ "mavue";Sub Click(Source As Button) ' Variables Dim session As New NotesSession Dim db As NotesDatabase Dim v As NotesView Dim workspace As New NotesUIWorkspace Set doclire = workspace.CurrentDocument.document 'Constantes Set View$ = New notesitem (doclire.getitemvalue("mavue")(0))je veux mettre le contenu de "mavue" dans la variable "View$"que dois-je mettre à la place du:Set View$ = New notesitem (doclire.getitemvalue("mavue")(0))pour que ça marche?

View$ = doclire.getitemvalue("mavue")(0)[%sig%]

ça ne marche pas j'ai comme message d'erreur: A required argument has not been provided

Post le code complet de l'action stp[%sig%]

Sub Click(Source As Button) ' Variables Dim session As New NotesSession Dim db As NotesDatabase Dim v As NotesView Set docecrire = workspace.CurrentDocument 'pour écrire les résultats dans les champs du masque "stat" Set doclire = workspace.CurrentDocument.document 'pour relever les dates du masque "stat" 'Constantes View$ = doclire.getitemvalue("mavue")(0) '<=== Nom de la vue à exporté Const ExportItem$="Export" '<=== Champs qui indique si le document à été exporté Const xlsSave$="False" '<=== Détermine si le document doit être enregistré Const xlsFileName$="P:\monfichier.xls" '<=== Nom du fichier à enregistrer avec le chemin complet 'Variable de session Set db = session.CurrentDatabase Set v = db.GetView(View$) Set xl = CreateObject("Excel.application") Set xlWbk = xl.Workbooks.Add col!=1 Forall vColumn In v.Columns xlWbk.ActiveSheet.Cells(1, col!)=vColumn.Title col!=col!+1 End Forall Dim docX As NotesDocument Set docX=v.GetFirstDocument row!=2 While Not docX Is Nothing col!=1 Set item=docX.GetFirstItem(ExportItem$) Process=False If item Is Nothing Then Process=True Elseif item.Text="" Then Process=True End If If Process <> True Then Forall cValue In docX.ColumnValues xlWbk.ActiveSheet.Cells(row!, col!)=cValue col!=col!+1 End Forall row!=row!+1 End If Call docX.ReplaceItemValue(ExportItem$, Now) Call docX.Save (True, True) Set docX=v.GetNextDocument(docX) Wend If xlsSave$="True" Then Call xlWbk.SaveAs(xlsFileName$) Call xlWbk.Close Else xl.Visible=True End If End Sub

ça me parait Ok (sauf qu'il manque la déclaration du workspace).En tout cas, ce message veut dire que view$ est une chaine vide.Es tu sûr que le champ mavue est rempli ?[%sig%]

heu ben oui ça marche, y'a des truc qu'on ne s'explique pas!!!!merci