OpenText et les formats de dates

Le
Alain
Salut à tous.

Je dois ouvrir de manière automatique un fichier text qui contient des dates
et le placer dans une feuille Excel.
J'utilise donc la méthode OpenText qui fonctionne très bien excepté pour le
traitement des dates qu'il y a dans mon fichier text.
Les dates sont au format européen (jour/mois/année) mais Excel, lors de
l'OpenText, les considère parfois comme des dates américaines
(mois/jour/année).
J'aimerai forcer l'OpenText pour qu'il considère toutes les dates comme des
dates européennes.
Avez-vous une idée ?

Merci d'avance,
Alain de Belgique.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #7024831
Bonjour.<br />
Peux-tu poster ton instruction opentext et un &eacute;chantillon de dates qui sont<br />
mal transpos&eacute;es ?<br />
Cordialement.<br />
Daniel<br />
&quot;Alain&quot; &lt;&gt; a &eacute;crit dans le message de news:<br />
%<br />
<blockquote class="block0"><br />
Salut &agrave; tous.<br />
<br />
Je dois ouvrir de mani&egrave;re automatique un fichier text qui contient des<br />
dates et le placer dans une feuille Excel.<br />
J'utilise donc la m&eacute;thode OpenText qui fonctionne tr&egrave;s bien except&eacute; pour<br />
le traitement des dates qu'il y a dans mon fichier text.<br />
Les dates sont au format europ&eacute;en (jour/mois/ann&eacute;e) mais Excel, lors de<br />
l'OpenText, les consid&egrave;re parfois comme des dates am&eacute;ricaines<br />
(mois/jour/ann&eacute;e).<br />
J'aimerai forcer l'OpenText pour qu'il consid&egrave;re toutes les dates comme<br />
des dates europ&eacute;ennes.<br />
Avez-vous une id&eacute;e ?<br />
<br />
Merci d'avance,<br />
Alain de Belgique.<br />
<br />
<br />
<br />
</blockquote><br />
Christophe Mathon
Le #7025261
Bonjour Alain,<br />
<br />
Tu ne peut pas forcer OpenText &agrave; choisir le fornat de date.<br />
<br />
Par contre, tu peut rajouter des lignes &agrave; ta macro:<br />
&lt;&gt;&lt;&gt;&lt;&gt;&lt;&gt;&lt;&gt;&lt;&gt;&lt;&gt;&lt;&gt;&lt;&gt;&lt;&gt;&lt;&gt;&lt;&gt;&lt;&gt;&lt;&gt;&lt;&gt;&lt;&gt;&lt;&gt;&lt;&gt;&lt;&gt;&lt;&gt;<br />
Sub test()<br />
Workbooks.OpenText Filename:=&quot;test.txt&quot;,<br />
DataType:=XlTextParsingType.xlDelimited, Tab:=True<br />
<br />
Windows(&quot;test.txt&quot;).Activate<br />
For Each cellP In Range(Cells(1, 1), Cells(30, 30))<br />
cellP.Select<br />
<br />
If (Selection.NumberFormat = &quot;m/d/yyyy&quot;) Then<br />
MsgBox Selection.NumberFormat<br />
Selection.NumberFormat = &quot;dd/mm/yyyy;@&quot;<br />
End If<br />
Next<br />
End Sub<br />
&lt;&gt;&lt;&gt;&lt;&gt;&lt;&gt;&lt;&gt;&lt;&gt;&lt;&gt;&lt;&gt;&lt;&gt;&lt;&gt;&lt;&gt;&lt;&gt;&lt;&gt;&lt;&gt;&lt;&gt;&lt;&gt;&lt;&gt;&lt;&gt;&lt;&gt;&lt;&gt;<br />
<br />
Il ne te reste qu'&agrave; modifier le nom du fichier &agrave; ouvrir et changer la zone<br />
dans laquel sont les dates ( j;ai mie de 1,1 &agrave; 30,30)<br />
<br />
Christophe Mathon<br />
<br />
&quot;Alain&quot; &lt;&gt; wrote in message<br />
news:%<br />
<blockquote class="block0"><br />
Salut &agrave; tous.<br />
<br />
Je dois ouvrir de mani&egrave;re automatique un fichier text qui contient des<br />
dates et le placer dans une feuille Excel.<br />
J'utilise donc la m&eacute;thode OpenText qui fonctionne tr&egrave;s bien except&eacute; pour<br />
le traitement des dates qu'il y a dans mon fichier text.<br />
Les dates sont au format europ&eacute;en (jour/mois/ann&eacute;e) mais Excel, lors de<br />
l'OpenText, les consid&egrave;re parfois comme des dates am&eacute;ricaines<br />
(mois/jour/ann&eacute;e).<br />
J'aimerai forcer l'OpenText pour qu'il consid&egrave;re toutes les dates comme<br />
des dates europ&eacute;ennes.<br />
Avez-vous une id&eacute;e ?<br />
<br />
Merci d'avance,<br />
Alain de Belgique.<br />
<br />
<br />
<br />
</blockquote><br />
Alain
Le #7026291
Voici mon code:
Workbooks.OpenText Filename:=nom_fichier, DataType:=xlDelimited, Comma:=True

Voici le début de mon fichier:
0648,01/05/08 00:00,02/05/08 00:00,0001,0001,A
0649,01/05/08 00:00,02/05/08 00:00,0001,0002,B
0650,02/05/08 00:00,03/05/08 00:00,0002,0003,A
0652,03/05/08 00:00,04/05/08 00:00,0003,0005,A
0654,04/05/08 00:00,05/05/08 00:00,0004,0007,A
0659,06/05/08 00:00,07/05/08 00:00,0006,0012,B
0660,07/05/08 00:00,08/05/08 00:00,0007,0013,A
0661,07/05/08 00:00,08/05/08 00:00,0007,0014,B
0662,08/05/08 00:00,09/05/08 00:00,0008,0015,A
0663,08/05/08 00:00,09/05/08 00:00,0008,0016,B
0664,09/05/08 00:00,10/05/08 00:00,0009,0017,A
0665,09/05/08 00:00,10/05/08 00:00,0009,0018,B
0666,10/05/08 00:00,11/05/08 00:00,0010,0019,A
0667,10/05/08 00:00,11/05/08 00:00,0010,0020,B
0668,11/05/08 00:00,12/05/08 00:00,0011,0021,A
0669,11/05/08 00:00,12/05/08 00:00,0011,0022,B
0670,12/05/08 00:00,13/05/08 00:00,0012,0023,A
0671,12/05/08 00:00,13/05/08 00:00,0012,0024,B
0675,14/05/08 00:00,15/05/08 00:00,0014,0028,B

Lors du OpenText, Excel commence par considérer que les date dans le fichier
sont au format mois/jour/année et ce jusqu'à la ligne qui contient la date
12/05/08.
Je me retrouve donc, dans mon classeur Excel avec les dates incorrectes:
5/2/2008
5/2/2008
5/3/2008
5/4/2008
...
5/12/2008

Puis, lorsque Excel arrive à la date 13/5/08, il change sa manière de
convertir - ce qui me semble abhérent - et considère que la date du fichier
est au format jour/mois/année et la suite des dates, dans le classeur Excel
est:
13/5/2008
15/5/2008 ce qui est correct.



"Daniel.C"
Bonjour.
Peux-tu poster ton instruction opentext et un échantillon de dates qui
sont mal transposées ?
Cordialement.
Daniel
"Alain" %
Salut à tous.

Je dois ouvrir de manière automatique un fichier text qui contient des
dates et le placer dans une feuille Excel.
J'utilise donc la méthode OpenText qui fonctionne très bien excepté pour
le traitement des dates qu'il y a dans mon fichier text.
Les dates sont au format européen (jour/mois/année) mais Excel, lors de
l'OpenText, les considère parfois comme des dates américaines
(mois/jour/année).
J'aimerai forcer l'OpenText pour qu'il considère toutes les dates comme
des dates européennes.
Avez-vous une idée ?

Merci d'avance,
Alain de Belgique.








Alain
Le #7026651
Je ne pense pas que ta solution soit sûre car le format est jour/mois/année
même là où j'ai des dates erronées.
Par exemple:
-dans le fichier text, j'ai 2/5/2008
-dans mon Workbook, j'ai 5/2/2008 - ce qui est erroné - avec, comme format
pour cette cellule: jj/mm/aaaa.

A.




"Christophe Mathon"
Bonjour Alain,

Tu ne peut pas forcer OpenText à choisir le fornat de date.

Par contre, tu peut rajouter des lignes à ta macro:
<><><><><><><><><><><><><><><><><><><><>
Sub test()
Workbooks.OpenText Filename:="test.txt",
DataType:=XlTextParsingType.xlDelimited, Tab:=True

Windows("test.txt").Activate
For Each cellP In Range(Cells(1, 1), Cells(30, 30))
cellP.Select

If (Selection.NumberFormat = "m/d/yyyy") Then
MsgBox Selection.NumberFormat
Selection.NumberFormat = "dd/mm/yyyy;@"
End If
Next
End Sub
<><><><><><><><><><><><><><><><><><><><>

Il ne te reste qu'à modifier le nom du fichier à ouvrir et changer la zone
dans laquel sont les dates ( j;ai mie de 1,1 à 30,30)

Christophe Mathon

"Alain" news:%
Salut à tous.

Je dois ouvrir de manière automatique un fichier text qui contient des
dates et le placer dans une feuille Excel.
J'utilise donc la méthode OpenText qui fonctionne très bien excepté pour
le traitement des dates qu'il y a dans mon fichier text.
Les dates sont au format européen (jour/mois/année) mais Excel, lors de
l'OpenText, les considère parfois comme des dates américaines
(mois/jour/année).
J'aimerai forcer l'OpenText pour qu'il considère toutes les dates comme
des dates européennes.
Avez-vous une idée ?

Merci d'avance,
Alain de Belgique.








Modeste
Le #7026951
Bonsour® Alain avec ferveur ;o))) vous nous disiez :

Workbooks.OpenText Filename:=nom_fichier, DataType:=xlDelimited,
Comma:=True



Workbooks.OpenText Filename:=nom_fichier, DataType:=xlDelimited,Comma:=True , Local:=True

il faut utiliser une version EXCEL superieure ou égale à XL2002
l'option LOCAL n'existait pas avant


--
--
@+
;o)))
Daniel.C
Le #7026921
Essaie cette ligne en remplaçant le nom et le chemin du fichier; la valeur 4
dans "Array(2, 4)" et "Array(3, 4)" signifie que tu veux la date au format
JMA dans le deuxième et le troisième champ :

Workbooks.OpenText Filename:="E:DonneesDanielmpfetest.txt", Origin:=
_
xlMSDOS, StartRow:=1, DataType:=xlDelimited,
TextQualifier:=xlDoubleQuote _
, ConsecutiveDelimiter:úlse, Tab:úlse, Semicolon:úlse, Comma:=
_
True, Space:úlse, Other:úlse, FieldInfo:=Array(Array(1, 1),
Array(2, 4), _
Array(3, 4), Array(4, 1), Array(5, 1), Array(6, 1)),
TrailingMinusNumbers:=True

Daniel
"Alain" ulnM%
Voici mon code:
Workbooks.OpenText Filename:=nom_fichier, DataType:=xlDelimited,
Comma:=True

Voici le début de mon fichier:
0648,01/05/08 00:00,02/05/08 00:00,0001,0001,A
0649,01/05/08 00:00,02/05/08 00:00,0001,0002,B
0650,02/05/08 00:00,03/05/08 00:00,0002,0003,A
0652,03/05/08 00:00,04/05/08 00:00,0003,0005,A
0654,04/05/08 00:00,05/05/08 00:00,0004,0007,A
0659,06/05/08 00:00,07/05/08 00:00,0006,0012,B
0660,07/05/08 00:00,08/05/08 00:00,0007,0013,A
0661,07/05/08 00:00,08/05/08 00:00,0007,0014,B
0662,08/05/08 00:00,09/05/08 00:00,0008,0015,A
0663,08/05/08 00:00,09/05/08 00:00,0008,0016,B
0664,09/05/08 00:00,10/05/08 00:00,0009,0017,A
0665,09/05/08 00:00,10/05/08 00:00,0009,0018,B
0666,10/05/08 00:00,11/05/08 00:00,0010,0019,A
0667,10/05/08 00:00,11/05/08 00:00,0010,0020,B
0668,11/05/08 00:00,12/05/08 00:00,0011,0021,A
0669,11/05/08 00:00,12/05/08 00:00,0011,0022,B
0670,12/05/08 00:00,13/05/08 00:00,0012,0023,A
0671,12/05/08 00:00,13/05/08 00:00,0012,0024,B
0675,14/05/08 00:00,15/05/08 00:00,0014,0028,B

Lors du OpenText, Excel commence par considérer que les date dans le
fichier sont au format mois/jour/année et ce jusqu'à la ligne qui contient
la date 12/05/08.
Je me retrouve donc, dans mon classeur Excel avec les dates incorrectes:
5/2/2008
5/2/2008
5/3/2008
5/4/2008
...
5/12/2008

Puis, lorsque Excel arrive à la date 13/5/08, il change sa manière de
convertir - ce qui me semble abhérent - et considère que la date du
fichier est au format jour/mois/année et la suite des dates, dans le
classeur Excel est:
13/5/2008
15/5/2008 ce qui est correct.



"Daniel.C"
Bonjour.
Peux-tu poster ton instruction opentext et un échantillon de dates qui
sont mal transposées ?
Cordialement.
Daniel
"Alain" %
Salut à tous.

Je dois ouvrir de manière automatique un fichier text qui contient des
dates et le placer dans une feuille Excel.
J'utilise donc la méthode OpenText qui fonctionne très bien excepté pour
le traitement des dates qu'il y a dans mon fichier text.
Les dates sont au format européen (jour/mois/année) mais Excel, lors de
l'OpenText, les considère parfois comme des dates américaines
(mois/jour/année).
J'aimerai forcer l'OpenText pour qu'il considère toutes les dates comme
des dates européennes.
Avez-vous une idée ?

Merci d'avance,
Alain de Belgique.












Alain
Le #7032921
Ca marche!
Merci beaucoup Modeste :)










"Modeste" %
Bonsour® Alain avec ferveur ;o))) vous nous disiez :

Workbooks.OpenText Filename:=nom_fichier, DataType:=xlDelimited,
Comma:=True



Workbooks.OpenText Filename:=nom_fichier, DataType:=xlDelimited,Comma:=True
, Local:=True

il faut utiliser une version EXCEL superieure ou égale à XL2002
l'option LOCAL n'existait pas avant


--
--
@+
;o)))
Publicité
Poster une réponse
Anonyme