Discussion :

[Jean-luc79]

Bonjour

J'ai un problème de date lors d'une extraction de donnée dans un logiciel


Voici la macro:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Public Sub Auto_Open()
Dim ObMemostar As Object
Set ObMemostar = CreateObject("Panorama.Pegase")
ObMemostar.LireContexte "MarArr.peg"
ObMemostar.CopierListe
Workbooks.Open Filename:= _
        "C:\Documents and Settings\MEMOSTAR\MES Documents\Arrets_broyeursV2.xls"
Workbooks("Arrets_broyeursV2.xls").Activate
ActiveSheet.Paste Destination:=Worksheets("Extraction Pegase").Range("A2")

J'obtiens cette extraction avec la macro (le mois et le jour sont inversé)

E15M0550 E16M0550 E17M0537 E18M0537 E09M0599
12/06/2016 5:00 1 1 0 0 1
12/06/2016 5:01 1 1 0 0 1
12/06/2016 5:02 1 1 0 0 1
12/06/2016 5:03 1 1 0 0 1
12/06/2016 5:04 1 1 0 0 1
12/06/2016 5:05 1 1 0 0 1
12/06/2016 5:06 1 1 0 0 1
12/06/2016 5:07 1 1 0 0 1
12/06/2016 5:08 1 1 0 0 1
12/06/2016 5:09 1 1 0 0 1
12/06/2016 5:10 1 1 0 0 1

Extraction lancée sans la macro (bonne disposition de la date)

06/12/2016 5:00 1 1 0 0 1
06/12/2016 5:01 1 1 0 0 1
06/12/2016 5:02 1 1 0 0 1
06/12/2016 5:03 1 1 0 0 1
06/12/2016 5:04 1 1 0 0 1
06/12/2016 5:05 1 1 0 0 1
06/12/2016 5:06 1 1 0 0 1
06/12/2016 5:07 1 1 0 0 1
06/12/2016 5:08 1 1 0 0 1
06/12/2016 5:09 1 1 0 0 1
06/12/2016 5:10 1 1 0 0 1
06/12/2016 5:11 1 1 0 0 1


Merci pour votre aide

[parmi]

Bonjour,

Une fois dans Excel, tu peux convertir tes dates (une fois seulement)
Tu sélectionnes ta colonne de dates, puis tu vas dans le menu Données > Convertir.
Tu cliques 2 fois Suivant et tu sélectionnes MJA dans la liste déroulante des dates, qui est le format qui est affiché.
Ça devrait te transformer ces dates dans ton format par défaut.

NB: ne pas le refaire 2 fois...

[Jean-luc79]

Bonjour

Appliqué mais sans succès

J'ai essayé de remplacer les dates par la formule MAINTENANT() qui finalement ne change pas ainsi que les heures (j'extrais toujours la même liste --> Date + toutes les minutes sur 24h à J-1)

Formule Maintenant()-1          Heure              Date+Heure

07/12/16	                              5:00             7/12/16 13:13
07/12/16	                              5:01             7/12/16 13:14

Mais quand je récupère les deux infos Date + Heure je ne comprends pas je devrai avoir:

07/12/16

[Jean-luc79]

Bonjour

Appliqué mais sans succès

J'ai essayé de remplacer les dates par la formule MAINTENANT() qui finalement ne change pas ainsi que les heures (j'extrais toujours la même liste --> Date + toutes les minutes sur 24h à J-1)

 Formule Maintenant()-1           Heure
 07/12/16                                5:00

Mais quand je récupère les deux infos Date + Heure il me donne:

7/12/16 13:13

au lieu de :

07/12/16 5:00

Pourquoi l'heure n'est pas bonne?

[parmi]

Si tu veux la date seulement, utilise Aujourdhui() plutôt que Maintenant()

Ceci dit, ma méthode aurait dû fonctionner...(?)

[Jean-luc79]

Bonjour,

Une fois dans Excel, tu peux convertir tes dates (une fois seulement)
Tu sélectionnes ta colonne de dates, puis tu vas dans le menu Données > Convertir.
Tu cliques 2 fois Suivant et tu sélectionnes MJA dans la liste déroulante des dates, qui est le format qui est affiché.
Ça devrait te transformer ces dates dans ton format par défaut.

NB: ne pas le refaire 2 fois...

Je te remercie pour ton aide ma macro fonctionne avec AUJOURDUI
Par contre je n'ai pas bien compris la solution avec convertir (je ne l'ai certainement pas bien utilisée)
lorsque j'ai sélectionné JMA dans la liste déroulante des dates (JMA= jour /mois/ année je suppose)
l'ordre des dates dans ma colonne ne s'est pas modifié il est resté en MJA

Cordialement

[parmi]

Si la date affichée est au format MJA (mois jour année) tu dois sélectionner MJA dans la liste.
Excel va se charger de la transformer comme il se doit selon ton système.

Il s'agit en fait de dire à Excel dans quel format la date est inscrite et non pas comme tu la veux...

[Jean-luc79]

Merci pour ce complément d'information et pour votre aide

Bon weekend