Convertir la feuille active en PDF

Bonsoir à vous, toutes et tous

Je reviens vers votre compétence en la matière pour un macro en vue de convertir, depuis mon classeur excel, la feuille ACTIVE en PDF et l'enregistrer automatiquement dans un dossier nommé "Rapports" sous le nom du (mois en cours moins 1), c'est à dire, si on est par exemple en mois d’août, le nom du PDF sera Juillet.

Une autre astuce si c'est possible, je voulais après la conversion, une petite note comme "document validé" s'écrit automatiquement sur la feuille excel convertie au niveau de la cellule AA2. .........(et si c'est compliqué, pas la peine)

Je pense que ce macro n'a pas besoin de joindre un fichier avec mon file.

Un grand merci à vous.

Bonsoir,

Sub Noura()
    Dim chemin$, nomfich$
    chemin = "?????\Rapport\" 'Remplacer les ????
    nomfich = StrConv(Format(DateAdd("m", -1, Date), "mmmm"), vbProperCase) & ".pdf"
    ActiveSheet.ExportAsFixedFormat xlTypePDF, chemin & nomfich
End Sub

Après conversion, tu n'écris plus rien ! Si tu veux écrire, il faut le faire avant.

Exemple :

Sub Noura()
    Dim chemin$, nomfich$
    chemin = "?????\Rapport\" 'Remplacer les ????
    nomfich = StrConv(Format(DateAdd("m", -1, Date), "mmmm"), vbProperCase) & ".pdf"
    With ActiveSheet
        .Range("AA2") = "document validé"
        .ExportAsFixedFormat xlTypePDF, chemin & nomfich
        .Range("AA2").ClearContents
    End With
End Sub

Cordialement.

Bonjour MFerrand, le forum

Excellent.

C'est toujours toi en premier, MFerrand

Un grand merci

ravie de te croiser à chaque fois et ravie même de te voir toujours actif sur ce forum.

vraiment merci.

grâce à vous tous, j'ai pu améliorer ma BD et mes taches compliquées avec excel.

Je vous souhaite très bonne journée et bonne continuation.