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

MG_000

XLDnaute Nouveau
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

1698227954903.png
 

MG_000

XLDnaute Nouveau
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 ... :D
Certaines fonctionnaient, c'était déjà une réussite pour moi 😊
 

Discussions similaires

Réponses
3
Affichages
489

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
313 271
Messages
2 096 724
Membres
106 720
dernier inscrit
Alain EDZOA