Enregistrement, avec macro, format PDF

Bonjour les artistes,

Est-ce possible d’enregistrer, avec une macro, un fichier dans le même répertoire que l’original au format PDF ?

Dans l’exemple joint, j’aimerais enregistrer, les cellules B7-E39 et nommer suivant la cellule Z12

Évidemment le fichier est allégé pour l’envoi et la confidentialité.

Merci d’avance.

Cordialement,

Bonsoir,

Je continue à chercher de mon côté, évidemment sans succès.

Alors, à votre avis

Est-ce possible ?

Merci de votre réponse.

Cordialement,

Bonjour

Un essai à tester. Te convient-il ?

Bye !

Bonjour,

Bonjour gmb,

Une autre proposition.

Cdlt

Public Sub Creer_PDF()
Dim sPath As String, sFile As String
Const RNG As String = "$B$7:$E$40"
    Application.ScreenUpdating = False
    sPath = ThisWorkbook.Path & Application.PathSeparator
    With ActiveSheet
        sFile = .Cells(12, 26).Text
        .Range(RNG).ExportAsFixedFormat _
                Type:=xlTypePDF, _
                Filename:=sPath & sFile, _
                Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, _
                IgnorePrintAreas:=False, _
                OpenAfterPublish:=True
    End With
End Sub

Salut GMB et Jean-Philippe,

@GMB

J’ai quelque misère, avec ta solution, la colonne C ne s’affiche pas correctement, les chiffres sont tous à zéro, et la colonne E, aucun chiffre n’apparaît.

@Jean-Philippe

Cela semble fonctionner, je teste sur le vrai fichier, et je te tiens au courant

En attendant, mille mercis à vous deux

Cordialement,

Merci à tous,

Bravo, résolu.

Cordialement,