Exporter feuille en .txt vers un chemin désigné (avec timestamp)

Hello,

J'ai récupéré un macro sur le net que j'essaye d'adapter à mon besoin mais je fais mal quelque chose

Je voudrais cependant rajouter un timestamp dans le nom du fichier. Si je remplace

FILEABC & Format(now, "yyyymmdd") & ".txt

par

FILEABC.txt

cela fonctionne.

Sub TXT()
Dim columnA As Variant

With Worksheets("ORIGINE")
columnA = Application.Transpose(.Range("A1", .Cells(.Rows.Count, "A").End(xlUp)).Value)
End With

Open "C:\Temp\FILEABC & Format(now, "yyyymmdd") & ".txt" For Output As #1
Print #1, Join(columnA, vbCrLf)
Close #1

End Sub

Comment rajouter la date dans le nom du fichier?

Merci bcp

Bonjour, manque guillemets aprés le C de FILEABC

Open "C:\Temp\FILEABC" & Format(now, "yyyymmdd") & ".txt" For Output As #1
Print #1, Join(columnA, vbCrLf)

Ah zut, j'ai loupé le coche -_-'

Merci :)