XL 2019 Changement de format lors d'export de dates dans autre feuille

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 13 Octobre 2021

• #2

Bonsoir Thespeedy20,
Effectivement c'est bizarre, et sans raison apparente.
Une solution de contournement est de remettre le bon format :

VB:

    With Sheets("Feuil2").Range("A1").Resize(UBound(a, 1), UBound(a, 2))
        .Value = a
        .Columns("A:A").NumberFormat = "dd-mm-yyyy"
    End With

Ca n'explique pas mais ça résout.

 

Vote positif 0 Vote négatif

T

thespeedy20

XLDnaute Occasionnel

• 13 Octobre 2021

• #3

Bonsoir sylvanu,

Merci pour ce contournement...

Je constate aussi que parfois, il y a une inversion (format américain), c'est de plus en plus bizarre. Ce n'est pas pour toutes les dates !!!

Exemple ligne 55 : 02-09-2012 sur feuille WO et après export 09-02-2012 sur le feuille2

OLi

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 13 Octobre 2021

• #4

De plus mon astuce ne marche pas pour la ligne 55 puisqu'XL considère que 09-02 est une date cohérente.

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 14 Octobre 2021

• #5

Bonjour à tous

Je ne vois pas l'intérêt de passer par un array pour une simple copie.

Cette unique ligne suffit

VB:

Sheets("Wo").Range("A1").CurrentRegion.Copy Destination:=Sheets("Feuil2").Range("A1")

Sur la feuille 1 ce ne sont pas des dates mais des textes.
En utilisant value, Excel recalcule la valeur de la cellule et, quand il le peut, l’interprète comme date et comme on est en VBA, toute date est évaluée au format US.

Si à la main tu te places dans une cellule de la feuille 1 et revalide sont contenu sans le modifier, Excel va aussi transformer en date mais hors VBA, au format habituel.

Si tu tiens à ton array

VB:

Sub Recopie()
Dim a
    With Sheets("Wo").Range("A1").CurrentRegion
        a = Application.Index(.Value, Evaluate("row(1:" & _
            .Rows.Count & ")"), Array(1))
            For i = 2 To UBound(a)
                a(i, 1) = CDate(Replace(a(i, 1), "-", "/"))
            Next i
    End With
    With Sheets("Feuil2").Range("A1").Resize(UBound(a, 1), UBound(a, 2))
        .NumberFormat = "dd-mm-yyyy"
        .Value = a
    End With
End Sub

 

Dernière édition: 14 Octobre 2021

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 14 Octobre 2021

• #6

RE

@sylvanu : tu n'a pas vu que j'avais édité mon post...

Je pense que la question à traiter en priorité est pourquoi ces textes en feuille1 car il est toujours préférable de régler les problèmes à la source...

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 14 Octobre 2021

• #7

Oups! sorry.
Il y a vraiment un problème de refresh sur XLD.
Message supprimé.

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 14 Octobre 2021

• #8

RE

Ce n'était pas grave, à une virgule près on était sur la même longueur d'onde sur le code .

C'est vrai que l'avertissement de MAJ est souvent absent...

 

Vote positif 0 Vote négatif

T

thespeedy20

XLDnaute Occasionnel

• 14 Octobre 2021

• #9

Bonjour sylvanu, chris

Je vous remercie de vous intéresser à mon problème... les dates sont extraites d'un logiciel tiers apparemment sous format texte, je vais contacter le concepteur afin qu'il règle le problème...

Merci à vous deux pour l'aboutissement ... de la résolution de ce problème

OLi

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 14 Octobre 2021

• #10

Bonjour

Tu peux sans doute régler le problème en 3 clics avec PowerQuery intégré à ta version Excel

Le fichier est extrait en quel format ? Csv ? Excel ?

Il n'a qu'une colonne ou tu as simplifié ?

 

Vote positif 0 Vote négatif

T

thespeedy20

XLDnaute Occasionnel

• 14 Octobre 2021

• #11

re,

Il sort en format excel et effectivement une colonne que j'ai simplifié

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 14 Octobre 2021

• #12

RE

Si tu veux qu'on modélise en PowerQuery, il faut donc un exemple représentatif car à peine aura-t-on réglé sur le cas simplifié que tu reviendras pour le reste...

 

Vote positif 0 Vote négatif