VBA excel garder en mémoire un chemin d'accès

Bonjour,

Je souhaites à partir d'excel créer un dossier dont le nom varie selon une variable prédéfinie dans le fichier excel (créer un dossier janvier quand on bosse sur la variable janvier, un dossier février quand on bosse sur la variable février etc...), puis imprimer en pdf un onglet et le déposer dans le dossier créé précédemment.
Via le code suivant j'ai bien réussi à créer le dossier en question selon la variable, je réussi bien à imprimer en pdf mais je n'arrive aps à récupérer le chemin complet du dossier créé précédemment pour y déposer mon impression PDF, quelqu'un peut il m'aider ?
Merci beaucoup à vous


Code :
Option Explicit

Function RépertoireExiste(Chemin As String) As Boolean
On Error Resume Next
RépertoireExiste = GetAttr(Chemin) And vbDirectory
If RépertoireExiste = True Then
Exit Function
Else
MkDir (Chemin)
End If
End Function
Sub tester()
Call RépertoireExiste("Z:\CGU\THOMAS\Reporting BUS\TdB REL\2016\")
Call RépertoireExiste("Z:\CGU\THOMAS\Reporting BUS\TdB REL\2016\" & Sheets(1).[E8].Value)
End Sub
Sub IMPRESSIONPDF()
Dim Ar(2) As String

Ar(0) = Feuil1.Name
Application.ScreenUpdating = False
Sheets("Tdb").Select
Call tester

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="Z:\CGU\THOMAS\Reporting BUS\TdB REL\2016\" & Sheets(1).[E8].Value & " " & Sheets(1).[E6].Value & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

Sheets("Tdb").Select
Application.ScreenUpdating = True
End Sub