> Tous les forums > Forum Bureautique
 Macro Excel ExportAsFixedFormat (Excel vers PDF)
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Rased57
  Posté le 05/10/2010 @ 15:47 
Aller en bas de la page 
Nouvel astucien

Bonjour,

J'ai été extèmement surpris de la réactivité de ce forum que j'ai découvert il y a peu.

Je suis plutot "Novice", voire "Bidouilleur!!!", et je me trouve confronter à une difficulté insurmontable.

Exemple :

Une feuille Excel comprend un document Type "Facture", et est configuré pour s'imprimer sur 12 pages (si on lance l'impression par Fichier/Enregistrer sous/ PDF ou XPS).

En utilant l'enregistreur de macro et SURTOUT avec l'aide de l'un d'entre vous, j'arrive à une macro qui fonctionne mais qui m'imprime les douzes pages dans un même dossier et sous un seul NOM.

Voici la Macro :

==============================================================================

Sub ExportPDF()

Dim Dossier$, Chemin$, PdfFile$

Dossier = "C:\Users\AAA\Documents\Mes Docs Perso\Dossiers AAA\" & [B8].Value

If Dir(Dossier, 16) = "" Then MkDir Dossier

Chemin = Dossier & "\"

Jour = Format(Now(), "yyyy-mm-dd")

PdfFile = [B7].Value & "_" & Jour & ".pdf"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _

Filename:=Chemin & PdfFile, _

Quality:=xlQualityStandard, _

IncludeDocProperties:=True, _

IgnorePrintAreas:=False, _

OpenAfterPublish:=True

End Sub

========================================================================================

Je souhaiterais avoir le choix (par une boite de dialogue) de décider quelles pages doivent être imprimées/exportées ou pas,

et faire en sorte que exportation se fasse vers les dossiers respectifs (Variable en fonction de B8) et que chaque page soit un fichier PDF distinct ( de NOM variable B7)

La cerise sur le gateau serait que le fichier PDF s'ouvre automatiquement après sa création (pour avoir un appercu)

J'espère que j'ai été explicite. Sinon, je suis près à revoir ma copie.

Merci d'avance

Publicité
gilbert_rgi
 Posté le 05/10/2010 à 19:58 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

voilà les attributs de

http://msdn.microsoft.com/en-us/library/bb238907(office.12).aspx

Workbook.ExportAsFixedFormat Méthode

Office 2007
Le ExportAsFixedFormat méthode est utilisée pour publier un classeur soit au format PDF ou XPS.

Informations sur la version
Version Ajouté: Excel 2007

Syntaxe

expression. ExportAsFixedFormat (Type, Nom, qualité, IncludeDocProperties, IgnorePrintAreas, De, Pour, OpenAfterPublish, FixedFormatExtClassPtr)

expression Une variable qui représente un classeur, feuille, graphique, ou Range objet.

Paramètres

NomRequis / OptionnelType de données Description
Type Requis XlFixedFormatType Peut être xlTypePDF ou xlTypeXPS.
Nom de fichier Facultatif Variante Une chaîne qui indique le nom du fichier à enregistrer. Vous pouvez inclure un chemin d'accès complet ou Excel 2007 enregistre le fichier dans le dossier courant.
Qualité Facultatif Variante Peut être réglé soit xlQualityStandard ou xlQualityMinimum.
IncludeDocProperties Facultatif Variante Set à True pour indiquer que les propriétés du document doivent être inclus ou mis à False pour indiquer qu'ils ont été omis.
IgnorePrintAreas Facultatif Variante Si la valeur est True, ignore tout des zones d'impression mis lors de la publication. Si la valeur est False, va utiliser les zones d'impression définie lors de la publication.
De Facultatif Variante Le numéro de la page à laquelle de commencer à publier. Si cet argument est omis, l'édition commence au début.
Pour Facultatif Variante Le nombre de la dernière page de publier. Si cet argument est omis, l'édition se termine par la dernière page
OpenAfterPublish Facultatif Variante Si la valeur True fichier affiche dans la visionneuse après sa publication. S'il est défini à False le fichier est publié, mais ne s'affiche pas.
FixedFormatExtClassPtr Facultatif Variante Pointeur vers le FixedFormatExt classe.

cela va peut-être vous permètre de choisir les pages désirées

Salutations

Gilbert_RGI



Modifié par gilbert_rgi le 05/10/2010 20:04
Rased57
 Posté le 05/10/2010 à 22:08 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

Merci Gilbert_RGI...

Avec tes explications, je pense pouvoir modifier ma macro pour editer telle ou telle page, (ou suite de page).

Mais mes compétences en macro étant proche du degré 0, je ne vois pas comment pouvoir automatiser la ventilation des différentes pages en fonction du contenu d'une cellule de chaque page, ni comment automatiser la création d'un dossier s'y référent.

Peut être n'est ce pas faisable?

Merci tout de même.

Rased57
 Posté le 05/10/2010 à 22:18 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

Ah... j'oubliais. Excuses.

Un grand merci à Galopin01 pour son aide.

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
25,99 €Pack de 5 ventilateurs Arctic P12 PWM 120 mm à 25,99 €
Valable jusqu'au 28 Juin

Amazon fait une promotion sur le pack de 5 ventilateurs Arctic P12 PWM 120 mm qui passe à 25,99 € au lieu de 40 €. Ces ventilateurs vous permettront de refroidir efficacement et en silence votre boîtier. La fonction PWM permet de faire fonctionner les ventilateurs précisément à la vitesse nécessaire.


> Voir l'offre
74,99 €SSD PNY CS900 960 Go à 74,99 €
Valable jusqu'au 27 Juin

Cdiscount fait une promotion sur le SSD PNY CS900 960 Go qui passe à 74,99 € alors qu'on le trouve ailleurs à partir de 100 €. Ce SSD offre des vitesses d'écriture de 515 Mo/s et de lecture à 550 Mo/s. Il est garanti 3 ans. La livraison est gratuite.


> Voir l'offre
69,99 €Imprimante multifonction HP DeskJet 4122e (Wifi, PDF) + 6 mois instant Ink à 69,99 €
Valable jusqu'au 28 Juin

Cdiscount fait une belle promotion sur l'imprimante multifonction HP DeskJet 4122e (WiFi) qui passe à 69,99 € au lieu de 120 € ailleurs.. Cette imprimante 3 en 1 fait donc imprimante, photocopieur et scanner. Elle dispose d'un chargeur automatique de documents. Elle fonctionne avec 2 cartouches d'encre (une noire et une 3 couleurs). Connexion via USB, Bluetooth, Ethernet et Wifi. Vous pourrez facilement imprimer et numériser avec votre ordinateur, tablette, smartphone. Exportation automatique en PDF.


> Voir l'offre

Sujets relatifs
excel vba passer une variable de commande vers macro
macro pour passer de word vers excel
macro excel copier collage special vers word
macro excel vers access
Macro Excel 2000 vers Excel 2003
Macro excel vers word
Access Macro pour exporter vers Excel
Macro Excel vers Gmail
Macro migration excel ver5.0 vers Excel2000
2 pages par feuille dans macro excel
Plus de sujets relatifs à Macro Excel ExportAsFixedFormat (Excel vers PDF)
 > Tous les forums > Forum Bureautique