Discussion :

[Fdc_53]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

Je ne vois pas trop comment les données pourraient être altérées avec une copie d'onglet...
Il n'y a pas un détail que tu aurais oublié ?

[Fdc_53]

je viens de vérifier mes fichiers importés sont au format:
*.txt est cela le problème

[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

[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.

[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

[Fdc_53]

Merci, je ne vois pas ou préciser que je veux les données en xlDMYFormat 4 et comment ecrire la commande

[Menhir]

Cela ne fonctionne pas:

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

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.

[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.

[Menhir]

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.

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.

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.