Bonjour,

Quand dans un fichier de données comme celui-ci ftp://toms.gsfc.nasa.gov/pub/nimbus7/data/monthly_averages/ozone/L3_ozavg_n7t_197811.txt on a les chiffres a 3 nombres attachées comme 360360 etc au lieu de 360 360 etc comment peut on faire pour qu'avec excel ceci soit importe sans probleme soit un chiffre par cellule non tous dans une cellule ?

Car je ne peus pas les importanter comme ceci en tout une ligne de 288 cellules comme ca devrais l'etre puisque c'est des donnees tout les 1.25° sur les 360° en longitude pour la la latitude -89.5° :

Bonjour,

une petite bidouille pour importer et mettre en forme rapidement ton fichier (pas parfait mais je ne sais pas trop quel doit être le résultat...)

La macro ci-dessous:

______________________________

Sub Import()
'
'
' Mets l'adresse de ton fichier à la place de C:\Users\ToTo\Downloads\L3_ozavg_n7t_197811.txt
' Le format choisi Selection.NumberFormat = "#,##0 _€" est du "monétaire (à toi d'en faire un perso plus adapté peut-être

Workbooks.OpenText Filename:= _
"C:\Users\ToTo\Downloads\L3_ozavg_n7t_197811.txt", Origin:=xlMSDOS, StartRow _
:=4, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(7, 1), Array( _
13, 1), Array(19, 1), Array(25, 1), Array(31, 1), Array(37, 1), Array(43, 1), Array(49, 1), _
Array(55, 1), Array(61, 1), Array(67, 1), Array(73, 1)), TrailingMinusNumbers:=True
Cells.Select
Selection.NumberFormat = "#,##0 _€"
Range("A1").Select
End Sub

_________________

Voilà...

A+

D D Du 06

Je ne connais rien en macro dans excel, comment faire ceci ??

Pourquoi voit ont le signe Euros ""#,##0 _€"" ?

Williams

bonsoir,

ce fichier est vraiment pourri tu vas fatiguer grave...

J'ai esssayé de l'importer en .txt avec un copier coller dans Workpad (j'ai supprimé les deux premières lignes...)

Ensuite supprimer tous les espaces Edition / Remplacer " " par riendutout

de le traiter en importation excel mais il faut d'abord un peu le bricoler ligne par ligne dans workpad pour virer des espaces inutiles. Ensuite on peut l'importer dans Excel comme n'importe quel fichier texte sans séparateur mais en définissnt les largeur de colonne à 3 caractères. Il y a au plus 3 minutes de travail en tout...

Le plus dur sera de récupérer la latitude à la fin de chaque série

A+

je te donne le lien avec ce que j'ai obtenu

http://cjoint.com/?edvVWdNfWH

A+

salut

Données, Convertir, Largeur fixe

indiquer une rupture tous les 3 chiffres en cliquant dans le petite règle ?

Donc il y a pas de solution a faire ceci plus vite et surtout 1 ligne tout les 1° en latitude comme ici il y a 1847 lignes au lieu 180 lignes si je comprends bien ce dont tu dis ?

Williams

hello,

quelle est la source du fichier?

peux-tu agir sur le format à l'exportation ?

courage

Titou56 a écrit :

hello,

quelle est la source du fichier?

peux-tu agir sur le format à l'exportation ?

courage

La source est celle ci : ftp://toms.gsfc.nasa.gov/pub/nimbus7/data/monthly_averages/ozone/L3_ozavg_n7t_197811.txt

format txt pour le mettre en xls, et si possible pas tres long a faire car suivant ce dont je cherche a faire il y a en aurait assez a traiter.

Williams

hello

donc tu ne peux pas agir sur le fichier origine...

la seule moulinette, à mon humble avis et selon ma propre expérience, qui peut s'automatiser avec une macro, c'est la conversion telle que je te l'ai indiqué plus haut.

ouvres directement ton .txt avec excel et tu auras le fenetre de conversion.

il va te falloir bricoler, de toutes façon.

courage donc !

tiens nous au courant

Bonjour,

Voici pour moi, le premièr tour de Moulinette à appliquer à ce txt :

D'apès ton fichier, il semblerait que toutes tes mesures commencent par le chiffre 3

Essaye de faire avec recherche et remplacement

Rechercher "3"

Remplacer par " 3" (espace suivi du chiffre 3)

Pour Titou56,

Excel va considérer chaque ligne comme un seul et unique chiffre et va le transformer en nombre au format scientifique

hello !

Non ça marche ! je viens de le refaire. Pas besoin de mettre en espace !

Il faut ouvrir directement le fichier texte avec Excel, pas copier coller

ensuite préciser dans la bôite de dialogue : largeur fixe, suivant, un clic sur la petite règle à la verticale des 3

Courage, essayez

ReBonjour,

reprise de mon message précédent.

Pour créer macro.

1) Menu >> Outils >> Macro >> Nouvelle macro
2) Tu choisis le nom de ta macro puis >> ok
3) Une petite fenêtre est apparue, tu cliques sur le carré bleu (pour finir l'enregistrement).
4) Alt + F8
5) Tu sélectionnes le nom de ta macro, puis >> Modifier
6) Entre Sud et End Sud, tu colles le bout de texte ci-dessous
7) Tu fermes la fenêtre
8) Ta macro est préte, de nouveau Alt+F8 >> Tu sélectionnes ta macro >> Exécuter
C'est fini...

Mets l'adresse de ton fichier à la place de C:\Users\ToTo\Downloads\L3_ozavg_n7t_197811.txt"

Le format choisi [Selection.NumberFormat = "#,##0 _€"] est du "monétaire", tu obtiendras ainsi des nombres de ce format: "300 125" sans le signe Euro (à toi d'en faire un perso plus adapté peut-être)

________ Code à copier___________________

Workbooks.OpenText Filename:= _
"C:\Users\ToTo\Downloads\L3_ozavg_n7t_197811.txt", Origin:=xlMSDOS, StartRow _
:=4, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(7, 1), Array( _
13, 1), Array(19, 1), Array(25, 1), Array(31, 1), Array(37, 1), Array(43, 1), Array(49, 1), _
Array(55, 1), Array(61, 1), Array(67, 1), Array(73, 1)), TrailingMinusNumbers:=True
Cells.Select
Selection.NumberFormat = "#,##0 _€"
Range("A1").Select

______Fin du code à copier________________

La macro peut fonctionner pour tous textes du même type. Il suffit de les mettre à la même adrsse et de leur attribuer un même nom (dans le code ci-dessus C:\Users\ToTo\Downloads\L3_ozavg_n7t_197811.txt).

Voilà
A+
D D Du 06