Sujet Précédent Sujet Suivant

Importer un fichier de données .txt

Fermé
amazigh_man Messages postés 11 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 12 juin 2007 - 6 juin 2007 à 14:56
Halimouche Messages postés 1755 Date d'inscription mardi 5 juin 2007 Statut Membre Dernière intervention 27 février 2014 - 6 juin 2007 à 16:37
Bonjour tout le monde,

J'ai un petit problème qui me bloque en VBA.

En fait, je fais comment pour importer un fichier de données source .txt dans mon classeur excel.

Merci
A voir également:

3 réponses

Réponse 1 / 3
Halimouche Messages postés 1755 Date d'inscription mardi 5 juin 2007 Statut Membre Dernière intervention 27 février 2014 25
6 juin 2007 à 15:00
Bonjour,
Tu comptes exécuter cette opération directement sur VBA ou à partir de la feuille Excel ??
0
amazigh_man Messages postés 11 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 12 juin 2007 21
6 juin 2007 à 15:13
Dans VBA

Merci
0
Halimouche Messages postés 1755 Date d'inscription mardi 5 juin 2007 Statut Membre Dernière intervention 27 février 2014 25 > amazigh_man Messages postés 11 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 12 juin 2007
6 juin 2007 à 15:33
La procédure est assez simple : tu définies le chemin vers ton fichier Excel, ensuite tu crées une connexion entre celui-ci et le fichier texte, tu demandes l'ouverture de la feuille Excel puis tu récupères les données.
Si tu as besoin d'aide pour les lignes de commande, je tenterai de t'aider au mieux.
0
Réponse 2 / 3
amazigh_man Messages postés 11 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 12 juin 2007 21
6 juin 2007 à 15:47
Mais le problème, comment je vais faire tout ça en utilisant VBA
0
Halimouche Messages postés 1755 Date d'inscription mardi 5 juin 2007 Statut Membre Dernière intervention 27 février 2014 25
6 juin 2007 à 15:58
J'ai effectué quelques recherches et j'ai trouvé un petit script : 

Dim FSO: Set FSO = CreateObject("Scripting.FileSystemObject")
Dim waExcel: Set waExcel = CreateObject("Excel.Application")   'Ouverture d'Excel
StrPath = "C:\Donnees\Rapport\" 'Chemin d'accès du fichier
If Right(StrPath, 1) <> "\" Then StrPath = StrPath & "\" 'Ajoute \ à la fin s'il y en a pas
 StrFich = "Igli07_aout.txt" 'Nom du fichier
If FSO.FileExists(StrPath & StrFich) Then 'Existance du fichier
 waExcel.Visible = False 'Rendre invisible Excel
 'Importe le fichier texte vers une feuille Excel de façon Largeur fixe avec délimiteur : Tabulation et Space
 waExcel.Workbooks.OpenText StrPath & StrFich, , , 2, , , True, , , True
 'Sauvegarde la feuiller importer vers le chemin d'accès de départ en motifiant l'extension et en mode partagé pour éviter des erreurs
waExcel.Workbooks(StrFich).SaveAs StrPath & Left(StrFich, Len(StrFich) - 4) & ".xls", , , , , , 2
End If
'Fermeture d'Excel
waExcel.Application.Quit


S'il ne fonctionne pas je te donnerai le mien (que je n'ai pas testé donc ...).
0
Réponse 3 / 3
amazigh_man Messages postés 11 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 12 juin 2007 21
6 juin 2007 à 16:28
Merci beaucoup,

je vais le tester et je te tiens au courant

encore une fois merci
0
Halimouche Messages postés 1755 Date d'inscription mardi 5 juin 2007 Statut Membre Dernière intervention 27 février 2014 25
6 juin 2007 à 16:37
pas de quoi me remercier ... j'espère au moisn qu'il fonctionne !!!
0