Microsoft 365 pb enregistrement PDF de plusieurs feuilles d'un classeur excel

[MG_000]

Bonjour tout le monde
j'aurai besoin d'aide car je rencontre des erreurs systématiquement lorsque je teste ma macro pour enregistrer en PDF
je cherche à enregistrer 3 feuilles sur la totalité du classeur, celles ci porteront un nom spécifique

voici mon code
Sub enregistrerpdf()
Dim nompdf As String
Dim dossier As String

dossier = "C:\Users\Public\Documents"

nompdf = Informations & ThisWorkbook.Worksheets("Informations").Range("C3") & ThisWorkbook.Worksheets("Informations").Range("K7")

Sheets("Informations").ExportAsFixedFormat Type:=xlTypePDF, Filename:=nompdf & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

End Sub

et voici l'erreur ... et je ne comprend pas

Merci d'avance

 

[MG_000]

Bonjour Phil69970,
Je viens de voir tes messages. Merci beaucoup pour ton aide. Je vais regarder tout ça. ça ne m'étonne pas que mes macros n'étaient pas très optimisées ...
Certaines fonctionnaient, c'était déjà une réussite pour moi