Microsoft 365 Changer le format date dans fichier texte

Fred999 à dit:

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

Cliquez pour agrandir...

James007 à dit:

Bonjour,

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

Cliquez pour agrandir...

Modeste geedee à dit:

(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) ...

Cliquez pour agrandir...

Fred999 à dit:

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.

Cliquez pour agrandir...

Modeste geedee à dit:

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

Cliquez pour agrandir...