Impression PDF le nom d'une cellule

Bonjour,

je souhaite imprimer mon document excel en PDF par un bouton auquel j'affecte une macro.

Cependant quand j'indique le nom du document PDF une cellule fait référence à une cellule format date la cellule C46.

j'ai indiqué [C46.]Value mais j'ai un message d'erreur

Je suppose que ce n'est pas .value quelqu'"un peut m'aider SVP?

Sub impression()

 Range("A1:L47").Select

 chemin = "P:\MR\SARL APR\OPERATIONNEL\"

    ActiveSheet.ExportAsFixedFormat Type:=x1typepdf, Filename:=chemin & [K2].Value & " " & [L2].Value & " " & [C46].Value, Quality:=xlQualityStandard, _
 IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub

Bonjour,

Je ne connais pas le contenu de C46 ... mais je propose d'ajouter l'extension du fichier ... ainsi :

  ActiveSheet.ExportAsFixedFormat Type:=x1typepdf, Filename:=chemin & [K2].Value & " " & [L2].Value & " " & [C46].Value & ".pdf", Quality:=xlQualityStandard, _
 IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

Gelinotte

Bonjour,

le problème c'est qu'en C46 c'est une cellule au format date du coup cela me marque un message d'erreur

Bonjour,

Essaie ainsi :

Sub Impression_PDF()
Dim Chemin As String, Fichier As String

    Chemin = "P:\MR\SARL APR\OPERATIONNEL\"

    With ActiveSheet
        Fichier = .[K2] & " " & .[L2] & " "
        Fichier = Fichier & Format(.[C46], "yyyymmdd") & ".pdf"
        .ExportAsFixedFormat _
                Type:=xlTypePDF, _
                Filename:=Chemin & Fichier, _
                Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, _
                IgnorePrintAreas:=False, _
                OpenAfterPublish:=True
    End With

End Sub

Bonjour

ça fonctionne merci beaucoup

Marguerite