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