[fr-users] Macro sous ooo calc pour envoi par mail

Bonsoir,
Je reviens sur mon problème et apporte un peu d'eau à mon moulin 
(j'espère) par le biais d'une macro faite avec l'éditeur (bon d'accord 
mais ça marche)

La question était
Quelqu'un connait-il une macro (adaptable, merci de m'aiguiller sur 
comment) pour envoyer par mail la copie d'une seule feuille d'un tableau 
calc à partir
de ce tableau ?

Alors voilà, le bout de code qui suit me copie la feuille entière dans 
un nouveau tableau, ce que je souhaite. Et j'ai trouvé sur divers forums 
des bouts de codes pour envoyer un fichier, existant et enregistré dans 
un endroit déterminé, par mail.

Donc si quelqu'un peu me complèter cette macro (ou créer une fonction) 
pour enregitrer le nouveau fichier comportant la feuille exportée 
toujours sous le même nom et dans le même dossier, voire encore mieux 
écraser chaque jour le fichier de la veille portant même nom. Je pourrai 
enchainer avec une macro qui envoie en mail et hop ce sera le bonheur.

Bien sûr si quelque sait, en partant de ce code, faire une macro qui 
envoie le nouveau document non enregistré directement en mail, c'est 
encore mieux

En vous remerciant
Cordialement
Yves Lombardot

----------------la macro--------------

sub nouveau
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(2) as new com.sun.star.beans.PropertyValue
args1(0).Name = "DocName"
args1(0).Value = ""
args1(1).Name = "Index"
args1(1).Value = 32767
args1(2).Name = "Copy"
args1(2).Value = true

dispatcher.executeDispatch(document, ".uno:Move", "", 0, args1())


end sub
--
------------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected] with Subject: help