Ouvrir un fichier .txt avec Excel

Salut, peut tu mettre un petit exemple du fichier txt zipper pour pouvoir faire un essaie.

A+ Wilfried ;op

Bonjour Theartist

as-tu pensé à bien spécifier l'origine de ton fichier au moment de ton importation ?
Que cela soit bien sous Windows ANSI et non sous Dos ou sous Mac
Une première piste qui n'est pas la bonne peut-être mais ....


@+
GD

Merci,
j'ai bien spécifié l'origine mais cela ne résoud pas mon problème.
Voici ci-joint un fichier.txt zippé.

Merci pour votre aide.

bonjour,


une solution manuelle mais qui marche :
tu ouvres ton fichier dans le bloc note : tous les accents vont bien.
tu sélectionnes tout
édition copier
tu vas dans Excel
édition coller (ça se met dans une colonne)
tu vas dans le menu données
tu choisis convertir
tu choisis délimité (étape 1)
(étape 2) tu coches autre comme séparateur et tu saisis #

valides et c'est Ok

A+

Merci Sylvain.

Cette solution fonctionne effectivement mais je ne peux pas l'utiliser:
J'aimerais ouvrir mon fichier .txt automatiquement à partir d'une application développée en VB.NET.

Merci quand même pour ta solution.

Bonsoir TheArtist, Sylvain, Gérard, Wilfried, le Forum

Une approche en VBA, un peu tirée par les cheveux, mais si tu as la patience d'identifer toutes les chaines de caractères mises en substitute comme "é" à la place de "é" tu devrais y arriver...

Sub ImportTXT()
Dim Record As String
Dim Container As Variant
Dim i As Integer, ii As Byte
Dim Chemin As String
Dim TheString As String
i = 1

Chemin = "C:\My Test\Temp - MATZINGER Julien au 28-01-2005.txt"


Open Chemin For Input As #1

   Do While Not EOF(1)
      Line Input #1, Record

      Container = Split(Record, Chr(35))

         For ii = 1 To 8
            With Application.WorksheetFunction
               TheString = .Substitute(Container(ii - 1), "é", "é")
               TheString = .Substitute(TheString, "¿¿", "è") 'à adapter
               TheString = .Substitute(TheString, "©©", "€") 'à adapter
               TheString = .Substitute(TheString, "", "") 'à adapter et ajouter les autres cas de figures...
            End With

            With ActiveSheet
               .Cells(i, ii) = TheString
            End With
         Next ii
         i = i + 1
   Loop

Close #1
End Sub

Bonne Soirée et Week End
@+Thierry

Merci @+Thierry 🙂 pour ton idée.
Mais, cette dernière m'oblige, si g bien compris, à remplir ma feuille Excel cellule par cellule...

J'utilisais ce système avant de passer par des fichiers .TXT. Ce procédé est beaucoup trop lent au goût de mes responsables, d'autant plus que certaines feuilles Excel à générer peuvent contenir plusieurs milliers de lignes.

En tout cas, merci de t'être penché sur le sujet. 🙂

Merci à tous 🙂

J'ai finalement trouvé:
Le problème provenait du fichier .txt qui était codé en UTF-8 au de l'être en ANSI.

J'ai changé le codage du .txt et ça marche nickel.