Sub FichierTexte()
Dim i As Variant, P As Range, fichier As Variant
i = Application.Match(CDbl(Date), [A:A], 0)
If IsError(i) Then MsgBox "Date du jour inexistante...": Exit Sub
Set P = Cells(i, 1).MergeArea
ChDir ThisWorkbook.Path 'dossier affiché, à adapter
fichier = "Fichier texte " & Format(Date, "yyyy-mm-dd")
fichier = Application.GetSaveAsFilename(fichier, "Text Files (*.txt), *.txt")
If fichier = False Then Exit Sub
Open fichier For Output As #1
For i = 1 To P.Rows.Count
Print #1, P(i, 2) & " :" & vbCrLf & P(i, 3) & " - " & P(i, 4) & " - " & P(i, 5) & vbCrLf
Next
Close #1
End Sub