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)

[s001001]

c plus du dev ça

[bug00]

Oui je sais, je me suis trompé de forum, saleté de favorix