Bonjour,
Voici un exemple inspiré de l'aide d'OOo au sujet de la fonction "Dir" :
sub main
dim const inputPath = "/media/partage/Dest"
dim const filePrefix = "fichier_"
dim const fileExt = "ods"
dim aFileName as string
dim aFile
aFileName = dir$(convertToUrl(inputPath & getPathSeparator() &
filePrefix & "*" & "." & fileExt), 0)
while (aFileName <> "")
aFile = starDesktop.loadComponentFromUrl(convertToUrl(inputPath
& getPathSeparator() & aFileName), _
"_blank", com.sun.star.frame.FrameSearchFlag.CREATE, array())
if (not isNull(aFile)) then
'traiter le fichier
aFile.dispose()
end if
aFileName = dir$
wend
end sub
Cordialement,
Thibault Vataire
----- Mail Original -----
De: "Martin Blaizot" <martin.blai...@wanadoo.fr>
À: prog@fr.openoffice.org
Envoyé: Dimanche 1 Août 2010 13:02:34
Objet: [prog] publi-postage à l'envers
Bonjour à tous,
Est-il possible de récupérer par macro les noms de tous les fichiers contenus
dans un dossier ?
L'idée est de faire un publi-postage à l'envers. je m'explique :
J'ai un dossier avec une centaine de fichiers .xls ayant la même structure. Il
s'agit de factures, et je souhaite remplir une base de données avec les
destinataires de ces factures. Le problème est d'arriver à ouvrir les fichiers
sans les nommer ( du style for i = 1 to 100 ouvrir fichier_i) ou de récupérer
les noms.
D'avance merci pour vos suggestions,
Martin
---------------------------------------------------------------------
To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org
For additional commands, e-mail: prog-h...@fr.openoffice.org
