DominoArea.org [Archive]

Comment peut-on coder les operations suivantes en Lotus Script!Il s'agit de récupérer les differents documents selectionnés par l'utilisateur afin de pouvoir ensuite exporter ces donnees....MERCIStephy

bonjourc'est la propriété UnprocessedDocuments de la classe NotesDataBase

ok merciMais comment on peut faire pour récupérer les noms des documents selectionés dans la vue courante?Faut-il les stocker dans des variables???Faut-il les stocker dans un tableau???Merci de bien vouloir me répondre

Le unprocesseddocument te retourne un tableau de notesdocument

Ou plus exactement, une notesdocumentcollection

Le plus simple est de scanner topus les document selectionner (c'est une classe notesDocument collection) et de stocker les infos dans un tableau de varaible.Par exemple le script ci-dessous récupére le contenu du champ Nom dans les documents selectionnés et les stocke dans un tableau appelé ListeNomDim session as new NotesSessiondim db as NotesDataBasedim coll as NotesDocumentCollectiondim doc as NotesDocumentdim ListeNom() as StringSet db = session.CurrentDataBaseSet coll = db.unprocessedDocumentsnbdoc% = coll.countredim ListeNom(nbdoc%) as stringi = 0set doc = coll.GetFirstDocumentdo while not (doc is Nothing) ListeNom(i) = doc.Nom(0) i = i + 1 set doc = coll.GetNextDocument(doc)loop a adapter en fonction de ton besoinn'hésites pas à me recontacter en cas de pbm

Bonjour Phillipe,j'ai testé le programme que vous m'avez envoyé, mais... je ne sais pas si je peux remplacer le ListeNom(0) = doc.Nom(0)par ListeNom(0) = doc.tab(i)étant donné que les noms de champs sont stockés dans un tableau nommé tabMerciStephy

Ca ne pose aucun pb.Fait tout de même attention aux bornes de ton tableau afin que ta boucle n'aille pas trop loin.

Bonour,aucun pbm a condition que le champ tab existe dans le document

Salut Razielpuisque je vois que tu es là j'en profite connais tu un site ou je pourrai retrouver les commandes qui permettent de manipuler un fichier excel depuis notes (je n'ai rien trouvé dans la doc de notes) ?merci

Salut Philippe,A l'époque où j'ai commencé à manipuler des Fichier Word et Excel à partir de Notes, j'ai fais une recherche sur le web mais sans succés.Ce que je fais aujourd'hui peu parraitre "empirique" mais ça marche (si tu viens à trouver un site, ça m'intéresse ) ) En fait, j'utilise l'enregistreur de macro de MSOffice. Je regarde le code et je l'adapte quelque peu pour qu'il soit compatible avec Notes. Tout ce que l'enregistreur de macro peu faire, Notes le peu aussi.Petit conseil : A chaque fois que tu dois faire appel à une nouvelle commande pour manipuler ton Word ou ton Excel, transforme là en fonction (c'est ce que je fais). Cela t'évite de devoir à chaque fois regéné le code et tu fini par avoir une bib assez intéressante (qui va de la manipulation de graph à la mise en forme de texte en passant par la gestion des tableaux)Désolé de ne pouvoir t'en dire plus.

ok merci pour l'astuceil n'y a pas d'urgence c'est pour ma culture perso.si parhasard (ou par chance) je trouve quelque chose je donnerai l'info ))

Peux t'on faire la même chose à partir d'une vue.Qu'est ce qui change?Merci

Dans cette ordre d'idée à partir du code de stéphane j'ai essayé d'avoir recours à db.unprocesseddocuments pour recuperer une active avec selection, mais tout passe...... c'est ma variable dataview qui passe dans excel, comment faire que cette variable contienne les doc choisisVoici mon codeSub Initialize Dim Session As New NotesSession Dim db As NotesDatabase Dim sourceview As NotesView Dim sourcedoc As NotesDocument Dim dataview As NotesView Dim dc As NotesDocumentCollection Dim datadoc As NotesDocument Dim maxcols As Integer Dim WS As New Notesuiworkspace Dim ViewString As String Dim Scope As String Dim GetField As Variant Dim C As NotesViewColumn Dim FieldName As String Dim K As Integer Dim N As Integer Dim xlApp As Variant Dim xlsheet As Variant Dim rows As Integer Dim cols As Integer Dim nitem As NotesItem Dim entry As NotesViewEntry Dim vwNav As NotesViewNavigator Dim ShowView() As Variant Dim i As Integer Dim VList As Variant Dim ColVals As Variant '***********Variables pour choisir les colonnes à exporter vers excel Dim NomCol() As String Dim TabCol As Variant Dim Indice As Integer Dim ligne As Integer '***** *****Vous pouvez modifier le code pour qu'il fasse appel à une autre base de document Set db = session.CurrentDatabase '************variables pour gérer la sélection de la vue courante 'Dim view As notesview Dim doc As notesdocument Dim workspace As New NotesUIWorkspace Dim UIview As NotesUIView Dim collection As NotesDocumentCollection Dim countall As Long, countthis As Long, countallsel As Long, countthissel As Long Set UIView = workspace.CurrentView UIViewname = UIView.ViewName UIViewAlias = UIView.Viewalias Set dataview = db.GetView( UIViewName ) Set collection = db.UnprocessedDocuments gowithselection = False goonall = True '***********Determine si on a une collection (selection) countallsel = collection.count If countallsel >=1 Then gowithselection = workspace.Prompt(PROMPT_YESNO, "Selection trouvée", "Exporter uniquement les documents choisis?") Set doc=collection.getfirstdocument'***********Controler s'il ya reellement un document selectionne If (doc Is Nothing) And (goonwithselection) Then Msgbox " Selection invalide" Exit Sub End If Set doc = Nothing BarMsg = "Export des documents selectionnés..." Else goonall = workspace.Prompt(PROMPT_YESNO, "Pas Selection active", "Export tous les documents?" + Chr$(13) + "Info: Si vous souhaitez exporteruniquement les documents sélectionnés," + Chr$(13) + "Sselectionnez ces documents avant de lancer cette action.") If goonall=False Then Print "Sortie..." Exit Sub End If Set collection = Nothing BarMsg = "Export des documents ..." End If Set dataview = db.getview(UIViewname) ' Ouvre la vue Set vwnav= dataview.createViewnav() rows = 1 cols = 1 maxcols=dataview.ColumnCount ' Récupère le nombre de colonne '*****************Choisir les colonnes à exporter vers excel Redim NomCol(Ubound(dataview.Columns)) As String 'Redim NomCol(Ubound(Vue.Columns)) As String Indice = 0 Forall Colonne In dataview.Columns If Colonne.Title <> "" And Colonne.IsHidden = False Then NomCol(indice) = Colonne.Title + "|" + Str$(Indice) Indice = Indice + 1 End Forall TabCol = ws.Prompt(PROMPT_OKCANCELLISTMULT, "Exportation vers Excel", _ "Sélectionnez les colonnes à exporter","" , Fulltrim(NomCol)) If Not Isempty(TabCol) Then For indice = 0 To Ubound(TabCol) TabCol(Indice) = Trim(Right(TabCol(Indice), 2)) Next End If '********************Ouverture d'une feuille excel Set xlApp = CreateObject("Excel.Application")' Lance Excel xlApp.StatusBar = "Création du tableau. Veuillez patienter..." xlApp.Visible = True xlApp.Workbooks.Add xlApp.ReferenceStyle = 2 Set xlsheet = xlApp.Workbooks(1).Worksheets(1) ' On prend la première feuille du classeur ' ********************On met le titre de la vue xlsheet.Cells(rows,cols).Value ="Vue : " + UIViewname+ ", de la base : " + db.title +", extraction du : " + Format(Now,"mm/dd/yyyy HH:MM") xlApp.StatusBar = "Création des entêtes de colonnes. Veuillez patienter..." rows=2 ' On commence à la deuxième ligne '**********************On affiche le titre des colonnes choisies For IndiceTab = 0 To Ubound(TabCol) Set c=dataview.Columns(Val(TabCol(IndiceTab))) xlsheet.Cells(rows,cols).Value = c.title cols = cols + 1 Next '************************On affiches les valeurs des colonnes Set entry=vwnav.GetFirstDocument rows=3 ' On se place sur la troisième ligne Do While Not (entry Is Nothing) cols=1 For IndiceTab = 0 To Ubound(TabCol) colvals=entry.ColumnValues(Val(TabCol(IndiceTab))) 'Select Case scope 'Case "STRING" 'xlsheet.Cells(rows,cols).Value ="'" + colvals 'Case Else xlsheet.Cells(rows,cols).Value = colvals 'End Select cols=cols+1 Next xlApp.StatusBar = "Importation des données - Document " & rows-1 '& " sur " & dc.count & "." rows=rows+1 Set entry = vwnav.getnextdocument(entry) Loop '**************************Mise en page des données excel xlApp.Rows("1:1").Select xlApp.Selection.Font.Bold = True xlApp.Selection.Font.Underline = True xlApp.Range(xlsheet.Cells(2,1), xlsheet.Cells(rows,maxcols)).Select xlApp.Selection.Font.Name = "Arial" xlApp.Selection.Font.Size = 9 xlApp.Selection.Columns.AutoFit With xlApp.Worksheets(1) .PageSetup.Orientation = 2 .PageSetup.centerheader = "Rapport" .Pagesetup.RightFooter = "Page &P" & Chr$(13) & "Date : &D" .Pagesetup.CenterFooter = "" End With xlApp.ReferenceStyle = 1 xlApp.Range("A1").Select xlApp.StatusBar = "L'importation des données de Lotus Notes est terminé." '******************* Vous pouvez activer la ligne ci-dessous si vous voulez enregistrer le document en automatique'xlapp.ActiveWorkbook.saveas "C:\Vue" + Trim(Format(Now,"yyy")) ' Sauve le document dataview.clear Set xlapp=Nothing ' Stop l'automation excel Set db=NothingEnd Sub

j'ai testé le code et la partie d'initialisation de la vue, pour récuperer le nom de la vue courante ne marche pas! d'ou vient le probleme??