× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > Tous les forums > Forum Bureautique
 macro pour enregistrer fichier avec nom d1cellule
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
jmsch
  Posté le 05/01/2009 @ 23:21 
Aller en bas de la page 
Petit astucien

bonsoir,

j'aurais besoin d'un petit coup de main pour faire fonctionner cette macro. Le but est d'enrégistrer mon fichier au format PDF avec le nom qui se trouvr dans la cellule j8.

Pour le momment l'enrégistrement fonctionne mais s'arrete sur la boite de dialogue de l'imprimante CutePDF Writer ou je dois mettre manuellement le nom et valider l'enrégistrement du fichier. Est il possible d'automatiser cette étape.

Merci de m'aider

sub PDF
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(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Printer"
args1(0).Value = "CutePDF Writer"

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

rem ----------------------------------------------------------------------
dim args2(1) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Copies"
args2(0).Value = 1
args2(1).Name = "Collate"
args2(1).Value = true

dispatcher.executeDispatch(document, ".uno:Print", "", 0, args2())


end sub



Modifié par jmsch le 06/01/2009 19:41
Publicité
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
18,90 €Microsoft Office 2019 Professional Plus à 18,90 €
Valable jusqu'au 02 Juin

Le vendeur sérieux Digital FR propose sur Amazon la clé d'activation légale pour Microsoft Office Professionnel 2019 Plus en français à 18,90 €. Cette clé livrée par email vous permettra d'activer Microsoft Office Professionnel 2019 Plus légalement et vous permettra ainsi d'utiliser autant de temps que vous voulez (il s'agit de la version complète et pas d'un abonnement) Word,Excel, PowerPoint, OneNote, Outlook, Publisher et Access 2019 sur un PC. La clé sera à activer sur Office.com où vous pourrez ensuite télécharger toute la suite bureautique. Pour mémoire, Microsoft Office Professionnel 2019 nécessite Windows 10. Sous Windows 7 ou 8, vous devrez vous tourner vers la version 2016. Pour plus d'info sur la procédure, n'hésitez pas à jeter un oeil à notre dossier pratique Acheter une clé OEM d'Office 2019 et l'installer.


> Voir l'offre
14,99 €Télécommande de présentation sans fil Logitech R400 à 14,99 €
Valable jusqu'au 30 Mai

Amazon fait une promotion sur la télécommande de présentation sans fil Logitech R400 qui passe à 14,99 € alors qu'on la trouve ailleurs autour de 30 €. Les commandes pratiques de la télécommande Logitech Wireless Presenter R400 vous aident à réussir vos présentations. Avec les commandes intuitives et le pointeur laser rouge de la Wireless Presenter R400, les présentations sont un vrai jeu d'enfant, même dans les environnements les plus sombres. Le pointeur laser rouge est facile à voir sur la plupart des surfaces et sa portée peut atteindre 15 mètres, vous permettant ainsi de vous déplacer dans la salle. Aucun logiciel n'est nécessaire, il suffit de brancher le récepteur dans un port USB et le tour est joué !


> Voir l'offre
469,99 €Kit d'évolution PC AMD Ryzen 7 3700x + carte-mère Asus TUF B450 Plus Gaming + 16 Go DDR4 à 469,99 €
Valable jusqu'au 30 Mai

RueDuCommerce fait une belle belle promotion sur le kit d'évolution PC processeur AMD Ryzen 7 3700X (avec son ventilateur Wraith Prism LED), une carte-mère Asus TUF B450 Plus Gaming et 16 Go de RAM DDR4 (2x8 Go) Corsair Vengeance LPX 3200 MHz CAS 16 à 469,90 € alors qu'on trouve l'ensemble à partir de 549 €. 


> Voir l'offre

Sujets relatifs
excel : macro pour enregistrer un fichier
Creation d' une boucle macro dans fichier EXCEL pour impression
securiser fichier avec mot de passe pour chacun
Macro pour ouverture d'un fichier Excel
Macro excel pour enregistrer
Taille d'un fichier excessive avec une macro
EXCEL RECHERCHEV pour autre fichier. Macro?
Macro pour insertion fichier html dans Mail
VBA macro avec formule si( pour imprimer
Macro ouvrir fichier avec raccourci clavier
Plus de sujets relatifs à macro pour enregistrer fichier avec nom d1cellule
 > Tous les forums > Forum Bureautique