Importer un fichier de données .txt
amazigh_man
Messages postés
11
Statut
Membre
-
Halimouche Messages postés 1755 Date d'inscription Statut Membre Dernière intervention -
Halimouche Messages postés 1755 Date d'inscription Statut Membre Dernière intervention -
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
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:
- Importer un fichier de données .txt
- Fichier bin - Guide
- Comment ouvrir un fichier epub ? - Guide
- Comment réduire la taille d'un fichier - Guide
- Fichier rar - Guide
- Fichier .dat - Guide
3 réponses
Mais le problème, comment je vais faire tout ça en utilisant VBA
J'ai effectué quelques recherches et j'ai trouvé un petit script :
S'il ne fonctionne pas je te donnerai le mien (que je n'ai pas testé donc ...).
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 ...).
Merci
Si tu as besoin d'aide pour les lignes de commande, je tenterai de t'aider au mieux.