Problème de format heure pour enregistrer un fichier texte sous Excel

Bonjour forum,

J'ai un petit problème, lorsque que je créer mon fichier texte avec la macro il ne tient absolument pas compte du format heure dans la colonne A de Feuill1 ce qui à la sortie au lieu de 17:49 va me mettre 0,742361111111111 et je voudrais qu'il me conserve le format hh:mm.

De plus je cherche le moyen de donner le nom du fichier qui serait dans une cellule ici en Feuil2 cellule A1.

Merci pour votre aide.

voici le code

Sub test()
Dim fso As Scripting.FileSystemObject
Dim ts As Scripting.TextStream
Dim MaCellule As Range
Dim i As Integer

Set fso = New Scripting.FileSystemObject
Set ts = fso.CreateTextFile("C:\Users\Stef\Desktop\Fichier.txt")
Feuil1.Activate

For Each MaCellule In Range("A3", Range("A3").End(xlDown))

For i = 1 To 23
ts.Write MaCellule.Offset(0, i - 1).Value
If i < 23 Then ts.Write vbTab
Next i
ts.WriteLine
Next MaCellule

ts.Close
Set fso = Nothing
End Sub

Et voici le fichier

Bonjour stepautras

Pour enregistrer le bon format d'une cellule, il faut utiliser ".Text" au lieu de ".Value"

Pour le nom du fichier, un exemple

Dim NomFic as String
NomFic = Sheets("Feuil2").Range("A1")
Set ts = fso.CreateTextFile("C:\Users\Stef\Desktop\" & nomfic)

A+

YES nickel un grand merci BrunoM45

pour le nom du fichier j'ai fais comme cela

Set fso = New Scripting.FileSystemObject
Set ts = fso.CreateTextFile("C:\Users\Stef\Desktop\" & Format(Now(), "DD-MM-YYYY") & "-Fichier23" & ".txt")

Re