XL 2016 [RESOLU]Enregistrer une feuille au format PDF et ajouter au nom le résultat d'une cellule

nrdz83

XLDnaute Impliqué
Bonjour à tous,

j'utilise le code ci-dessous pour enregistrer ma feuille au format PDF, il fonctionne trés bien mais je cherche à mettre à la suite du nom de mon ficheir le résultat de la cellule B2 de ma feuille Matrice.

J'ai essayé ce code mais ça ne fonctionne pas
Code:
& Sheets("Matrice").Range("B2")


VB:
ChDir "E:\Mes documents\classeurs excel"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "E:\Mes documents\classeurs excel\Liste des tâches programmées du secteur soutien pour la semaine.pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False

Par avance je vous remercie pour votre aide.

Cordialement.
 

Staple1600

XLDnaute Barbatruc
Bonjour le fil

Essaies ainsi
VB:
Sub Test()
Dim Chemin As String
Dim NomFichier As String
Chemin=""E:\Mes documents\classeurs excel\"
NomFichier=Sheets("Matrice").Range("B2").Text
 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & NomFichier , Quality:=xlQualityStandard
End Sub
 

job75

XLDnaute Barbatruc
Bonjour nrdz83, JM,

Si la cellule B2 ne contient pas de caractères interdits ceci doit fonctionner :
VB:
ActiveSheet.ExportAsFixedFormat xlTypePDF, "E:\Mes documents\classeurs excel\Liste des tâches programmées du secteur soutien pour la semaine " & Sheets("Matrice").Range("B2")
Il n'est pas indispensable d'indiquer l'extension .pdf.

A+
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 947
Membres
101 849
dernier inscrit
florentMIG