| ||||||||
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é | ||||||||
| ||||||||
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 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 | |||||||
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. | |||||||
Nouvel astucien | Ah... j'oubliais. Excuses. Un grand merci à Galopin01 pour son aide. | |||||||
|
Les bons plans du moment PC Astuces | Tous les Bons Plans | |||||||||||||||
|