Txt vers excel

Y compris Power BI, Power Query et toute autre question en lien avec Excel
b
benibeno
Membre habitué
Membre habitué
Messages : 110
Inscrit le : 20 juillet 2016
Version d'Excel : 2016

Message par benibeno » 3 avril 2019, 17:56

bonjour,

j'essaie de modifier une macro fait par l'enregistreur de macro.

le problème est que le nombre de ligne du ficher est fixe. Est-ce qu'il y a un moyen pour qu'ils soient variable ?
voici la résultante une fois le fichier .txt ouvert avec la méthoe workbooks.open

Range("A1:A19").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=True, 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, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array _
(20, 1)), TrailingMinusNumbers:=True


sinon, j'ai trouvé une autre méthode avec des requêtes, mais je reçois un message à l'ouverture pour actualiser ma requête et je sais que les end users vont être mélangé (encore plus que moi !)

Merci
j
jmd
Fanatique d'Excel
Fanatique d'Excel
Messages : 10'603
Appréciations reçues : 251
Inscrit le : 8 décembre 2007
Version d'Excel : 365 + PowerBI

Message par jmd » 4 avril 2019, 08:31

bonjour

je te propose une solution alternative, faisant appel à une fonctionnalité "récente" d'Excel (10 ans ! )

menu Données/obtenir/de fichier texte
ça ouvre le fichier
"Charger"

facile et efficace, quel que soit le nombre de lignes
tu apprendras dans qq mois toutes les autres possibilités de cette fonctionnalité Power Query.

amitiés
Apprenez les fonctions d'Excel.
Exemple "Mettre sous forme de tableau", TCD, "Récupérer des données".
Apprendre les fonctionnalités "récentes".
Avatar du membre
Xmenpl
Membre impliqué
Membre impliqué
Messages : 2'679
Appréciations reçues : 185
Inscrit le : 16 mai 2018
Version d'Excel : 2003 à 2013

Message par Xmenpl » 4 avril 2019, 08:54

benibeno a écrit :
3 avril 2019, 17:56
bonjour,

j'essaie de modifier une macro fait par l'enregistreur de macro.

le problème est que le nombre de ligne du ficher est fixe. Est-ce qu'il y a un moyen pour qu'ils soient variable ?
voici la résultante une fois le fichier .txt ouvert avec la méthoe workbooks.open

Range("A1:A19").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=True, 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, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array _
(20, 1)), TrailingMinusNumbers:=True


sinon, j'ai trouvé une autre méthode avec des requêtes, mais je reçois un message à l'ouverture pour actualiser ma requête et je sais que les end users vont être mélangé (encore plus que moi !)

Merci
BOnjour,
sans fichier j'ai un peu de mal à comprendre pourquoi la selection "A1:A19" quand tu as enregistré
la macro ? il fallait prendre la colonne entière dès le début. ::o

Recommences ta macro en sélectionnant la colonne A entièrement.
b
benibeno
Membre habitué
Membre habitué
Messages : 110
Inscrit le : 20 juillet 2016
Version d'Excel : 2016

Message par benibeno » 4 avril 2019, 16:10

Salut,

C'est ça mon problème. Quand je sélectionne la colonne "A" et fait convertir mes données, l'enregistreur traduit ça de cette façon.
Tu peux faire le test de ton côté, mais j'arrive toujours à ce résultat.

@JMD: Si j'avais voulu une alternative de ce genre je n'aurais pas écris dans le forum VBA:)
merci
j
jmd
Fanatique d'Excel
Fanatique d'Excel
Messages : 10'603
Appréciations reçues : 251
Inscrit le : 8 décembre 2007
Version d'Excel : 365 + PowerBI

Message par jmd » 4 avril 2019, 17:29

benibeno a écrit :
4 avril 2019, 16:10


@JMD: Si j'avais voulu une alternative de ce genre je n'aurais pas écris dans le forum VBA:)
merci
re

ici c'est aussi le forum Excel (Power Query y est inclus) et d'ailleurs c'est dans le sous-titre :
index.php

amitiés
Apprenez les fonctions d'Excel.
Exemple "Mettre sous forme de tableau", TCD, "Récupérer des données".
Apprendre les fonctionnalités "récentes".
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'379
Appréciations reçues : 670
Inscrit le : 27 août 2012
Version d'Excel : 365 Personnel

Message par Jean-Eric » 4 avril 2019, 19:27

Bonjour,
@ jmd,
Toujours des soucis avec les dates !...
je te propose une solution alternative, faisant appel à une fonctionnalité "récente" d'Excel (10 ans ! )
Power Query est apparu avec Excel 2013 (add in) et rendu rétro compatible avec Excel 2010.
Donc 2019 - 2013 = 6 ans.
Cdlt.
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
j
jmd
Fanatique d'Excel
Fanatique d'Excel
Messages : 10'603
Appréciations reçues : 251
Inscrit le : 8 décembre 2007
Version d'Excel : 365 + PowerBI

Message par jmd » 5 avril 2019, 08:50

re

salut Jean-Eric,
oui, tu as raison. 10 ans c'est le smartphone.
Power Query a 6 ans seulement. Mais ça me semblait une éternité. L'informatique va si vite.

amitiés et bonne journée
Apprenez les fonctions d'Excel.
Exemple "Mettre sous forme de tableau", TCD, "Récupérer des données".
Apprendre les fonctionnalités "récentes".
h
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 9'150
Appréciations reçues : 376
Inscrit le : 16 juin 2013
Version d'Excel : 365 UK Windows 10

Message par h2so4 » 5 avril 2019, 16:35

bonjour,

essaie en changeant ceci
Range("A1:A19").Select
Selection.TextToColumns
par
Range("A:A").TextToColumns
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message