Enregistrement PDF - Choix du repertoire

Bonjour à toutes te à tous.

J'ai une macro qui me permet d'enregsitrer le classeur sous format PDF qui fonctionne nickel.

Sub pdf()

ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="C:\Documents and Settings\..\NomClasseur.pdf", _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False
End Sub

Le probleme est que le repertoire d'enregsitremeent est figé dans la macro.. Comme le fichier peut etre amené a changer de repertoire, moi j'aimerais lui dire qu'au lieu d'aller a chaque fois dans Documents & Settings ..., qu'il fasse directement Enregistrement dans le repertoire local\Nom du classeur.pdf.

Un petit coup de pouce svp ?

Merci par avance.

Bonjour,

Dans cette exemple dans une feuil2 en A2 j'ai mis le chemin que je souhaite par exemple C:\Test

L'enregistrement sera donc effectuer sous c:\Test\Nomduclasseur.pdf

A tester :
Sub pdf()
chemin = Sheets("Feuil2").Range("A2").Value & "\" & ThisWorkbook.Name & ".pdf"

ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
  Filename:=chemin, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False
End Sub

Cela fonctionne nickel !

Le seul petit hic, c'est que le fichier PDF a l'extension .xlsm

Du coup le fichier .pdf créée se nomme NomClasseur.xlsx (Bien que ce soit un PDF exploitable avec Adobe)

Y'a t'il une soluce pour retirer le .xlsx ?

Merci pour l'aide apportée.

Et comme ceci ?

Sub PDF()
Dim NomFichier As String
NomFichier = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5)
chemin = Sheets("Feuil2").Range("A2").Value & "\" & NomFichier & ".pdf"

ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
  Filename:=chemin, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False
End Sub

A noter que ça ne fonctionne que si l'extension du fichier contient 4 caractères comme par exemple xlsx

Bonjour,

Cela fonctionne du tonnerre !!

Puis-je vous dire une phrase, j'y tiens ?

Merci infiniment à vous !!

Problème résolu.