Comment modifier cette macro....

  • Initiateur de la discussion Initiateur de la discussion Christian
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

C

Christian

Guest
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]
 

Pièces jointes

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
 
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
 
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+
 
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.
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Retour