#2 Re: Macro "enregistrer sous PDF" bonjour Tu peux utiliser Code: ThisWorkbook. ExportAsFixedFormat Type:=xlTypePDF, _ Filename:="C:\Documents and Settings\mimi\dossier\", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False Bonne soirée MichelXld #3 Merci beaucoup à toi! #4 J'ai une question supplémentaire à poser à propos de la publication en Pdf. Le code fournit par Michel fonctionne très bien. Je voudrais simplement qu'une zone bien précise de ma feuille soit publiée en Pdf et non le document entier comme c'est la cas actuellement. La feuille s'appelle "Agenda" et la plage est comprise de A1 à M42. #5 Dans ce cas tu peux utiliser cette adaptation Worksheets("Agenda")("A1:M42"). ExportAsFixedFormat Type:=xlTypePDF, _ Bonne journée #6 Tout simplement parfait! Merci beaucoup pour ton aide à mes deux questions! #7 jojodanslalune si tu avais utilisé l'enregistreur de macro, tu aurais pu te répondre tout seul salutations #8 Je l'ai fait... cela ne fonctionnait pas.
#1 Bonjour à tous et particulièrement à JM, Toujours en quête d'automatiser mes classeurs, j'ai fait, avec l'aide bien sur, d'excel, la macro suivante: Sub enregistrersous() ' ' enregistrersous Macro ChDir "C:\Users\Lionel\Desktop" Filename:= _ "C:\Users\Lionel\Desktop\Pointage Matrice ", FileFormat:= _ xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False End Sub Je souhaiterai, mais évidemment, je ne sais pas faire, que la macro me propose de lui donner la destination de l'enregistrement et qu'elle me propose aussi de donner un nom au fichier. J'ai chercher sur le forum des dialogues similaires mais je n'ai pas trouvé "ma réponse". Merci de votre aide, Amicalement, Lionel, Dernière édition: 29 Décembre 2011 #3 Re: Enregistrer sous avec VBA Bonjour arthour973 et le forum, Pour cela, il faut utiliser ceci, Code: Application. Dialogs(xlDialogSaveAs) A + et bonne fête de fin d'année. Edit désolé Hasco pas rafréchi #4 Bonjour et merci de votre réponse, Je ne sais pas comment supprimer un fil alors, j'ai écrit "résolu erreur doublon" sur l'autre.
Il y a quelque temps, je publiais un article donnant une procédure afin de faire la liste des onglets d'un fichier Excel et, par la suite, d'en imprimer une sélection. Cela se faisait à l'aide de macros VBA. Voir à ce sujet les articles Excel: Créer automatiquement la liste des noms d'onglets d'un fichier et Excel: Imprimer une sélection d'onglets dans un fichier. À la suite de commentaires d'utilisateurs, force est de constater qu'il y a également un besoin afin d'enregistrer les feuilles Excel sous format PDF, au lieu de simplement les imprimer. Les mêmes commentaires font mention de la possibilité de définir une imprimante qui est en fait un pilote de création de fichiers PDF. Toutefois, ce moyen est complexe alors que, depuis Excel 2007, il est possible de sauvegarder directement les onglets désirés d'un fichier Excel en format PDF. Nous allons donc reprendre la procédure déjà décrite dans Excel: Imprimer une sélection d'onglets dans un fichier et la modifier afin de sauvegarder ces feuilles Excel dans un fichier PDF.
Sinon, le nom du fichier sera false ou faux, si Excel français If strFileName <> "False" And strFileName <> "Faux" Then ActiveSheet. ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFileName _, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _:=False, OpenAfterPublish:=False ' Ici, on va sauvegarder en fonction de la mise en page pour impression ' On sort en revenant à l'onglet de départ set sname = Nothing End Sub Petits points à noter pour enregistrer des feuilles Excel sous format PDF Si le fichier PDF choisi existe déjà, il sera tout bonnement remplacé. Si le fichier PDF est ouvert, il y aura une erreur d'exécution. Le paramètre du ExportAsFixedFormat nommé IgnorePrintAreas est configuré à False. Donc, le PDF va suivre la mise en page. Si on ne veut pas cela, on va plutôt allouer la valeur True à ce paramètre. Il est également possible de forcer l'ouverture du fichier PDF. Il s'agit du paramètre OpenAfterPublish. C'est à vous de voir. Finalement, on utilise l'application GetSaveAsFilename de MS Office.
Pokemon Gold Rom Ds, 2024