> 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
349,99 €Portable 14 pouces Lenovo IdeaPad 3 (FHD, Celeron, 8Go, SSD 256Go) à 349,99 €
Valable jusqu'au 29 Janvier

Fnac fait une belle promotion sur le PC portable 14 pouces Lenovo IdeaPad 3 14IGL05 qui passe à 349,99 € alors qu'on le trouve ailleurs à partir de 449 €. Ce portable possède un écran 14 pouces FHD (1920x1080) antireflet, un processeur Intel Celeron N4020, 8 Go de RAM et un SSD de 256 Go. Le WiFi, le bluetooth et l'USB 3.2 sont de la partie. Le tout tourne sous Windows 10S que vous pouvez gratuitement passer à Windows 10 Famille (puis Windows 11). Une bonne affaire pour un PC adapté à la bureautique, à Internet et que vous pourrez emmener partout avec vous.


> Voir l'offre
11,69 €Clé USB 3.0 Sandisk Ultra 64 Go à 11,69 €
Valable jusqu'au 29 Janvier

Cdiscount propose la clé USB Sandisk Ultra d'une capacité de 64 Go qui passe à 11,69 €. Cette clé USB 3.0 est compatible USB 2.0 et offre de bons débits d'environ 100 Mo/s en lecture et en écriture. Le connecteur est rétractable pour éviter qu'il prenne la poussière.


> Voir l'offre
449,99 €Portable Dell Inspiron 15 3501 (15.6 pouces, FullHD, Core i3, 8Go, SSD 256Go) à 449,99 €
Valable jusqu'au 31 Janvier

RueDuCommerce fait une promotion sur l'ordinateur portable Dell Inspiron 15 3501 qui passe à 449,99 € alors qu'on le trouve ailleurs à partir de 529 €. Cet ordinateur possède un écran 15,6 pouces Full HD (1920x1080), un processeur Intel Core i3-1115G4 avec chip graphique Intel UHD intégré, 8 Go de RAM (extensibles à 16 Go) et un SSD NVMe de 256 Go. Le tout tourne sous Windows 10 qui peut être mis à jour pour Windows 11.


> 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