Format données importées

[KIM]

Bonjour le Forum,
Il y a des fois où tout se passe bien et d'autres on s'arrache les cheveux. Et là j'ai besoin de vous et vous en remercie.
J'importe des fichiers texte régulièrement contenant des données financières. J'ouvre le fichier texte, je fais manuellement un copier-coller vers le fichier import1 sans probleme. Je peux lancer toutes les opérations de calcul.
J'essaye alors d'automatiser l'importation de ce fichier text. Une semaine sans resultat. J'ai toujours les données inexploitables et je n'arrive pas à récupérer correctement les colonnes chiffres. Ces colonnes se transforment en données texte et je n'arrive pas à les formater. Merci de m'aider à trouver le moyen d'importer automatiquement le(s) fichiers texte, de formater correctement les données chiffres pour les exploiter normalement.
Ci-joint un extrait de mes données text et la macro d'importation.
Merci d'avance
Amicalement [file name=EXT_KIM.zip size=18446]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/EXT_KIM.zip[/file]

 

[pierrejean]

re KIM

une autre formulation pour la colonne (K ici)

For n = 5 To Range('K65536').End(xlUp).Row
Cells(n, 11) = CDbl(Cells(n, 11))
Next n

apres test la formulation a base de for each est la suivante

For Each cel In Range('L1:L' & Range('L65536').End(xlUp).Row)
On Error Resume Next
cel.Value = CDbl(cel.Value)
Next cel
On Error GoTo 0

Si tu es sur de ne pas avoir de texte dans la colonne la 1ere est preferable sinon opte pour la second et tiens nous au courant

par contre, il ne s'agit toujours que de palliatifs

esperons en la venue d'un de nos Grands Maitres !!!!

je les ais invoqués dernierement avec succès

pourquoi pas ici !!

Message édité par: pierrejean, à: 19/04/2006 08:49

 

[KIM]

Re JeanMarie, Pierrejean et le forum,
La proposition de Pierrejean fonctionne.
Y-a-t-il moyen de regrouper toutes les colonnes à transformer dans une seule boucle? ou y-a-t-il moyen de definir une zone de plusieurs colonnes à partir de la ligne 5?
Pour avancer je vais recopier ce code pour chaque colonne necessaire en attendant de trouver une solution de formatage globale.
Merci d'avance
Amicalement
KIM

 

[pierrejean]

re KIM

voila une boucle qui traite les colonnes
CDEF K à N et U à AB

For x = 3 To 28
If x = 7 Then x = 11
If x = 15 Then x = 21
For n = 5 To Range(Cells(65536, x).Address).End(xlUp).Row
Cells(n, x) = CDbl(Cells(n, x))
Next n
Next x

je n'ais fait qu'un test rapide
mais je continue

tiens nous au courant

 

[KIM]

Bonjour PierrJean, JeanMarie et le forum,
Pour la suite j'ai lancé un autre fil qui englobe la première phase de mon application en intégrant vos modifs. Merci d'avance pour votre aide et votre contribution et au forum aussi.
Suite sur le fil
Lien supprimé

Bien amicalement
KIM