Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

convertir un fichier texte en excel ?

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion assniok
  • 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 !

S'inscrire
A

assniok

XLDnaute Occasionnel
Bonjour a tous,

voila je voulais me faire une petite macro pour automatiser une tache de conversion de fichier assez lourde alors j'ai enregistré une macro en automatique avec la fonction enregistreur de macro...

j'ai alors obtenu une partie de code que j'ai modifié...

cependant, dans mon enregistrement, j'ouvre un fichier bien precis :

Code: 
    Workbooks.OpenText Filename:="C:\DISQUE\TOTO.TXT", Origin:=xlMSDOS, _
        StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(8, _
        1), Array(14, 1), Array(20, 1), Array(26, 1), Array(32, 1), Array(62, 1), Array(70, 1), _
        Array(78, 1), Array(84, 1), Array(92, 1), Array(101, 1), Array(110, 1), Array(119, 1), _
        Array(120, 1)), TrailingMinusNumbers:=True

je voulais donc modifier cela pour que je puisse choisir mon fichier a ouvrir et c'est la que ça ne vas plus...

je ne sais pas utiliser GetOpenFilename avec les propriétés ci dessus...

j'ai bien essayé de faire :

Code: 
    Application.GetOpenFilename ("Text Files (*.txt), *.txt) Origin:=xlMSDOS, _
        StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(8, _
        1), Array(14, 1), Array(20, 1), Array(26, 1), Array(32, 1), Array(62, 1), Array(70, 1), _
        Array(78, 1), Array(84, 1), Array(92, 1), Array(101, 1), Array(110, 1), Array(119, 1), _
        Array(120, 1)), TrailingMinusNumbers:=True

mais sans succes 🙁

avez vous une idée ou un debut de piste qui pourrait m'aiguiller ?

merci d'avance et @++
 
Trier par date Trier par votes
Re : convertir un fichier texte en excel ?

Bonjour

En décomposant cela facilite la mise au point

Code: 
fileToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt")

 Workbooks.OpenText Filename:=fileToOpen, Origin:=xlMSDOS, _
        StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(8, _
        1), Array(14, 1), Array(20, 1), Array(26, 1), Array(32, 1), Array(62, 1), Array(70, 1), _
        Array(78, 1), Array(84, 1), Array(92, 1), Array(101, 1), Array(110, 1), Array(119, 1), _
        Array(120, 1)), TrailingMinusNumbers:=True

A tester

JP
 
Vote positif 0 Vote négatif
Re : convertir un fichier texte en excel ?

ok je vais tester 😉

en effet j'etais justement entrain de me dire que si je faisais mon enregistrement avec mon fichier *.txt deja ouvert dans excel ça me donnerais satisfaction... ça doit correspondre (a quelque chose pres) ta reponse...

@ suivre 🙂
 
Vote positif 0 Vote négatif
Re : convertir un fichier texte en excel ?

bonjour Asniok,

en tête de macro,après la ligne Sub XXXXX(), déclarer la variable fileToOpen comme suit:

Code: 
Dim fileToOpen as String
 
fileToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt")
 
'Si aucun fichier n'a été choisit on sort
If fileToOpen<>"" then Exit sub
 
 Workbooks.OpenText Filename:=fileToOpen, Origin:=xlMSDOS, _
        StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(8, _
        1), Array(14, 1), Array(20, 1), Array(26, 1), Array(32, 1), Array(62, 1), Array(70, 1), _
        Array(78, 1), Array(84, 1), Array(92, 1), Array(101, 1), Array(110, 1), Array(119, 1), _
        Array(120, 1)), TrailingMinusNumbers:=True

A bientôt

[Edition] Hello JP
 
Vote positif 0 Vote négatif
Re : convertir un fichier texte en excel ?

Hasco,

pourrais tu m'expliquer cette condition :

Code: 
'Si aucun fichier n'a été choisit on sort
If fileToOpen<>"" then Exit sub

car si je laisse cette ligne, mon fichier n'est jamais ouvert meme apres l'avoir chosit 🙁

merci 😉
 
Vote positif 0 Vote négatif
Re : convertir un fichier texte en excel ?

Assniok,

Désolé, j'avais fais une erreur s'en m'en rendre compte.
Excuses pour cette perte de temps. Et Merci JP d'avoir corrigé.

A+
 
Vote positif 0 Vote négatif
Re : convertir un fichier texte en excel ?

Hasco à dit:
Assniok,

Désolé, j'avais fais une erreur s'en m'en rendre compte.
Excuses pour cette perte de temps. Et Merci JP d'avoir corrigé.

A+
Cliquez pour agrandir...

aucun pb 😉

en plus je n'ai pas perdu beaucoup de temps, au contraire depuis que je m'informe ici, j'en gagne 😉 (je debute donc...)

encore merci a vous tous pour votre aide 😀
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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ésolu(e)
XL 2019 Intégration d'un fichier ".txt" avec des lignes tabulées
2
Réponses
17
Affichages
474
Oneida
K
  • Question Question
XL 2019 Extraction données avec filtre d'un fichier .txt sur Excel & créer nouveau fichier .txt
Réponses
1
Affichages
3 K
Hasco
F
  • Résolu(e)
XL 2021 Créer Macro permettant d'indexer des nouveaux clients ? [Résolu]
4 5 6
Réponses
82
Affichages
4 K
fanou06
F
Génération de QR Codes
Réponses
9
Affichages
2 K
Rheeem
R
L
  • Question Question
Microsoft 365 Problème erreur range
Réponses
11
Affichages
2 K
LaSimonerie
L
  • Question Question
XL 2010 Une fonction qui sature
Réponses
8
Affichages
2 K
Magic_Doctor
  • Suggestion Suggestion
Date et heure NomJourSemaineTrip
Réponses
9
Affichages
2 K
Magic_Doctor
R
  • Résolu(e)
XL 2019 VBA - Simplifier un code fait par enregistrement
2 3
Réponses
33
Affichages
3 K
Staple1600
  • Question Question
XL 2019 "Améliorer" un code VBA
Réponses
13
Affichages
2 K
bambi
Y
  • Résolu(e)
Microsoft 365 problème importation fichier texte (Unicode(UTF-8)?)
2
Réponses
26
Affichages
5 K
patricktoulon
D
  • Question Question
XL 2013 Macro VBA conversion fichier tsv en csv
2
Réponses
22
Affichages
3 K
Robert
P
  • Résolu(e)
XL 2013 VBA problème de tri entre versions d'Excel
Réponses
2
Affichages
1 K
Ptrs32
P
L
  • Question Question
(RESOLU) Bug date inversée 07/03/1955 - 03/07/1955 ? dans une macro
Réponses
2
Affichages
1 K
LBi
L
D
  • Question Question
XL 2016 [Macro] Copier des valeurs depuis un fichier texte au format "text"
Réponses
2
Affichages
1 K
DylanR
D
A
  • Résolu(e)
XL 2019 Auto compléter une cellule en fonction d'une liste
2
Réponses
25
Affichages
5 K
Angelzeus
A
T
  • Question Question
XL 2016 Macro MFC dates
Réponses
13
Affichages
2 K
toper
T
F
  • Question Question
Microsoft 365 Changer le format date dans fichier texte
Réponses
6
Affichages
2 K
Fred999
F
F
  • Question Question
Microsoft 365 Effacer ligne sans date fichier texte via VBA excel
2
Réponses
26
Affichages
3 K
eriiic
N
  • Question Question
VBA: Récupération données à partir d'un fichier EXCEL
Réponses
2
Affichages
2 K
Narduz
N
C
  • Question Question
Autres VBA Export en fichier TXT delimité - avec Taille & Position
Réponses
9
Affichages
3 K
Dranreb
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…