importer .txt dans une feuille excel

[jnthnroy]

Bonjours à tous!
Petit nouveau sur VBA requière votre expertise!!
J'ai un fichier .txt qui contient ceci:

Date Apport
1950-01-01 212.000
1950-01-02 189.000
1950-01-03 161.000
1950-01-04 77.000
1950-01-05 173.000
... ...

j'aimerais importer ces valeurs sur une feuille spécifier (disont "RÉSULTATS") d'excel tout en m'assurant que les dates sont dans une colonne et les données d'apport dans une autre et dans un format utilisable (date et standard). J'explore depuis plusieurs jours le net pour ça et il y a toujours un pépin dans les codes que je trouve.

Merci à l'avance de votre aide!

[kiki29]

Salut, voir sur http://www.developpez.net/forums/d11...v/#post6440882
c'était pour du CSV mais juste .Filters.Add et separateur à changer en l'adaptant à ton contexte , et suppression Sauvegarde dans le code

[jnthnroy]

Avec cette méthode l'importation réussi mais chaque espace est considérer... mes données d'apports variant de la disaine à la centaine les espace entre mes 2 colone varies. Je me retrouve donc avec une case excel vide pour chaque espace de mon fichier txt. Mes colone ne sont plus continu...

[Golonne]

Bonsoir,

As tu essayé la méthode OpenText de l'objet Workbook ? Le tutoriel de Jean Marc Rabilloud http://bidou.developpez.com/article/VBA/ la détaille intégralement. Ne connaissant pas les spécificités de ton fichier je ne peux entrer dans les détails mais le code suivant devrait fonctionner :

Code :

1
2
3
4
5
6
7
8
9
Dim strNomFichier As String
Dim wbClasseur As Workbook
Dim wsOnglet As Worksheet
 
strNomFichier '=nom du chemin vers ton fichier texte
 
Set wbClasseur = Workbooks.OpenText(strNomFichier)
Set wsOnglet = wbClasseur.ActiveSheet
wsOnglet.Name = "Résultats"

Cordialement,

Guillaume

[jnthnroy]

Super l'info! j'essaye de démèler tout ça et je test! J'ai essayer ton code mais j'obtient " Fonction ou variable attendue" sur (.Opentext)?? Tu comprend d'où ça vient moi j'ai le cerveau en compote je n'y vois rien!

[jfontaine]

Bonjour,

As tu alimenté la variable strNomFichier avec le chemin et le nom du fichier à importer ?

Code :

strNomFichier = "nom du chemin vers ton fichier texte"

[jnthnroy]

Oui c'est fait! Ça donne un truc comme "c:\résultats\apports\quelquecho.txt" c'est bien ça?

[jfontaine]

Le problème se trouve dans l'instanciation de la variable wbClasseur

Essais comme cela

Code :

1
2
3
4
5
6
7
8
9
Dim strNomFichier As String
Dim wbClasseur As Workbook
Dim wsOnglet As Worksheet
 
strNomFichier = "c:\résultats\apports\quelquecho.txt"
Workbooks.OpenText Filename:=strNomFichier, DataType:=xlDelimited, Space:=True
Set wbClasseur = Application.ActiveWorkbook
Set wsOnglet = wbClasseur.ActiveSheet
wsOnglet.Name = "Résultats"

[kiki29]

Re jnthnroy : difficile de deviner visuellemnt le séparateur sans échantillon de fichier : espace, tabulation etc

[bbil]

bonjour,

au vu de ton échantillon, ton fichier ne comportant pas de séparateur de colonne il faut se tourner vers une autre solution si les colonnes ont sur toutes les lignes le même nombre de caractères tu peu utiliser open text
avec les paramètres DatatType:= xlFixedWidth, FieldInfo:=Array(Array(8,xlTextFormat)....)pour déterminer ces paramètres utilise l'enregistreur de macro et récupère les paramètres générés dans cette macro..

[Golonne]

Envoyé par jfontaine

Le problème se trouve dans l'instanciation de la variable wbClasseur

*Se frappe le front*

Guillaume

[jnthnroy]

mon échantillon se trouve dans mon premier post tout en haut, mais la mise en page n'a pas été conservé, bizard!!! en gros ca donne ceci:

Date Apport
1950-01-01 212.000
1950-01-02 189.000
1950-01-03 161.000
1950-01-04 77.000
1950-01-05 173.000
1950-01-06 182.000
1950-01-07 247.000
1950-01-08 191.000
1950-01-09 186.000

Juste pour préciser, il y a 5 espaces avant les dates et 3 ou 4 espaces entre les dates et les mesure d'apports (3 ou 4 selon si la valeur d'apports est dans l'ordre des dizaines ou centaines) Voir pièce jointe!

[bbil]

Envoyé par bbil

bonjour,

au vu de ton échantillon, ton fichier ne comportant pas de séparateur de colonne il faut se tourner vers une autre solution si les colonnes ont sur toutes les lignes le même nombre de caractères tu peu utiliser open text
avec les paramètres DatatType:= xlFixedWidth, FieldInfo:=Array(Array(8,xlTextFormat)....)pour déterminer ces paramètres utilise l'enregistreur de macro et récupère les paramètres générés dans cette macro..

[jnthnroy]

Envoyé par jfontaine

Le problème se trouve dans l'instanciation de la variable wbClasseur

Essais comme cela

Code :

L'importation se fait mais je conserve toujours mon prob de mise en page je joint un screenshot pour illustré celui-ci, une image vaut mille mots!

[bbil]

bonsoir , jnthnroy

pourquoi ignore tu mes messages ? je te dis que le code à jfontaine ne fonctionne pas avec ton fichier car celui-ci n'utilise pas un séparateur de colonne pour différentier ces colonnes mais une largeur fixe ...!

ne connais tu pas l'enregistreur de macro qui pourrai t'aider à déterminer le code à utiliser pour modifier la ligne ..openText de jfontaine ?

[jnthnroy]

Dsl! mais j'avais déjà expérimenté avec opentext mais sans succès (possiblement une erreur de ma part). Pour ce qui est de l'enregistreur de macro, je ne connais pas cette outil, j'apprend sur le tas comme on dit.