exportation Notes-Excel

[leila]

Comment peut-on faire pour exporter certaines colonnes de vues (Notes) sous excel ?

[Raziel]

Salut Leila,Il ne me semble pas qu'il y ait un process Interne à notes permettant de n'exporter que certaines colonnes d'une vue vers Excel.Il te faut écrire ton propre code pour pouvoir obtenir ce résultat.

[leila]

oui je sais, je dois écrire mon propre code, mais je n'arrive pas a trouver les fonctions à utiliser!

[Raziel]

J'ai écris un code dans ce genre il y a déjà quelques temps...J'essaie de le retrouver. Je l'adapte et je te l'envoie.

[Raziel]

Comme promis,Voici un code qui Exporte les colonnes 2, 4 et 6 de la vue Inbox de la messagerie.Si tu as des pb, n'hésite pas.Sub Initialize Dim Session As New notessession Dim db As notesdatabase Dim Vue As notesview Dim Doc As notesdocument Dim Valeur As Variant Dim xlApp As Variant Dim Ligne As Integer Set db = Session.currentdatabase Set Vue = db.getview("($Inbox)") Set Doc = Vue.getfirstdocument If Not Doc Is Nothing Then ' Création de l'objet Excel Set xlApp = createObject("Excel.sheet") ' Création du classeur Excel xlApp.Application.Workbooks.add ' Création d'une page avec renommage xlApp.Application.Sheets.add xlApp.Application.Sheets(xlApp.Application.activesheet.name).Name = "Exportation vue Notes" End If Ligne = 1 While Not Doc Is Nothing ' Exportation de la colonne 2 Valeur = Doc.ColumnValues(1) xlApp.Application.activesheet.Cells(Ligne,1).Value = Valeur ' Exportation de la colonne 4 Valeur = Doc.ColumnValues(3) xlApp.Application.activesheet.Cells(Ligne,2).Value = Valeur ' Exportation de la colonne 6 Valeur = Doc.ColumnValues(5) xlApp.Application.activesheet.Cells(Ligne,3).Value = Valeur ' Passage au doc suivant Set Doc = Vue.getnextdocument(Doc) Ligne = Ligne + 1 Wend ' On rend le classeur Excel visible xlApp.application.visible= TrueEnd Sub

[Raphaël]

Coucou, et oui encore moi,je viens de mettre cette formule, dans une de mes bases, car elle m'intéresse aussi. Visiblement elle marche bien si cela n'est que la feuille excel s'affiche 1millième de seconde et disparait. En plus il ne la sauvegarde nul part. Est ce normal?@+ Raph

[CED]

Faut peut-être sauvegarder non????Call xlApp.Application.saveavant la lignexlApp.application.visible= TrueCa devrait fonctionner normalement....

[Raziel]

Salut,Pour la sauvegarde, oui c'est normal. Pour cela, il faut que tu rajoute la ligne suivante :' Enregistrement du docxlApp.Application.activesheet.SaveAs "C:\Temp\Classeur2.xls"Pour ce qui est du fait que la feuille excel ne s'affiche que 1millième de seconde, ça non, ce n'est pas normal. J'ai essayé le code chez moi et tout se passe bien (Excel 2000). Va savoir...As tu d'autres d'instance d'excel qui tourne lors du lancement du prog ?

[Raphaël]

Hello, pkoi il me met un message 'Object Variable Not Set' ?Qu'est ce que ca veut dire?

[Raziel]

Pour CED,La sauvegarde n'a normalement rien à voir avec le visible.De plus, je ne suis pas certain queCall xlApp.Application.savesoit correcte. Il me semble que non seulement le classeur n'est pas enregistrer mais en plus ça doit générer une erreur à l'exécution

[Raziel]

Salut Raph,Ce message,'Object Variable Not Set' , veux dire que l'une de tes variables Objet n'est pas déclarée ou affectée.

[Raphaël]

Hello, je n'ai rien d'autre qui tourne, pour la version d'excel c office97, ca devrait aller non? J'ai déjà fait des export avec des agents et cela marche bien. Mais je trouvais ta formule beaucoup plus complète et exploitable. D'ou le fait de vouloir l'utiliser!Raph

[Raziel]

J'utilise aussi ce type de code sur dur Office 97 et là encore pas de pb.Ce classeur qui n'apparait que furtivement m'intrige quelque peu....

[Raphaël]

Okai pardon, j'avais fait une petite erreur, ca marche bien. Par contre il le furtif affichage subsite si cela t'intéresse. Mais cela ne pose pas de problème étant donné que je récupère la feuille excel sous mon c:Ce n'est pas à cause de la ligne:xlApp.application.visible= TrueA voir, en tout cas merci pour le code.

[leila]

Salut Raziel,j'ai bien recu ton code, mais... j'ai un petit probleme que je n'ai pas réussi a résoudre. En fait, lorque tu ouvres ta page excel tu en crée une nouvelle, alors que moi je voudrais paramétré dans l'en tete (au lancement du programme) le nom du fichier ou je veux que les données soient exportées. c'est a dire que l'utilisateur aura le droit de choisir entre plusieurs fichiers excel...De plus, j'aurai aimé savoir aussi comment on pourrai faire pour entrer en paramètre aussi le nom de colonnes qu'on veut exporter...J'espere que j'ai été assez claire!et merci...