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 😊