> Tous les forums > Forum Bureautique
 Probleme pour importer donnees dans les cellules
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
williamsss
  Posté le 03/04/2008 @ 18:58 
Aller en bas de la page 
Petit astucien

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° :

360 360 360 360 359 359 359 359 357 357 357 357 358 358 358 358 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 356 356 356 356 358 358 358 358 358 358 358 358 358 358 358 358 358 358 358 358 357 357 357 357 358 358 358 358 358 358 358 358 358 358 358 358 359 359 359 359 359 359 359 359 359 359 359 359 359 359 359 359 359 359 359 359 359 359 359 359 359 359 359 359 359 359 359 359 359 359 359 359 359 359 359 359 359 359 359 359 359 359 359 359 359 359 359 359 359 359 359 359 359 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 356 356 356 356 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 356 356 356 356 356 356 356 356 356 356 356 356 357 357 357 357 356 356 356 356 356 356 356 356 356 356 356 356 356 356 356 356 356 356 356 356 355 355 355 355 356 356 356 356 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 357 356 356 356 356 358 358 358 358 357 357 357 357 358 358 358 358 359 359 359 359 358 358 358 358 358 358 358 358 356 356 356 356 356 356 356 356 357 357 357 357 356 356 356 356 357 357 357 357 357 357 357 357 359 359 359 359 358 358 358 358 358 358 358 358 lat = -89.5

Merci

Williams
Publicité
D-D-Du-06
 Posté le 03/04/2008 à 20:54 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

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

williamsss
 Posté le 03/04/2008 à 21:41 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

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

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

Williams

galopin01
 Posté le 03/04/2008 à 21:42 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

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+

galopin01
 Posté le 03/04/2008 à 21:48 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

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

http://cjoint.com/?edvVWdNfWH

A+

Titou56
 Posté le 03/04/2008 à 22:08 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

salut

Données, Convertir, Largeur fixe

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

williamsss
 Posté le 03/04/2008 à 22:22 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

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

Titou56
 Posté le 03/04/2008 à 22:34 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

hello,

quelle est la source du fichier?

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

courage

williamsss
 Posté le 03/04/2008 à 23:45 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
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

Titou56
 Posté le 04/04/2008 à 08:17 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

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

sourisdeservice
 Posté le 04/04/2008 à 13:23 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grande Maîtresse astucienne

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



Modifié par sourisdeservice le 04/04/2008 13:28
Titou56
 Posté le 04/04/2008 à 18:39 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

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

D-D-Du-06
 Posté le 04/04/2008 à 22:07 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

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

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
9,99 €Coffret de 11 tournevis isolants à poignée caoutchoutée Silverline à 9,99 €
Valable jusqu'au 28 Mai

Amazon fait une promotion sur le coffret de 11 tournevis isolés à poignée caoutchoutée Silverline à 9,99 € au lieu de 16,79 €. 


> Voir l'offre
217,23 €Disque dur externe Western Digital My Book 12 To USB 3.0 à 217,23 € livré
Valable jusqu'au 30 Mai

Amazon Allemagne propose actuellement le disque dur externe Western Digital My Book 12 To USB 3.0 à 210,76 € (avec la TVA ajustée). Comptez 6,47 € pour la livraison en France soit un total de 217,23 € livré alors qu'on le trouve ailleurs à partir de 270 €. Avec ses 12 To et sa connectique USB 3.0 compatible USB 2.0, vous aurez de quoi stocker vos backup, vos films et vos photos, etc.  A l'intérieur, vous trouverez un disque à hélium UltraStar DC HC 520 White (12 To, 5400 tr/min, 256 Mo cache, CMR -> source satdream.tech). Le disque peut être démonté et réutilisé dans un ordinateur, un NAS, etc. Une bonne affaire


> Voir l'offre
49,99 €SSD Crucial P2 500 Go (3D NAND, NVMe, PCIe, M.2, 2400 Mo/s) à 49,99 €
Valable jusqu'au 28 Mai

Amazon fait une promotion sur le SSD Crucial P2 500 Go (3D NAND, NVMe, PCIe, M.2) qui passe à 49,99 €. On le trouve ailleurs à partir de 61,99 €. Ce SSD offre des vitesses de lecture/écriture séquentielle allant jusqu’à 2 400/ 1 900 Mo/s. Il est garanti 5 ans. La livraison est gratuite.


> Voir l'offre

Sujets relatifs
Problème pour visualiser les newsletter dans Sendblaster
Problème pour insérer colonne dans Excel
Problème de suppression de données VBA dans base
Importer des données excel 2003 dans access 2003
problème pour insérer des lignes dans excel
probleme pour importer mes messages
Comment Importer des cellules Excel dans Visio2003
importer données d'un tableau xml dans excel
Importer des données dans Access
Importer des données dans MSProject
Plus de sujets relatifs à Probleme pour importer donnees dans les cellules
 > Tous les forums > Forum Bureautique