Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel OpenText et les formats de dates

OpenText et les formats de dates

7 réponses
Avatar
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.
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel.C
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 />
Avatar
Christophe Mathon
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 />
Avatar
Alain
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" a écrit dans le message de news:

Bonjour.
Peux-tu poster ton instruction opentext et un échantillon de dates qui
sont mal transposées ?
Cordialement.
Daniel
"Alain" a écrit dans le message de 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.








Avatar
Alain
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" a écrit dans le message de news:

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" wrote in message
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.








Avatar
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)))
Avatar
Daniel.C
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" a écrit dans le message de news:
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" a écrit dans le message de news:

Bonjour.
Peux-tu poster ton instruction opentext et un échantillon de dates qui
sont mal transposées ?
Cordialement.
Daniel
"Alain" a écrit dans le message de 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.












Avatar
Alain
Ca marche!
Merci beaucoup Modeste :)










"Modeste" a écrit dans le message de news:
%
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)))