Importation de fichier TEXTE dans excel

  • Initiateur de la discussion Initiateur de la discussion cashern
  • 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 !

C

cashern

Guest
Bonjour,

Voila, cela fait maintenant pret de 3 jours que je cherche une solution a mon probleme de recuperation de fichier TEXTE😕 😕 😕

Je m'explique, je recupere un fichier texte avec environ 2000 points jusque la rien de grave... mais le probleme est que dans mon fichier TEXTE les points sont en lignes et quand je l ouvre avec Excel il me met tout dans la meme cellule 🙄
Ce que je voudrais c'est que ces lignes soit sous formes de colonnes

je pense les recuperer avec une macro et les transformer directement.

Je laisse un exemple de ce que j ai et de ce je cherche a avoir

je ne sais plus ou chercher ..
Merci de vos reponses
 

Pièces jointes

Dernière modification par un modérateur:
Re : Importation de fichier TEXTE dans excel

Bonjour,

Je ne comprends pas comment on passe du "avant" au "après"!
Quelle est la logique de la transformation? Pourrais tu apporter quelques précisions? Merci.

Yan
 
Re : Importation de fichier TEXTE dans excel

Bonjour Cashern, Pyrof, Yan

autre solution, afin de transposer directement les données numériques sur une feuille Excel, libre adaptation d'un code de MichelXld (encore Merci à lui 🙂 ) dans le wiki :
https://www.excel-downloads.com/thr...oter-dautres-applications-depuis-excel.92359/

Code:
Sub lireFichierTexte()
Dim infosLigne As String
Dim i As Integer, x As Integer
Dim Tableau() As String
Open "C:\MesDocuments\Excel\Test\Avant_macro.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, infosLigne
If Len(infosLigne) > 50 Then
i = i + 1
Tableau = Split(infosLigne, " ")
For x = 0 To UBound(Tableau)
Cells(x + 1, i) = Tableau(x)
Next
End If
Loop
Close #1
End Sub

bon après midi
@+
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
15
Affichages
989
Retour