XL 2016 Macro MFC dates

[toper]

Bonjour @ tous,
j'ai parcouru le net et le fofo sans trouver de réponse à ma question, mais je m'excuses si la question a déja eté posée et/ou résolue...
J'essaie de créer une petite macro toute simple qui va chercher un fichier csv, puis dans la colonne contenant les dates, je veux qu'il me mette en évidence (via la MFC) les dates antérieures à 30 jours.
Le problème est que la MFC fonctionne bien quand je la créé, mais lorsqu'elle s'exécute avec la macro, celle ci me fait la fameuse inversion jour/mois sur certaines dates. Par exemple 10/01/20018 devient 01/10/2018.
Je suis bien en Français dans les options régionales de Windows.
Voudriez-vous le code VBA ?
[EDIT] je vous met me code:

Sub Macro3()
'
' Macro3 Macro
'

'
    Workbooks.OpenText Filename:="\\xxxxxx\yyyyy\zzz.csv", Origin:= _
        xlWindows, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, _
        1), Array(11, 1), Array(61, 1), Array(63, 1), Array(73, 1), Array(83, 1), Array(92, 1)), _
        TrailingMinusNumbers:=True
    Range("E4:E51").Select
    Selection.NumberFormat = "m/d/yyyy"
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
        Formula1:="=AUJOURDHUI()-30", Formula2:="=AUJOURDHUI()-300"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Bold = True
        .Italic = True
        .Color = -16776961
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
End Sub

Même si je précise le format date jj/mm/aaaa, il me le transforme en m/d/yyyy....
Merci d'avance 🙂

[EDIT2]: j'ai mis le format de date personnalisé jj/mm/aa qui correspond bien maintenant à dd/mm/yy en VBA, mais la MFC ne s’applique plus 🙁

 

[Lone-wolf]

Bonjour toper et bienvenue sur XLD 🙂

Pour une aide plus éfficace joint le fichier ou montre-nous la macro.

 

[toper]

Merci 🙂
J'ai édité mon 1er post.

 

[toper]

up 🙂

 

[gosselien]

Bonjour,

et si tu envoyais une partie du fichier (anonymisé) ?

P.

 

[toper]

Ben... j'ouvre un fichier Excel vierge à partir du quel j’exécute cette macro. Vous voulez le fichier en sortie de macro ?

 

[gosselien]

Ben... j'ouvre un fichier Excel vierge à partir du quel j’exécute cette macro. Vous voulez le fichier en sortie de macro ?

Le fichier csv serait utile 🙂

 

[toper]

dak dak. Je vous ai joint le fichier que j'importe, la macro, et le fichier que j'obtiens en sortie.

Sub Macro1()
'
' Macro1 Macro
'

'
    Workbooks.OpenText Filename:="\\ppsibeserv\Informatique\bkp.csv", Origin:= _
        xlWindows, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, _
        1), Array(11, 1), Array(61, 1), Array(63, 1), Array(73, 1), Array(83, 1), Array(92, 1)), _
        TrailingMinusNumbers:=True
    Range("E4:E51").Select
    Selection.NumberFormat = "m/d/yyyy"
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
        Formula1:="=AUJOURDHUI()-30"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Bold = True
        .Italic = True
        .Color = -16776961
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    ChDir "C:\Users\buenadg\Desktop"
    ActiveWorkbook.SaveAs Filename:="C:\Users\buenadg\Desktop\bkpresult.xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.SmallScroll Down:=9
    Windows("PERSONAL.XLSB").Activate
    Application.WindowState = xlNormal
    Windows("bkpresult.xlsx").Activate
End Sub

 

[gosselien]

2e fichier vide...
Sur celui ci, bkp.csv les dates semblent correctes non ?

 

[toper]

le fichier de sortie non vide 🙂
Les dates SEMBLENT bonnes et le fichier de sortie est bon lorsque j'enregistre la macro.
Ensuite je ferme le fichier, j'enregistre ma macro dans mes macros perso, et quand je la lance, elle me décale les dates (regarde en E5) Et la MFC se joue n'importe comment

 

[gosselien]

Peux tu NE PAS zipper les fichiers svp !

 

[toper]

j'aimerais bien, mais il me dit que "Le fichier téléversé n'a pas une extension autorisée" sinon !

 

[gosselien]

re,

bon ça restera un mystère pour moi les "-" restent et la date est à l'envers aussi , no comprendo , sorry
d'autres ici interviendront j'espère 🙁

P.

 

[toper]

up ?