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

[nrdz83]

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

& Sheets("Matrice").Range("B2")

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]

Bonjour le fil

Essaies ainsi

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]

Bonjour nrdz83, JM,

Si la cellule B2 ne contient pas de caractères interdits ceci doit fonctionner :

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+

 

[nrdz83]

Bonjour le fil

Essaies ainsi

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

Super merci ça fonctionne Stap

 

[nrdz83]

Re bonjour Staple 1600 et JOB 75, super vos deux propositions fonctionnent à merveille je vais les adapter à mes besoins. Une bonne fin de week end.

Cordialement.