macro import fichier txt probleme mise ene page date

  • Initiateur de la discussion Initiateur de la discussion Creepy
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Creepy

XLDnaute Accro
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 :

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))
 
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
1 K
Réponses
22
Affichages
3 K
Réponses
9
Affichages
893
Réponses
12
Affichages
1 K
Retour