Import de données sur excel
Résolu/Fermé
A voir également:
- Import de données sur excel
- Liste déroulante excel - Guide
- Formule excel - Guide
- Si et excel - Guide
- Aller à la ligne sur excel - Guide
- Mise en forme conditionnelle excel - Guide
1 réponse
leplot
Messages postés
191
Date d'inscription
lundi 1 décembre 2008
Statut
Membre
Dernière intervention
13 août 2015
130
17 avril 2009 à 11:58
17 avril 2009 à 11:58
Bonjour,
voici un vba à coller dans un module
Il faut changer le chemin du fichier original. La macro écrit dans la feuille active. Il est possible de pointer sur une feuille donnée.
voici un vba à coller dans un module
Sub SplitFichierEDIT() Dim objFSO, objEDI Dim Ligne, Champ, RangChamp, NewLigne Dim FichierExcel, Feuille Const ForReading = 1 Const ForWriting = 2 'Définition du fichier EDI Set objFSO = CreateObject("Scripting.filesystemobject") Set objEDI = objFSO.opentextfile("D:\Data\Fichiers\Test\TestEDI.txt", ForReading) 'Définition du fichier Excel Set FichierExcel = ActiveWorkbook Set Feuille = ActiveSheet 'Lecture des données NewLigne = 2 Do While objEDI.AtEndOfStream <> True 'Lecture de la ligne Ligne = objEDI.readline Champ = Split(Ligne, ";", -1) If Ligne <> "" Then For RangChamp = 0 To UBound(Champ, 1) Feuille.Range("A" & NewLigne) = Champ(RangChamp) NewLigne = NewLigne + 1 Next End If Loop End Sub
Il faut changer le chemin du fichier original. La macro écrit dans la feuille active. Il est possible de pointer sur une feuille donnée.
17 avril 2009 à 12:16
Merci beaucoup, je vais analyser cette macro pour ma culture vba.