Comment modifier cette macro....

[Christian]

Bonsoir à tout le forum,

J'ai trouvé, sur un site, cette macro pour ouvrir un fichier texte et le mettre en colonne (séparateur .
Elle fonctionne parfaitement, mais pourquoi me transforme-t-elle les dates du fichier texte de façon incohérente ?.

ci-joint fichier texte (à placer sous mes documents) et fichier xls.

Je vous remercie infiniment pour le temps que vous voudrez bien m'accorder.

Bien amicalement,
Christian [file name=MENUSEMAINE_20060301174641.zip size=19387]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/MENUSEMAINE_20060301174641.zip[/file]

 

[PascalXLD]

Bonjour

J'ai modifié un petit truc dans la macro qui ouvre ton txt. Tu dis si ça va [file name=MENUSEMAINE_20060301175812.zip size=16458]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/MENUSEMAINE_20060301175812.zip[/file]

 

[Christian]

Re le forum, Pascal76,

Merci Pascal pour ta réponse et ton travail, mais c'est les dates qui me posent problème, après ouverture et transfert elles ne correspondent plus à celle de fichier texte ?.

a+

Christian

 

[PascalXLD]

Re

tu as verifié en ouvrant un nouveau txt

car moi les dates etaient au bon format et pas décaler comme ton fichier xls

Ce que j'ai fait ne corrige pas ton fichier mais devrait eviter l'erreur lors de l'ouverture d'un nouveau txt

 

[jp14]

Bonsoir Pascal76, Christian

Je n'arrive pas en envoyer dee messages, c'est le 10 ième chaque fois j'ai une erreur du serveur

Excel n'en fait qu'à sa tête.
fichier texte on a 01/03/2006
dans excel cela donne 03/01/2006, par contre si le jour dans le fichier texte est supérieur à 12 la date est correcte.

A+

 

[jp14]

Re Bonsoir

Ci joint le fichier avec des commentaires [file name=MENUSEMAINE_20060301190717.zip size=18066]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/MENUSEMAINE_20060301190717.zip[/file]

 

[PascalXLD]

Re

C'est pour cela que dans la macro j'ai modifié l'ouverture du txt en forçant le format JMA

Bonne soirée

 

[Christian]

Re le forum,jp14 , Pascal76?

Merci à vous deux, pour vous être penchés sur mon problème.
Pascal, à quel niveau sur la macro as-tu rajouter un paramètre pour forcer le fomat JMA ?.

à+

Bien amicalement,
Christian.

 

[PascalXLD]

RE

Sub OuvreTxt()
Workbooks.OpenText Filename:='C:\\Documents and Settings\\x\\Mes documents\\MenuStd.txt', _
Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 4))
End Sub

A la place du 4 tu avais un 1 qui est le format standard tandis que le 4 est le format date JMA

 

[Christian]

Re,

Merci Pascal pour ton éclairage, bonne soirée.

a+

Christian