Pb de formatage de date inférieure au 12 de chaque mois sur une macro

[your majesty]

Bonjour,

Je vous demande de l'aide car j'ai un problème au sujet des dates inférieures à 12 qui s'inversent.
En fait, je souhaite fusionner des fichiers excel formatés de la même façon qui comportent des dates en un fichier excel dans un seul onglet, tout fonctionne bien sauf la date.

Pourriez vous me donner un coup de main pour que mes champs date restent standard.

Voici la macro qui a été réalisée :
Sub recup()
Application.DisplayAlerts = False
Range("A3").Select 'sélectionner la cellule de début
Chemin = "Y:\Labo\test\" 'saisir le chemin complet du dossier où se trouvent les fichiers
Fichier = Dir(Chemin & "*.xlsx") ' Premier fichier
CopyTargetBookmark = 1
Do While Fichier <> ""
Workbooks.Open Filename:=Chemin & Fichier, Local:=True
ActiveWorkbook.Worksheets(1).Range("A3", "P" & Sheets("Bon de commande").Range("A1000").End(xlUp).Row).Copy
ActiveWorkbook.Close savechanges:=False
ThisWorkbook.Activate
Range("A" & CopyTargetBookmark).Select
ActiveSheet.Paste
CopyTargetBookmark = 1 + ActiveWorkbook.Worksheets(1).UsedRange.Rows.Count
Fichier = Dir ' Fichier suivant
Loop
End Sub

Je croise les doigts pour la solution.

Maxx

 

[your majesty]

Re : Pb de formatage de date inférieure au 12 de chaque mois sur une macro

UP s'il vous plaît