DominoArea.org [Archive]

Bonjour à tous,

j'ai trouvé un code*
sur internet me permettant de faire un expert de données de lotus notes (D'un mail je présume, enfin espère) vers Excel.

Cependant je ne sais pas comment ouvrir (accéder) à l'interface me permettant de coder dans Lotusnotes (Script ?).

Il y a - t- il un outil à installer ? (genre ODBC Notes ou NotesSQl).


merci à tous,

J'en profite au passage, j'ai un code** vba qui me permet d'envoyer mon classeur excel en pièces jointe via lotus, quelqu'un sait comment faire pour ne pas envoyer tout le classeur mais juste feuille par feuille (pour chaque destinataire différent), en passant peut être par le corp du message et non pas la pièce jointe ? Le but ultime vous l'avez compris, c'est de lancer ma macro excel, chaque me répond en me rénvoyant un message préparémétré qui modifie mon fichier excel (une sorte d'intéraction).













*
ReportPath = "D:TempExcelFile.xls"
Set oRs = CreateObject("ADODB.Recordset")
oRs.Open "Select * from EmpData",
{Provider = "Microsoft.Jet.OLEDB.4.0";Data Source=}
& ReportPath & {; Extended
Properties="Excel 8.0;HDR=NO:" },1,3

For I = 1 To 200
oRs.Addnew
oRs(0).Value = "Emp#" & Trim$(Cstr(I))
oRs(1).Value = "Employee Name" & Trim$(Cstr(I))
Next
oRs.Update
oRs.Close


_____________

**en vba (sous excel donc)

Sub UseLotus()

Dim Session As Object
Dim db As Object
Dim doc As Object
Dim rtitem As Object
Dim object As Object
Dim fs As Object
Dim Principaux(2) As String
Dim Copies(3) As String
Dim dir As Object
Dim inti As Integer
Dim passwd As String

On Error GoTo TraiteErreur

'Demande le password Lotus(Dans le cas ou la session necessite un passwd)
passwd = InputBox("Entrer votre password Lotus:", "Password")

' Création de la session Notes
Set Session = CreateObject("Lotus.NOTESSESSION")

'Ouverture d'une session NOTES
Call Session.Initialize(passwd) 'si pas de passwd pas de parametre pour initialize
Set dir = Session.GETDBDIRECTORY("FranceServer1/DCI/BME/Omnia Group")
Set db = dir.OpenMailDatabase

' Création d'un document
Set doc = db.CREATEDOCUMENT
'affectation du type mail
Call doc.APPENDITEMVALUE("Form", "Memo")
Call doc.APPENDITEMVALUE("Sendto", "exemple@gmail.com")
Call doc.APPENDITEMVALUE("subject", "sujet")
doc.SAVEMESSAGEONSEND = saveit 'sauvegarde du mail à l envoi

Set rtitem = doc.createRichTextItem("Body")


Dim nom As String
nom = ThisWorkbook.FullName
'Attachement du classeur au mail
Set object = rtitem.embedObject(1454, "", nom, "")

Call doc.Send(True)
Set object = Nothing
Set rtitem = Nothing
Set doc = Nothing
Set db = Nothing
Set Session = Nothing
Exit Sub
TraiteErreur:
MsgBox "Erreur Critique durant l envoi .", vbCritical, "Error"
Set object = Nothing
Set rtitem = Nothing
Set doc = Nothing
Set db = Nothing
Set Session = Nothing
Set fs = Nothing

End Sub

Merci tout le monde

Bon j'ai résolu en partie mon deuxième prob, qui je vous l'accorde n'est peu être pas à sa place içi, par contre je fait un up pour mon premier pb.

Il y a t il un éditeur de code sur Lotus à l'image de vba sous excel ? si ou comment y accéder, et es ce que je pourrai piloter Excel grâce à un script écrit sous Lotus.

salut pour piloter excel en Lotus Script tu trouvera tout ce qu'il faut ici => http://forum.dominoarea.org/importation ... s-f31.html

et ici => http://forum.dominoarea.org/index.php?f=68

Il y a t il un éditeur de code sur Lotus à l'image de vba sous excel ?

désolé je comprend pas la question

pour développer sous Lotus, il te faut lancer le client Lotus Designer

si tu souhaite envoyer une feuille excel à tes interlocuteurs pour qu'il s te la renvoie compléter et ensuite tu intègre leur réponse dans ton fichier Excel, il faut peut être voir si tu ne peux pas stocker les données dans une base Notes et faire en sorte que tes interlocuteurs saisissent directement un doc dans la base ...

Bonjour Michael, bonjour roubech,

Merci pour vos réponse. Je vais voir comment installer Lotus designer (cela répond à ma question :"Il y a t il un éditeur de code sur Lotus à l'image de vba sous excel ?" merci).

roubech a écrit: il faut peut être voir si tu ne peux pas stocker les données dans une base Notes et faire en sorte que tes interlocuteurs saisissent directement un doc dans la base ...

Je dois créer une base ? ou utiliser la base préexistante ? En réalité, mes interlocuteurs sont éparpillés un peu partout sur la planete, ils devraient tous alors avoir accès à cette base ?!! (si j'utilise la préexistante, ce doit être la même que celle ou est stocké les coordonnées du personnnel du groupe, je ne pense pas qu'il y ait une réplication de cette base de données par entités, je n'ai pas accès aux droits permetttant de créer une base avec gestion de droits [du moins je le suppose que je n'y pas accès]).

Je me penche sur la question du pilotage d'Excel via Lotus !

Je reviens vers vous pour vous donnez les solutions pour lesquelles j'ai optées.

Encore merci !