> 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 participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
139 €PC fixe HP EliteDesk 800 G1 SFF reconditionné (Core i5, 8Go/240Go, DVD-R, Windows 10 Pro) à 139 €
269 € -48%

AfB Shop propose le PC fixe HP EliteDesk 800 G1 SFF reconditionné à 139 €. Il possède un processeur Intel Core i5 4570 (4 coeurs), 8 Go de RAM, un SSD de 240 Go, un graveur de DVD et tourne sous Windows 10. Le PC est nettoyé, remis en état, testé et garanti 12 mois. 

Ce PC est adapté pour un poste bureautique / Internet.


Voir l'offre
39,99 €Tondeuse sans fil Philips Multigroom 7000 + 8 sabots (cheveux, barbe, corps, oreilles/nez) à 39,99 €
80 € -50%

Amazon fait une promotion sur la tondeuse sans fil Philips MG7745/15 qui passe à 39,99 € alors qu'on la trouve ailleurs à partir de 80 €. Cette tondeuse en métal peut tailler et sculpter la barbe, les cheveux, le corps, le nez et les oreilles.... 3 sabots cheveux (9, 12 et 16 mm), 2 sabots barbe (1 et 2 mm), sabot barbe ajustable (3 à 7 mm) et 2 sabots pour le corps. L'appareil est 100% étanche et offre une autonomie de 2 heures.


Voir l'offre
678,90 €PC portable 15.6 pouces Dell G15 (FHD 120Hz, Core i5, 8Go/256Go, RTX 3050, Ubuntu) à 678,90 €
799,95 € -15%

RueDuCommerce fait une promotion sur le PC portable 15.6 pouces Dell Inspiron G15-5510 qui passe à 678,90 € au lieu de 849 €. Ce portable possède un écran Full HD antireflet 120 Hz, un processeur Intel Core i5 10200H, 8 Go de RAM, un SSD NVMe de 256 Go et une carte graphique NVIDIA GeForce RTX 3050 avec 4 Go de mémoire. Le tout tourne sous Linux Ubuntu (que vous pouvez remplacer par Windows 10/11 si vous voulez).

Une bonne machine pour la bureautique, Internet, le multimédia et le jeu occasionnel.


Voir l'offre
699,99 €Ultraportable 14 pouces Asus Vivobook S3400QA (OLED WQXGA+, Core i5, 8 Go, SSD 512 Go) à 699,99 €
800 € -13%

Cdiscount fait une belle promotion sur l'ultraportable Asus Vivobook S3400PA-KM014W qui passe à 699,99 € au lieu de 800 €. Cet ordinateur dispose d'un superbe écran 14 pouces OLED WQXGA+ 2.8K (2880x1800), d'un processeur Intel Core i5 11300H, de 8 Go de RAM, un SSD NVMe de 512 Go et tourne sous Windows 10 que vous pouvez mettre à jour pour Windows 11. Il ne pèse que 1,40 kg et propose une autonomie réelle de 7h30.

Un très bon portable avec un superbe écran idéal pour la bureautique, Internet et le multimédia.


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