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
- Déplacer une colonne excel - Guide
- Aller à la ligne excel - Guide
- Tableau croisé dynamique 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
128
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.