Importation données fichiers txt

Bonjour,

Je dois exploiter un fichier txt

N'ayant aucune connaissance en macros VBA, je sollicite votre aide

Les données sont sur une seule ligne, sous la forme :

"Paramètre:" "Valeur" "Unité" ".."

Les 4 premiers paramètres (Time, Date, Log on, Interval) sont juste les paramètres d'initialisation

Ils peuvent donc être séparés du reste de l'exploitation (mis sur une première ligne par exemple)

Je souhaiterais pouvoir disposer d'un fichier excel, en 4 colonnes :

"Time" "Condenser" "Pressure" "Product"

Et dans chaque colonne l'ensemble des valeurs du fichier

Les unités peuvent être supprimées

Je vous serais très reconnaissant de m'écrire les quelques lignes de code qui me permettraient d'effectuer cette importation.

Bien à vous

Salut le forum

Blacksad, si tu as la possibilité d'utiliser Word

Une macro lancée depuis Excel qui récupere ton fichier texte

Sub Piloter_Word()
'Nécessite d'activer la référence
'Microsoft Word xx.x Object Library

Dim WordApp As Word.Application
Dim WordDoc As Word.Document

    Set WordApp = CreateObject("Word.Application")
    WordApp.Visible = True
    Set WordDoc = WordApp.Documents.Open("D:\Fichier_Texte.txt", ReadOnly:=True)

    WordDoc.Content.Find.Execute findtext:="..", _
     Replacewith:="^p", _
      Replace:=wdReplaceAll

    With WordApp
        .Selection.WholeStory
        .Selection.Copy
    End With

    ActiveWorkbook.ActiveSheet.Range("A1").Select
    ActiveWorkbook.ActiveSheet.Paste
    Application.CutCopyMode = False
    WordDoc.Close False
    WordApp.Quit

End Sub

A te relire

Mytå

Re le forum

Un autre participant qui ne prend même par la peine de remercier .....

Dernière visite:29 Sep 2011

C'est vraiment désolant, solution retenue ou pas . . . . . . .

Mytå