Problème d'enregistrement en .txt

[Matthieu]

Bonjour. J'arrive à enregistrer une feuille en .txt, mais j'ai un problème quand je déclare le nom d'enregistrement comme variable... le message d'erreur est : 'attendu: ='
Voici le code que j'utilise:

Sub essai()
Worksheets(5).Select
Dim NomTxt As String
NomTxt = (ActiveWorkbook.Name & ActiveSheet.Name)
ActiveWorkbook.SaveAs ('D:\\'& NomTxt.txt,_ FileFormat:=xlText)
End Sub

Je vous serai reconnaissant d'éclairer ma lanterne!