Voilà, je dois réaliser un publipostage openoffice en le pilotant à partir d'une appli delphi. Ce publipostage concerne un .sxw et un .txt (avec des ";" comme séparateurs) Je sais réaliser un publipostage si la source existe dans openoffice, mon problème est que lors de l'installation de l'application , la source ne sera pas dans openoffice... Il me faut donc savoir la créer (on ne va pas demander à un utilisateur lambda de le faire). Je me suis donc renseigné et j'ai trouvé comment créer une DataSource... Celle ci se crée bien mais le problème est qu'elle ne contient aucune table... Comment puis je faire pour qu'elle en contienne ou que celles ci soient visibles.

Je vous passe mon code en même temps (juste pour la DataSource mais si quelqu'un veut le MailMerge en Delphi c'est tout à fait faisable)

procedure TTest.bt_creation_datasourceClick(Sender: TObject); var arguments:variant; PropertyValue :variant; CoreReflection: Variant; begin //création d'un database context qui contient toutes les sources de données //connait open office Datacontext:=OpenOffice.createInstance('com.sun.star.sdb.DatabaseContext'); //si openoffice connait la source src1 if Datacontext.hasbyname('src1') then Memo_Enumeration.Lines.Add('src1 trouvé') else begin // Core reflection est utilisé pour pouvoir créer des property value CoreReflection := OpenOffice.createInstance ('com.sun.star.reflection.CoreReflection'); // un tableau dynamique de propertyvalues arguments:= VarArrayCreate([0,7], varVariant);

CoreReflection.forName('com.sun.star.beans.PropertyValue').createObject(PropertyValue); PropertyValue.Name := 'Extension'; PropertyValue.Value := 'txt'; arguments[0]:= PropertyValue ; PropertyValue.Name := 'Charset'; PropertyValue.Value := 0; arguments[1]:= PropertyValue ; PropertyValue.Name := 'FixedLength'; PropertyValue.Value := true; arguments[2]:= PropertyValue ; PropertyValue.Name := 'HeaderLine'; PropertyValue.Value := true; arguments[3]:= PropertyValue ; PropertyValue.Name := 'FieldDelimiter'; PropertyValue.Value := ';'; arguments[4]:= PropertyValue ; PropertyValue.Name := 'StringDelimiter'; PropertyValue.Value := '"'; arguments[5]:= PropertyValue ; PropertyValue.Name := 'DecimalDelimiter'; PropertyValue.Value := '.'; arguments[6]:= PropertyValue ; PropertyValue.Name := 'ThousandDelimiter'; PropertyValue.Value := ','; arguments[7]:= PropertyValue ; //création de la datasource avec parametres Datasource:=OpenOffice.createInstance('com.sun.star.sdb.DataSource'); //enregistrement dans openoffice datacontext.registerObject('src1',Datasource); Datasource.URL:= 'sdbc:flat:file:///C:/Dossiers/coquery'; Datasource.Info:= arguments; connection:=datasource.getconnection('',''); {datasource.TableFilter.('essai'); datasource.TableTypeFilter.'TABLE';} datasource.TableTypeFilter.getType {connection.tables;} end; end; Je rappelle mon problème vient du fait que le MailMerge ne détecte pas ma table (essai) qui correspond au fichier .txt

Sinon toutes mes excuses à Laurent Godard que j'ai importuné sur un mail professionnel alors que cette liste existait...(je ne le savais pas encore)