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
