Problème de format date (import différents fichiers)

Version imprimable

Bonjour,

J'utilise un code pour importer mes fichiers dans un seul fichier. J'ai cependant un problème régulier sur les dates.

> en effet mes dates dans la même colonne (du meme fichier importé) ne se mette pas toujours au même format et inverse les mois avec les jours

Ainsi je peux me retrouver avec un date dd/mm/yyyy et mm/dd/yyyy. soit le 12/06/2019 devient 06/12/2019.

Comment y remédier?

Merci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub consolide_EXPORT()
'importer des BDD dans un seul fichier
'ajouter la Sub sup()
'cela importe les données dans des feuilles du classeur
 
  ChDir ActiveWorkbook.Path
  Set classeurMaitre = ActiveWorkbook
  'sup
  nf = Dir("*missions*")
  Do While nf <> ""
      Workbooks.Open Filename:=nf
      Nom_onglet = Right(nf, 24)
      Sheets(1).Copy After:=classeurMaitre.Sheets(classeurMaitre.Sheets.Count)
      classeurMaitre.Sheets(classeurMaitre.Sheets.Count).Name = Nom_onglet
      Workbooks(nf).Close False
      nf = Dir     ' classeur suivant
  Loop
  Sheets(1).Select
End Sub
 
Sub sup()
'importer des BDD dans un seul fichier
'ajouter la Sub consolide classeur()
'cela importe les données dans des feuilles du classeur
 
  Application.DisplayAlerts = False
  If Sheets.Count > 1 Then
    Sheets("Feuil1").Move Before:=Sheets(1)
    Sheets(2).Select
    For i = 2 To Sheets.Count
      ActiveSheet.Delete
    Next i
  End If
End Sub

12/06/2019, 16h14
Menhir

Je ne vois pas trop comment les données pourraient être altérées avec une copie d'onglet... :koi:
Il n'y a pas un détail que tu aurais oublié ?
12/06/2019, 16h56
Fdc_53

je viens de vérifier mes fichiers importés sont au format:
*.txt est cela le problème
12/06/2019, 17h50
Menhir

Ne les ouvre pas avec Open mais avec OpenText qui te permet de mieux contrôler la nature des données importées, en particulier les dates.
https://docs.microsoft.com/fr-FR/off...books.opentext
12/06/2019, 18h09
Fdc_53

Cela ne fonctionne pas:

j'ai des cellules qui se mettent automatiquement en format standard = celle-ci ok la date correspond
Par contre les autres se mettent en format date celle ci elles m'inverses mois et jour

Dans mon fichier de base elles sont toutes au format date

SI je fais un copier coller de la feuille en valeurs + je change le format de la colonne en date pas de problème.

Mais ce n'est pas ce que je veux.
12/06/2019, 18h27
78chris

Bonjour à tous

Si, cela fonctionne si on précise correctement XlColumnDataType pour les colonnes dates...

Probablement MJA dans ton cas...

XlColumnDataType, énumération
Indique la manière dont une colonne doit être analysée.
Informations sur la version
Version ajoutée : Excel 2007

Nom Valeur Description
xlDMYFormat 4 Format de date JMA.
xlDYMFormat 7 Format de date JAM.
xlEMDFormat 10 Format de date AMJ.
xlGeneralFormat 1 Général.
xlMDYFormat 3 Format de date MJA.
xlMYDFormat 6 Format de date MAJ.
xlSkipColumn 9 La colonne n'est pas analysée.
xlTextFormat 2 Texte.
xlYDMFormat 8 Format de date AJM.
xlYMDFormat 5 Format de date AMD
12/06/2019, 18h40
Fdc_53

Merci, je ne vois pas ou préciser que je veux les données en xlDMYFormat 4 et comment ecrire la commande
12/06/2019, 18h56
Menhir

Citation:

Envoyé par Fdc_53

Cela ne fonctionne pas:

Paramétrer correctement un OpenText, c'est sûr que ça prend plus de 10 min... :?

Citation:

Dans mon fichier de base elles sont toutes au format date

Si ton fichier source est un txt, je ne pense pas que tes format puissent être au format date.
Par définition, tout ce qui est dans un txt, c'est du texte.
13/06/2019, 11h36
Fdc_53

Bonjour,

Opentext, dépasse mon niveau de VBA :-(, pas réussi.

Concernant mon fichier de base. Il s'agit d'un export d'un logiciel. le format est excel enregistré en : Texte(séparateur:tabulation)(*.txt).
Effectivement c'est lorsque je les importent dans mon fichier qu'elles ne se mettent pas toutes au meme format.
13/06/2019, 12h06
Menhir

Citation:

Envoyé par Fdc_53

Opentext, dépasse mon niveau de VBA :-(, pas réussi.

Utilise l'enregistreur de macro.
Si tu fais la manipulation correctement en utilisant les bons paramètres, il te donnera 90% du code.

Citation:

Concernant mon fichier de base. Il s'agit d'un export d'un logiciel. le format est excel enregistré en : Texte(séparateur:tabulation)(*.txt).

Une fois exporté en "txt", le fichier n'a plus rien à voir avec Excel, c'est du texte pur qu'on peut ouvrir avec le Notepad.
Il ne contient aucun format, aucune formule et aucune mise en page. Il ne contient que des valeurs et éventuellement des séparateurs.

Citation:

Effectivement c'est lorsque je les importent dans mon fichier qu'elles ne se mettent pas toutes au meme format.

Non, c'est à l'enregistrement en "txt".
Ouvre ton fichier txt avec le Notepad et tu comprendras.