Microsoft 365 Excel avec quelques dates folkloriques

Dudu2

XLDnaute Barbatruc

• 20 Juillet 2022

• #2

Bonjour,
La vraie question est: toutes les dates sont-elles en format anglo-saxon ?
Moi je dirais que oui malgré certaines dates dont on pourrait croire qu'elles sont en JJ/MM/AAAA mais sans doute en format MM/JJ/AAAA car dans un fichier je ne vois pas la raison d'avoir un format anglo-saxon et un format français?

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 20 Juillet 2022

• #3

Bonjour,

Je suis du même avis que Dudu2.

En fait ce qu'il faudrait, c'est voir le fichier source avant importation dans Excel pour vérifier, mais toutes les dates doivent y être en mm/dd/yyyy.

Ce serait donc lors de l'importation qu'il faudrait agir pour que toutes les dates soient importées au même format.



[edit]
Ce que j'ai écrit, c'est au cas où il y a un fichier exporté d'Access, puis importé dans Excel.
Si l'exportation depuis Access crée directement le fichier Excel, c'est différent.
[/edit]

 

Dernière édition: 21 Juillet 2022

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 20 Juillet 2022

• #4

Sinon, perso je ne sais faire qu'avec une fonction personnalisée VBA.
Y a surement moyen avec une formule.

 

Pièces jointes

• Excel PB Dates.xlsm

  45.6 KB · Affichages: 0

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 20 Juillet 2022

• #5

Bonjour,

Vous importer comment ?
Vous avez excel 365, utilisez power query.
Sans la source de données, difficile de vous aider davantage pour l'import

Voici une formule 365 qui récupère la date de C

=LET(
Dte;GAUCHE(C2;TROUVE(" ";C2)-1);
Slash1;TROUVE("/";Dte);
Slash2;TROUVE("/";Dte;Slash1+1);
SIERREUR(DATE(
DROITE(Dte;4);
GAUCHE(Dte;Slash1-1);
STXT(Dte;Slash1+1;Slash2-Slash1-1)*1);C2
))

Cliquez pour agrandir...

Cordialement

 

Pièces jointes

• Excel PB Dates.xlsx

  36.7 KB · Affichages: 2

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 20 Juillet 2022

• #6

Sinon avec une formule à rallonge...

 

Pièces jointes

• Excel PB Dates.xlsx

  40.6 KB · Affichages: 2

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 20 Juillet 2022

• #7

Bonjour,

Une autre proposition pour la colonne B :

Code:

=SI(ESTNUM(B2);DATE(ANNEE(B2);JOUR(B2);MOIS(B2));DATE(DROITE(B2;4);SUBSTITUE(GAUCHE(B2;2);"/";"");GAUCHE(DROITE(B2;7);2)))

Mais c'est n'importe quoi. Il faut traiter le problème lors de l'importation dans Excel, ou lors de l'exportation depuis Access.

 

Dernière édition: 21 Juillet 2022

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 20 Juillet 2022

• #8

hello

un essai par macro qui à mon sens "tombe en marche"
visiblement, toutes les données de date sont bien reconnues comme des dates.. puisqu'il n'y a aucune donnée supprimée (voir code)
MAIS: le résultat montre des dates un coup à droite de la cellule (format date bien reconnu), un coup à gauche de la cellule (il suffit de cliquer et valider pour que la date se déplace à droite..

 

Pièces jointes

• Excel PB Dates.xlsm

  37.1 KB · Affichages: 7

Vote positif 0 Vote négatif

S

Sissou71

XLDnaute Occasionnel

• 21 Juillet 2022

• #9

Merci à tous pour vos retours, je ne peux pas agir sur l'Access en amont mais apparemment c'est lui qui fait un .xls. Je vais donc tester vos solutions.

Merci vraiment

 

Vote positif 0 Vote négatif

S

Sissou71

XLDnaute Occasionnel

• 21 Juillet 2022

• #10

Finalement j'ai eu le responsable du fichier Access, il copie les données qui sont dans la table Access qui m'intéresse, les colle sous Notepad et ensuite les colle dans Excel. Dans notre entreprise nous accédons aux applications sur un Citrix et on pense que c'est le Access de ce citrix qui est paramétré comme cela et ca nous ne pourrons pas le changer. Depuis le passage sur Citrix on ne peut plus coller des données d'Access vers Excel on est obligé de passer par un notepad

 

Dernière édition: 21 Juillet 2022

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 21 Juillet 2022

• #11

Dans ce cas, il vaut mieux qu'il t'envoie le fichier .txt pour que tu puisses faire l'importation correctement.

En plus, ça lui fera une étape en moins, donc moins de travail pour lui.
Et pour toi ce sera plus simple.

 

Vote positif 0 Vote négatif

S

Sissou71

XLDnaute Occasionnel

• 21 Juillet 2022

• #12

TooFatBoy à dit:

Dans ce cas, il vaut mieux qu'il t'envoie le fichier .txt pour que tu puisses faire l'importation correctement.

En plus, ça lui fera une étape en moins, donc moins de travail pour lui.
Et pour toi ce sera plus simple.

Cliquez pour agrandir...

Il n'y a pas de fichier txt, il ouvre une table et il copie puis colle. C'est un vieil access qu'on doit abandonner au profit d'un JIRA mais en attendant on utilise ce viel access

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 21 Juillet 2022

• #13

De toutes façons tu as une solution pour toutes les dates avec une fonction personnalisée en post #4, et une solution pour toutes les dates avec une formule en post #6.
Tu n'as que l'embacha du roi.

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 21 Juillet 2022

• #14

Sissou71 à dit:

Il n'y a pas de fichier txt

Cliquez pour agrandir...

Moi je veux bien qu'il n'y ait pas de fichier .txt, mais tu disais le contraire en #10 :

Sissou71 à dit:

il copie les données qui sont dans la table Access qui m'intéresse, les colle sous Notepad

Cliquez pour agrandir...

Alors, il existe ou pas, ce fichier au final ???

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 21 Juillet 2022

• #15

hello
avec une correction de la macro
je ne récupère que des dates au bon format.

VB:

Sub convertirdate()
Dim TabData() As Variant

With ActiveSheet
    TabData = .UsedRange.Value
End With
For i = LBound(TabData, 1) + 1 To UBound(TabData, 1)
    For j = LBound(TabData, 2) + 1 To UBound(TabData, 2)
        If IsDate(Trim(TabData(i, j))) Then
            TabData(i, j) = CDate(TabData(i, j))
        Else
            TabData(i, j) = IIf(TabData(i, j) <> "", "data Supprimée", TabData(i, j)) 'si le contenu n'est pas reconnu comme date, on remplace par un texte pour éventuellement tracer les pbs
        End If
    Next j
Next i
With Sheets("Données traitées")
    .Cells.Clear
    .Range("A1").Resize(UBound(TabData, 1), UBound(TabData, 2)).FormulaR1C1 = TabData
    .Range("B1").Resize(UBound(TabData, 1), UBound(TabData, 2) - 1).NumberFormat = "dd/mm/yyyy"
End With
End Sub

 

Vote positif 0 Vote négatif