Bonjour,
J'ai des problèmes de formatage lorsque j'ouver un fichier texte avec des
colonnes en standard, pour éviter ce problème je convertis toutes les
colonnes en texte.
Mon problème est le suivant : les fichiers texte que ma macro ouvre ne font
pas tous le même nombre de colonne.
Existe t-il une solution pour convertir toutes les colonnes (quelque soit le
nombre de colonne) en format texte ?
Rebonjours à toi Autre solution qui supprime la condition de la 1° cellule de la dernière colonne à mettre en fin de ta macro :
Range("A1", Range(ActiveCell.SpecialCells(xlLastCell).Address)).EntireColumn.NumberForm at = "@"
C'est peut être mieux
Dis moi
Laurent
Bonjour, Merci pour la réponse, mais elle ne répond pas à ma problématique. ce que je voudrais c'est transformer le données en texte afin qu'elles soient identique à celle de mon fichier texte. Si je met le format texte après conversion, mes données se trouvent déjà fausses sur certains postes (dates passées au format américain, perte de séparateur décimal, etc.)
Je voudrais donc dans la fonction opentext ne pas mettre tous les array car je ne sais pas combien de colonne je vais avoir. Workbooks.OpenText Filename:="Fichier.txt", _ Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _ xlDoubleQuote, ConsecutiveDelimiter:úlse, Tab:=True, Semicolon:=True, _ Comma:úlse, Space:úlse, Other:úlse, FieldInfo:=Array(Array(Array(1, 2), Array(2, 2), Array(3, 2), Array....
Pour l'instant j'ai triché en mettant 50 array (je ne pense pas avoir plus de 50 colonnes), cela fonctionne mais je ne trouve pas le code très propres.
Merci d'avance si vous avez une autre idée. Laurent
"" a écrit :
Rebonjours à toi Autre solution qui supprime la condition de la 1° cellule de la dernière colonne à mettre en fin de ta macro :
Bonjour,
Merci pour la réponse, mais elle ne répond pas à ma problématique.
ce que je voudrais c'est transformer le données en texte afin qu'elles
soient identique à celle de mon fichier texte.
Si je met le format texte après conversion, mes données se trouvent déjà
fausses sur certains postes (dates passées au format américain, perte de
séparateur décimal, etc.)
Je voudrais donc dans la fonction opentext ne pas mettre tous les array car
je ne sais pas combien de colonne je vais avoir.
Workbooks.OpenText Filename:="Fichier.txt", _
Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited,
TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:úlse, Tab:=True,
Semicolon:=True, _
Comma:úlse, Space:úlse, Other:úlse,
FieldInfo:=Array(Array(Array(1, 2), Array(2, 2), Array(3, 2), Array....
Pour l'instant j'ai triché en mettant 50 array (je ne pense pas avoir plus
de 50 colonnes), cela fonctionne mais je ne trouve pas le code très propres.
Merci d'avance si vous avez une autre idée.
Laurent
"francois.forcet@wanadoo.fr" a écrit :
Rebonjours à toi
Autre solution qui supprime la condition de la 1° cellule de la
dernière colonne à mettre en fin de ta macro :
Bonjour, Merci pour la réponse, mais elle ne répond pas à ma problématique. ce que je voudrais c'est transformer le données en texte afin qu'elles soient identique à celle de mon fichier texte. Si je met le format texte après conversion, mes données se trouvent déjà fausses sur certains postes (dates passées au format américain, perte de séparateur décimal, etc.)
Je voudrais donc dans la fonction opentext ne pas mettre tous les array car je ne sais pas combien de colonne je vais avoir. Workbooks.OpenText Filename:="Fichier.txt", _ Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _ xlDoubleQuote, ConsecutiveDelimiter:úlse, Tab:=True, Semicolon:=True, _ Comma:úlse, Space:úlse, Other:úlse, FieldInfo:=Array(Array(Array(1, 2), Array(2, 2), Array(3, 2), Array....
Pour l'instant j'ai triché en mettant 50 array (je ne pense pas avoir plus de 50 colonnes), cela fonctionne mais je ne trouve pas le code très propres.
Merci d'avance si vous avez une autre idée. Laurent
"" a écrit :
Rebonjours à toi Autre solution qui supprime la condition de la 1° cellule de la dernière colonne à mettre en fin de ta macro :
Je n'ai pas testé n'ayant pas ton fichier mais à mon sens je ne vois pas pourquoi celà ne fonctionnerait pas
Fais des testes et dis moi !!!!
Laurent
Bonjour, Efectivement ca peux répondre à mon besoin, j'y avais pensé, mais je ne trouve pas cette solution très "propre", tant pis je vais rester sur mes 50 array.
Merci quand même
Laurent
"" a écrit :
Rebonjours Laurent
Tu pourrais ouvrir une première fois ton fichier text sans le FieldInfo :
Je n'ai pas testé n'ayant pas ton fichier mais à mon sens je ne vois pas pourquoi celà ne fonctionnerait pas
Fais des testes et dis moi !!!!
Bonjour,
Efectivement ca peux répondre à mon besoin, j'y avais pensé, mais je ne
trouve pas cette solution très "propre", tant pis je vais rester sur mes 50
array.
Merci quand même
Laurent
"francois.forcet@wanadoo.fr" a écrit :
Rebonjours Laurent
Tu pourrais ouvrir une première fois ton fichier text sans le
FieldInfo :
Bonjour, Efectivement ca peux répondre à mon besoin, j'y avais pensé, mais je ne trouve pas cette solution très "propre", tant pis je vais rester sur mes 50 array.
Merci quand même
Laurent
"" a écrit :
Rebonjours Laurent
Tu pourrais ouvrir une première fois ton fichier text sans le FieldInfo :