[Issue][Writer] Publipostage dans une bibliothèque Windows

[Phillg28]

Bonjours à Tous,

L'exemple de macro de publipostage, dont j'ai déjà parlé ne semble marché que si le répertoire d'accueil des résultats est créé directement sur la racine du système C:

Code : Tout sélectionner

Sub PublipostageFichiers_()
Dim nomSource As String, nomTable As String, colonnePrefixe As String
Dim URLmodele As String, repResultats As String
Dim monPublipostage As Object,PysMod as object, props() 


nomSource = "BDDext" 
nomTable = "Clients"
colonnePrefixe = "Nom"
'URLmodele = ConvertToURL("C:\Docs OpenOffice\annonceSoldes.odt")
URLmodele = ConvertToURL("C:\Users\Public\Documents\annonceSoldes.odt")
repResultats = ConvertToURL("C:\Docs OpenOffice\resultat\")

repResultats = ConvertToURL("C:\Users\Public\Documents\")  '<--- Ne marche pas
repResultats = ConvertToURL("C:\EssaisPublipostage\")      '<---  Marche !
monPublipostage = createUnoService("com.sun.star.text.MailMerge")


With monPublipostage
  .DataSourceName = nomSource 
  .CommandType = com.sun.star.sdb.CommandType.TABLE
  .Command = nomTable 
  .OutputType = com.sun.star.text.MailMergeType.FILE
  .FileNameFromColumn = True 
  .FilenamePrefix = colonnePrefixe 
 .SaveAsSingleFile = True
'  .SaveFilter = "writer_pdf_Export" ' exemple d'export en PDF
  .DocumentURL = URLmodele 
  .OutputURL = repResultats 
  .execute(props())
End With
MsgBox("Fin du publipostage")
End Sub

Si le répertoire d'accueil se trouve sous le répertoire "Users" ou "Utilisateurs" par exemple, cela ne marche plus. Confirmez vous ?
Dans ce cas cela m'oblige à ce que ma future extension force la création d'un répertoire spécial pour cela. Ce qui me semble dommageable.

[Oukcha]

Bonjour,

Le titre de votre question n'est pas assez explicite ou ne reflète pas le problème que vous décrivez :
[Writer]bogue sur un exemple de programme de publipost.(Suite)

Nous l'avons donc modifié. En effet, lors d'une recherche, ce sujet risquait de passer inaperçu et donc de ne pas aider d'autres personnes ayant le même problème que vous. Des termes comme "problème" ou "openoffice" sont bien sûr implicites et n'ont pas besoin d'être mentionnés.

Voici quelques astuces pour avoir un titre optimum : http://user.services.openoffice.org/fr/ ... 1002#p1002

La prochaine fois, pensez à bien choisir les termes du titre de votre question. Ce titre doit synthétiser votre question, n'oubliez pas qu'un titre clair et précis augmente vos chances d'obtenir des réponses plus rapidement.

Merci de votre collaboration pour nous aider à rendre la qualité de ce forum optimum.

[ThierryT]

A essayer sous Windows :

Code : Tout sélectionner

repResultats = ConvertToURL("C:\Users\Public\Documents publics\")

[Dude]

Salut,

Non reproduit sous AOO 4.1.3 et Win7 x64 Pro
En prenant la Bibliographie comme source et un répertoire temporaire accessible à tout le monde :

Code : Tout sélectionner

nomSource = "Bibliography"
nomTable = "biblio"
colonnePrefixe = "Identifier"
'URLmodele = ConvertToURL("C:\Docs OpenOffice\annonceSoldes.odt")
URLmodele = ConvertToURL("C:\Temp\test.odt")
URLsortie = ConvertToURL("C:\Temp\Publi")
mkdir URLsortie
repResultats = URLsortie

Le publipostage se fait parfaitement dans un sous-répertoire.

[Phillg28]

Merci Dude, c'est précisément ce que je voulais éviter en donnant le choix de l'emplacement complètement libre pour les utilisateurs. Devrais-je être donc contraint à imposer un répertoire pour le stockage des résultats de publipostage ?

[Dude]

OK je confirme que les répertoires de la bibliothèque Windows ne sont pas accessibles.
D'après Microsoft, il ne s'agit pas réellement de répertoire mais plutôt de pointeur vers des dossiers.
J'ai ouvert le rapport 127421 en ce sens.

Contournement : exporter dans un répertoire temporaire puis replacer les fichiers au bon endroit via FileCopy.

Faut voter !

Et ajouter la balise [Issue] pour le signaler.

[Phillg28]

OK Merci Dude.
Pour l'instant je me bats pour maîtriser Extension Compiler (d'autant que l'anglais n'a jamais été ma tasse de thé!). La solution que tu proposes fera l'objet d'une mise à jour, en attendant j'ai détourné le pb en imposant la création d'un répertoire de stockage idoine. Merci encore

[Dude]

Bis repetitae :

Faut voter !

Et ajouter la balise [Issue] pour le signaler.