Ajout automatique de raccourci dans richtextbox

[bug00]

Je voudré créer une action qui cré un raccourci d'un fichier de type *.dft et qui l'insére dans un texte riche...Avec EMBED_ATTACHMENT cela passe mais le raccourci est ajouté à la fin de mon documentAvec EMBED_OBJECT et EMBED_OBJECTLINK il me met une erreur "could not embed object" :'(.Le curseur clignote bien dans le riche texte box que j'ai renseigné.... Quelqu'un a une idée ?Voivci mon codeDim nuiwrkspc As New NotesUIWorkspace Dim champ As NotesUIDocument Dim doc As NotesDocument Dim rtitem As NotesRichTextItem Dim object As NotesEmbeddedObject Set champ = nuiwrkspc.CurrentDocument Set doc = champ.Document Set rtitem = doc.GetFirstItem( "Body_usinage" ) numprof = champ.FieldGetText ("Subject") numprof = Left (numprof, 6) catprof = champ.FieldGetText ("Categories") chemin = "c:\temp\" + Left (numprof, 2) + " " + catprof + "\"+ _ numprof + "\P" + numprof + ".dft" Call champ.GotoField( "Body_usinage" ) Set object = rtitem.EmbedObject ( EMBED_OBJECT , "", chemin)

[bug00]

arf personne pour m'éclairer ? :'(

[bug00]

J'ai toujours po de soluce ? personne ne sais ou vous passez au dessus du mes ? Now j'ai un problémes quand je veux attacher il me met "variable not set"....Sinon tant pis :'([%sig%]

[Rigol'man]

utilise le deboggueur pour voir ou ca plante ![%sig%]

[bug00]

Arf tu te fou de moi ????????? Ok j'ai jms eu de formation lotus ni jms lu un bouquin mais en tant que programmeur si y'a un truc que je prone quand ca plante c'est bien le debuggeur !Ca plante quand j'essaye d'intégrer mon objet (et c'est un objet OLE !)[%sig%]

[Droad]

A tenter:Dim rtitem As variant...if doc.HasItem("Body_usinage") thenSet rtitem = doc.GetFirstItem("Body_usinage")elseSet rtitem = new NotesRichTextItem(doc, "Body_usinage")end if[%sig%]