Embarquer un fichier Excel

[Pocel]

Bonjour,J'ai un petit souci je voudrais que lorsqu'un utilisateur appuie sur un bouton on lui propose deux fichiers (jusque la j'ai su faire) puis ensuite je veux embarquer ce fichier (Excel).Voici les deux codes testésCode 1Call UIDoc.GotoField( FieldName)Call UIDoc.CreateObject( Name, "", pathFile)Call UIDoc.SaveCode 2Call UIDoc.GotoField( FieldName)If rtItem Is Nothing ThenSet rtItem = New NotesRichTextItem( UIDoc.Document, "EmbeddedExcel")End IfSet Object = rtItem.EmbedObject( EMBED_OBJECT, "", pathFile, "EmbeddedExcel" )Object.FitBelowFields=TrueCall UIDoc.Document.Save(True, False)Set Excel = Object.Activate( False )Msgbox "Excel File Embedded"Aucun des deux ne fonctionnent, le premier m'inclut bien mon fichier mais lorsque je sors de la base et que je reviens, mon document ne s'ouvre pas car il y a "des fonctionnalités non prises en compte par Notes".Le second n'affiche rien et n'attache rien.Merci

[GOBLET]

J'ai déjà un truc qui ressemble en 2 temps.1 - choix du document et détachement en local du modèle :Le code du bouton :temp:=@DbColumn( "";"" : "";"ModelesLettres";1 );Choix:=@Prompt([OKCANCELLIST]; "Choix du modèle de courrier"; "Choisissez votre modèle de lettre :"; "";temp);@Environment("LeNomModele";Choix);@Command([Compose];"docSuiviCorres")2 - Dans l'évènement du post Open du document créé j'incorpore le document Word créé :Sub Postopen(Source As Notesuidocument) Dim session As New NotesSession Dim db As NotesDatabase Dim doc As NotesDocument Dim view As NotesView Dim object As NotesEmbeddedObject Dim handle As Variant Dim WordObj As Variant Dim NomMod As String Dim temp As String 'Check if new document, if yes create new word doc, if not open from document If Source.IsNewDoc Then 'Copy Letter from template to c:\temp.doc and then attach to new document Set db = session.CurrentDatabase Set view = db.getView("ModelesLettres") 'temp = Source.fieldgettext("txtIntitule") NomMod = session.GetEnvironmentString( "LeNomModele" ) Call Source.fieldsettext("txtIntitule", NomMod) Set doc = view.GetDocumentByKey(NomMod,True) Set rtitem = doc.GetFirstItem( "rtxtDocWord" ) Forall o In rtitem.EmbeddedObjects temp = o.Name End Forall Set object = doc.GetAttachment( temp ) Call object.ExtractFile( "c:\temp.doc" ) Call Source.GotoField( "rtxtSuiviCorres" ) Call Source.CreateObject("Lettre","","c:\temp.doc") Set WordObj = Source.GetObject( "Lettre" ) 'Populate variables with info to pass to word and update the variables in Word document Civilite = Source.fieldgettext("txtCivilite") Nom = Source.fieldgettext("txtNom") Prenom = Source.fieldgettext("txtPrenom") temp = Civilite '+ " " + Nom + " " + Prenom WordObj.variables("Civilite").value = temp WordObj.variables("CiviliteFin").value = temp 'Activate Word, add a window for the new document and show the application WordObj.activate WordObj.Fields.Update WordObj.Application.Visible=True WordObj.Application.WindowState = 1 WordObj.Windows.Add WordObj.Application.Activate End If End Sub

[GOBLET]

Pour un objet Excel voici un autre exemple de code : '----------------------------------------------------------------------- ' Lancement Excel '----------------------------------------------------------------------- Set xlApp=CreateObject("Excel.Application") Call xlApp.Workbooks.Open(Path) 'remplissage Feuille 1 Set sheet=xlApp.Workbooks(1).Sheets(1) sheet.Cells(1,1) = "Statistiques de messagerie " + Mois + " " + Annee ' Titre 'remplissage Feuille 1 Set sheet=xlApp.Workbooks(1).Sheets(2) sheet.Cells(1,1) = "Statistiques de messagerie " + Mois + " " + Annee ' Titre 'remplissage Feuille 3 Set sheet=xlApp.Workbooks(1).Sheets(3) ' alimentation du fichier ' formatage des données Forall Cellules In RNb temp = Listtag(Cellules) Select Case temp Case "MEs valeurs" : 'les votres...." Case Else ligne = 16 End Select sheet.Cells(ligne,2) = RNb(temp) ' Nb de reçu dans le mois sheet.Cells(ligne,3) = RVol(temp) ' Vol de reçu dans le mois sheet.Cells(ligne,4) = ENb(temp) ' Nb d'envoyé dans le mois sheet.Cells(ligne,5) = EVol(temp) ' Vol d'envoyé dans le mois End Forall filename = "c:\Report mensuel" + Annee + ".xls" Call xlApp.Workbooks(1).close(True, filename) Call xlApp.quit Kill Path