Importation fichier texte dans une feuille excel

Commenter

Contenu du snippet

Le présent code importe dans une feuille Excel un fichier texte
et enregistre cette feuille au même endroit que le fichier texte.

Le code est partielement commenté.
Je n'ai pas inscrit toutes les possibilités de l'import,
mais une petite recherche dans l'aide de VB d'Excel
vous éclairera sur les diférente possibilité.

J'ai conçu le code pour fonctionner en VBScript,
mais il devrait fonctionner partout.

Vous notez une amélioration, faites moi en part !
Bonne journée !

Source / Exemple : 


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

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (reneauld)