macro import fichier txt probleme mise ene page date

[Creepy]

Bonjour le Forum,

Tout d'abord j'ai fait une recherche mais j'ai rien trouvé donc je m'adresse à vous.

J'importe un fichier TXT vers une feuille excel, via macro. C'est une procédure simple avec délimiteur "tab".

Le probleme se situe au niveau des colonnes de dates. Quand le jour est inferieur à 12, il m'inverse le jour et le mois, sinon la date est au bon format.

En faites pour les dates avec un jour inferieur à 12, Excel me les convertit automatiquement au format date. Celles supérieur à 12, il me les laisse en texte, ce qui me donne par exemple :
- 29/11/08 en texte pas de souci
- 12/01/2008 au format date au lieu de 01/12/08 en format texte.

j'ai beau forcer dans mon code le format de l'import en xlTextFormat, riens n'y fait

Ma question :

Avez-vous une solution pour desctiver cette convertion automatique, je trouve pas ?
J'ai cherché via application. mais j'ai rien trouvé.

Merci d'avance de vos réponses

Creepy

Ci dessous mon code :

Workbooks.OpenText RepertoireCourant & "\" & FICHIER_TEXTE_SOURCE _
        , Origin:=xlWindows, _
        StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
        , Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
        Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), _
        Array(10, xlTextFormat), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1))

 

[tototiti2008]

Re : macro import fichier txt probleme mise ene page date

Bonjour Creepy,

et en remplaçant xlTextFormat par 4, ça donne quoi ?
4, ça veut dire une date au format JMA

 

[Creepy]

Re : macro import fichier txt probleme mise ene page date

Bonjour,

J'ai trouvé en forcant en mode text. bizarrement quand je mets xlTextFormat, cela ne fonctionne pas, mais quand je mets 4 (l'equivalent), cela passe !!

Bizarre enfin bon ca fonctionne !

Merci tototiti2008 pour sa réponse.

Creepy

 

[your majesty]

Re : macro import fichier txt probleme mise ene page date

Bonjour,

Je vous demande de l'aide car j'ai un problème similaire 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