> 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
Mini PC BMAX B8 Pro (Core i7-1255U, 24 Go RAM DDR5, SSD NVMe 1 To, WiFi 6, BT 5.2, Windows 11) à 389,99 €
389,99 € 440 € -11%
@Geekbuying
Ecran incurvé 34 pouces AOC CU34G2X (WQHD, 1 ms, 144 Hz, FreeSync) à 329,99 €
329,99 € 379,90 € -13%
@Cdiscount
Sommier SmartBase Zinius (140x190, 35 cm de haut, prémonté) à 69,90 €
69,90 € 98,90 € -29%
@Amazon
Perceuse sans-fil Bosch Professional GSR 18V-2LI + 2 batteries 2 AH + L-Case à 169 €
169 € 199 € -15%
@Cdiscount
Mini PC T-bao NAS R1 (Intel N100, 16 Go RAM, SSD 512 Go, 2 emplacements SATA 3.5 pouces, WiFi 6, BT 5.2, 2 ports Ethernet 2.5G, Windows 11 Pro) à 289,99 €
289,99 € 370 € -22%
@Geekbuying
Fauteuil de bureau HLFURNIEU en maille respirante à 34,99 €
34,99 € 50 € -30%
@Cdiscount

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