Chemin d'acces Nom dossier variable

[kyasteph]

Bonjour,

A l'ouverture de mon classeur,je crée dans le "C" un dossier dont le nom varie en fonction de la valeur d'une cellule précise par la
macro "CreRépertoire".

Sub CreRépertoire()
If Sheets("Admin").[A1] = "" Then
Sheets("Admin").Unprotect "MDP"
On Error Resume Next
    MkDir "C:\Export_" & Sheets("FIRD").[W18].Value
    Sheets("Admin").[A1] = 1
Sheets("Admin").Protect "MDP"
End If
End Sub

Grace à une autre macro(Export1) je veux exporter les données dans le dossier ainsi créé(notons que pour chaque classeur le dossier créé est ainsi unique).

Sub Export1()
If ActiveSheet.Name = "Fichier_Mission" Then
TxtPlage "C:\Export_PCE\Export " & ActiveSheet.Name & ".txt", [A9:G1010] 
End If
End Sub

Sub TxtPlage(ByVal RéfFic As String, ByVal Plg As Range)
Dim Te(), Ts() As String, L&, C&
Te = Plg.Value: ReDim Ts(1 To UBound(Te, 2))
Open RéfFic For Output Access Write As #1
For L = 1 To UBound(Te, 1)
   For C = 1 To UBound(Te, 2): Ts(C) = Te(L, C): Next C
   Print #1, Join(Ts, vbTab): Next L
Close #1

End Sub

Mon probleme se trouve à ce niveau :

TxtPlage "C:\Export_PCE\Export " & ActiveSheet.Name & ".txt", [A9:G1010] 'Ici Sheets("FIRD").[W18].Value = PCE

Avec cette synthaxe je suis obligé d'écrire en dur dans le code le nom du dossier,or c'est exactement ce que je veux éviter.
comment creer le chemin directement par la macro et trouver le dossier en question.

Merci de m'aidez s'il vous plait.