Microsoft 365 Changer le format date dans fichier texte

[Fred999]

Bonjour à tous,

J'espère que vous allez bien
J'appel a l'aide pour mon petit fichier texte que j'ai configuré parce que j'ai un petit souci sur le format de ma date.
Elle s'inscrit dans mon fichier texte 16-12-2019 mais elle devrait être 20191216. (Celles 11)
Est ce que c'est possible de transformer une date directement dans un fichier texte? C'est avec Cdate je pense mais je ne suis pas certain
Je mets mon code ci dessous.
Merci d'avance pour votre aide,
Bien à vous.

Sub Fichier_Texte()
Dim i
Open "C:\Export\Test1.txt" For Output As #1
For i = 1 To 100
Print #1, String(1, "1"); String(1, " "); String(1, "|"); String(1, " ") & Cells(i, 2);
Print #1, String(8, " ") & Cells(i, 7);
Print #1, String(1, " ") & Cells(i, 8);
Print #1, String(5, " ") & Cells(i, 11);
Print #1, String(1, " "); String(1, "-") & Cells(i, 14);
Print #1, String(6, " ") & Cells(i, 17);
Print #1, String(3, " ") & Cells(i, 20);
Print #1, String(3, " ") & Cells(i, 23);
Print #1, String(3, " ") & Cells(i, 26);
Print #1, String(3, " ") & Cells(i, 29);
Print #1, String(3, " ") & Cells(i, 32);
Print #1, ";"
Next i
Close #1
End Sub

 

[James007]

Bonjour,

Pourquoi ne pas opérer ta modification au format Texte que tu désires dans Excel ... avant la création du fichier *.txt ...

 

[Modeste geedee]

Bonjour à tous,

J'espère que vous allez bien
J'appel a l'aide pour mon petit fichier texte que j'ai configuré parce que j'ai un petit souci sur le format de ma date.
Elle s'inscrit dans mon fichier texte 16-12-2019 mais elle devrait être 20191216. (Celles 11)
Est ce que c'est possible de transformer une date directement dans un fichier texte? C'est avec Cdate je pense mais je ne suis pas certain
Je mets mon code ci dessous.
Merci d'avance pour votre aide,
Bien à vous.

Sub Fichier_Texte()
Dim i
Open "C:\Export\Test1.txt" For Output As #1
For i = 1 To 100
Print #1, String(1, "1"); String(1, " "); String(1, "|"); String(1, " ") & Cells(i, 2);
Print #1, String(8, " ") & Cells(i, 7);
Print #1, String(1, " ") & Cells(i, 8);
Print #1, String(5, " ") & Cells(i, 11);
Print #1, String(1, " "); String(1, "-") & Cells(i, 14);
Print #1, String(6, " ") & Cells(i, 17);
Print #1, String(3, " ") & Cells(i, 20);
Print #1, String(3, " ") & Cells(i, 23);
Print #1, String(3, " ") & Cells(i, 26);
Print #1, String(3, " ") & Cells(i, 29);
Print #1, String(3, " ") & Cells(i, 32);
Print #1, ";"
Next i
Close #1
End Sub

(celles 11) ?????????????????
peut-etre :
cellule source ???
Print #1, String(5, " ") & Cells(i, 11).Text;

cellule cible ????
Print #1, String(3, " ") & Cells(i, 32).Text;

??? je ne sais pas ce qu'il y a en Cells(i,11) ni Cells(i,32) ...

 

[Fred999]

Bonjour,

Pourquoi ne pas opérer ta modification au format Texte que tu désires dans Excel ... avant la création du fichier *.txt ...

Bonsoir,
Oui je vais faire cela dans l'Excel avec Texte. Je pensais qu'il y avait moyen de le faire dans le fichier texte directement avec Cdate mais j'ai fais 2-3 tests et même si le format change je n'arrive pas a indiqué le format 20191216 il mets toujours des / ou des - dans la date
Je vais passé par l'Excel , merci du conseil.
Bonne soirée.

 

[Fred999]

(celles 11) ?????????????????
peut-etre :
cellule source ???
Print #1, String(5, " ") & Cells(i, 11).Text;

cellule cible ????
Print #1, String(3, " ") & Cells(i, 32).Text;

??? je ne sais pas ce qu'il y a en Cells(i,11) ni Cells(i,32) ...

Bonsoir,
Oui désolé je n'ai pas été clair dans le code. En faite cells 11 est la colonne qui contient les dates et le 32 ou autre ce sont d'autre infos comme des heures par exemple.
Je pensais que sur la cells 11 je pouvais changé le format date avec Cdate mais je n'arrive pas a faire la date en 20191216 il mets directement 16/12/2019 ou 16-12-2019.
Bref je galère mais je vais voir en passant dans la cellule date de l'Excel avec Texte et j'espère qu'il va la prendre sans la reconfiguré.
Merci pour votre aide en tous les cas.
Bonne soirée.

 

[Modeste geedee]

Bonsoir,
Oui désolé je n'ai pas été clair dans le code. En faite cells 11 est la colonne qui contient les dates et le 32 ou autre ce sont d'autre infos comme des heures par exemple.
Je pensais que sur la cells 11 je pouvais changé le format date avec Cdate mais je n'arrive pas a faire la date en 20191216 il mets directement 16/12/2019 ou 16-12-2019.
Bref je galère mais je vais voir en passant dans la cellule date de l'Excel avec Texte et j'espère qu'il va la prendre sans la reconfiguré.
Merci pour votre aide en tous les cas.
Bonne soirée.

alors :
Print #1, String(5, " ") & format(Cells(i, 11),"yyyymmdd");

 

[Fred999]

alors :
Print #1, String(5, " ") & format(Cells(i, 11),"yyyymmdd");

Bonsoir,
Merci sa fonctionne super bien.
Bonne soirée à vous et encore un grand merci