Discussion :

[p'tite Sandrine]

Bonjour,

J'ai une macro qui lance le publipostage.
Celà fonctionne mais elle m'ouvre une deuxième fois le même fichier mais en lecture seule.

je n'arrive pas a repérer mon erreur.
Peut être pourrez-vous m'y aider?

voici ma macro:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
sub M_mailing (PysModele as string, PubRepertoireCible as string, PubSource as string, PubNomTable as string)
 
Dim MonPublipostage as object, MyProps(), PysMod as object
Dim propFich(0) as New com.sun.star.beans.PropertyValue
 
'Service publipostage
MonPublipostage=createUnoService("com.sun.star.text.MailMerge")
PysMod=StarDesktop.LoadComponentFromURL(convertToURL(PysModele),"_blank",0,propFich())
 
With MonPublipostage
   .DataSourceName=PubSource
   .CommandType=com.sun.star.sdb.CommandType.TABLE		'paramètre du publipostage
   .Command=PubNomTable
   .SaveAsSingleFile=True
   .OutputType=com.sun.star.text.MailMergeType.FILE		'option publipostage par fichier
   .DocumentURL=convertToURL(PysModele)
   .OutputURL=ConvertToURL(PubRepertoireCible)			'chemin du fichier de sortie
   .FileNamePrefix = "provisoire"
   .execute(MyProps())									'executer le publipostage
End With
 
MsgBox "Fin du Publipostage, la fusion se trouve dans: " + PubRepertoireCible
 
End Sub

que j'appel comme suit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
sub LancerMailing
'les variables
document   = ThisComponent.CurrentController.Frame
'lancer le publipostage
M_mailing ("C:\BD Hygiène\Courrier hygièneFR.odt", "C:\BD Hygiène", "importFR", "R_PublipostOOoFR")
 
end sub

merci pour votre aide

[p'tite Sandrine]

Bon j'ai trouvé après quelquyes tests.

je supprime la ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

PysMod=StarDesktop.LoadComponentFromURL(convertToURL(PysModele),"_blank",0,propFich())

bonne journée