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