Enregistrer la feuille sous pdf

Bonjour ,

Je débute sur les Macro.

J'ai un classeur Excel contenant environ 150 feuilles.

Je souhaite créer une Macro pour enregistrer la feuille sous format pdf et la nommer selon son nom de feuille.

Je n'arrive pas à modifier le nom via ActiveSheet, pouvez-vous m'aider svp?

merci à vous.

Bonjour,

Est ce que ce code correspond à ton besoin ?

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= "C:\bureau\" & ActiveSheet.Name & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Bonjour Pedro22,

tout simplement parfait merci beaucoup.

Je vais gagner en temps fabuleux

Bonjour,

Je me permets de up ce topic suite à un récent problème lors de l'enregistrement de mes feuilles en pdf.

Ma macro est la suivante :

 Sheets(Array("Plan Fi ANAH HM")).Select

    ActiveSheet.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=Left(Sheets("test macro").Range("B4"), InStr(1, ThisWorkbook.Name, ".")) & "pdf", _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=True

Depuis récemment, ça m'indique ce message : Imprimer : Erreur lors de l'impression.

Je précise que mon tableur excel est depuis le début au format Classeur Excel 97-2004 (.xls) et que je bosse sur Mac (si jamais ça a un impact).

Comment puis-je palier à ce problème ? Sachant que je ne souhaite pas imprimer, mais juste enregistrer en pdf (à partir desquels j'imprime).

Merci beaucoup pour votre précieuse aide