[VBA-E]Ouvrir un fichier.cvs séparateur ;

Version imprimable

Véridique, manip à faire en 15sec.
1 - Ouvrez un nouveau document Excel

2 - Remplisser la cellule "A1" avec ce que vous voulez

3 - Coller ce code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub essai()
 
Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :=";", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12 _
        , 1), Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), _
        Array(19, 1), Array(20, 1), Array(21, 1), Array(22, 1), Array(23, 1), Array(24, 1), Array( _
        25, 1), Array(26, 1), Array(27, 1), Array(28, 1), Array(29, 1), Array(30, 1), Array(31, 1), _
        Array(32, 1), Array(33, 1), Array(34, 1), Array(35, 1), Array(36, 1), Array(37, 1), Array( _
        38, 1), Array(39, 1), Array(40, 1), Array(41, 1), Array(42, 1), Array(43, 1), Array(44, 1), _
        Array(45, 1), Array(46, 1), Array(47, 1), Array(48, 1), Array(49, 1), Array(50, 1), Array( _
        51, 1), Array(52, 1), Array(53, 1), Array(54, 1), Array(55, 1)), TrailingMinusNumbers _
        :=True
 
End Sub

Ce code a été géénra par une macro. Je lui ai simplement demandé de faire un "Texte à colonnes" avec ";" comme délimiteur.

4 - Essayez de sauvegarder votre document.

J'attends vos réponses!!

19/03/2007, 13h11
ouskel'n'or
As-tu pensé à utiliser "Transpose" ?
Code:

1 2 Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True
avant de créer un code qui sature la mémoire ?
Précaution : Ne sélectionner que la plage de données, "A:A" => 65536 lignes, transposé sur 255 colonnes, ça passe pas ;)
19/03/2007, 13h51
Scritch852

Je 'nai pas très bien compris ton code... Est-ce qu'il transpose du texte en découpant dans des colonnes ? Si oui, en le testant, je n'arrive pas à le faire marcher. :(
19/03/2007, 14h08
ouskel'n'or
Précise ce que tu veux faire... et obtenir ;)
Pas vérifié mais je crois me souvenir qu'on ne peut pas "transposer" sur place
Si tu as A1 dans la sélection à transposer, tu ne peux pas placer tes données transposées à partir de A1.
En outre, précise ta plage de données
Code:

1 2 3 set plage = Range(Cells(NoLigne1,NoCol1), Cells(NoLigneFin,NoCol)) 'ou en l'occurence set plage = Range(Cells(NoLigne1,1), Cells(NoLigneFin,1))
Tu ne peux pas transposer "A:A" (comme je te l'ai dit) car là tu prends toute la colonne.
Dans le cas précis, la copie transposée de plage peut se faire en B1, C1, D5... pas en A1 :|
19/03/2007, 14h19
Scritch852

J'ouvre un fichier qui est formaté comme ceci:

NOM_PRODUIT;ID_PRODUIT;Prix;etc.
NOM_PRODUIT;ID_PRODUIT;Prix;etc.
NOM_PRODUIT;ID_PRODUIT;Prix;etc.
NOM_PRODUIT;ID_PRODUIT;Prix;etc.

Le problème est que ce fichier est un .csv, et qu'en l'ouvrant depuis VBA avec Application.Open() il me met tout dans la colonne A1 'alors qu'en l'ouvrant depuis Fichier->Ouvrir, il me met chaque élément compris entre 2 ; dans des colonnes différentes.
La première methode que j'ai trouvée est de l'ouvrir, puis utiliser TextToColumn (depuis le Menu >Data(données) de Excel), d'ou mon problème initial.
Je suis en train de voir la fonction Open de Excel pour voir si elle peut transposer directement à l'ouverture de fichier. Mais cela me parait difficile.

Tiens, essaie ça en remplaçant le nom du fichier

Code:

1
2
    Workbooks.OpenText Filename:="D:\xls\Fichier.csv", Origin:=xlWindows, _
        StartRow:=1, DataType:=xlDelimited, Semicolon:=True

19/03/2007, 14h35
Scritch852

Tu devrais être payé pour l'aide que tu apportes.
Merci bcp!!
20/03/2007, 10h47
Scritch852

Désolé je reviens sur ce fil, car ôô miracle de l'informatique, ce code marchait hier, mais pas aujourd'hui. Excel ne découpe pas aux point virgules. Après avoir regardé l'aide, j'ai vu qu il y a des arguments comme "Other" et "Comma" pour spécifier les délimiteur, mais rien n'y fait. Je pense que des gens ont déjà utilisé cela, alors si quelqu'un pouvait m'expliquer comment faire...
20/03/2007, 10h54
ouskel'n'or

Regarde là, je réponds plus précisément à la question. Tu dois renommer ton fichier et lui donner l'extension .txt
A+
20/03/2007, 11h10
Scritch852

Ok je commence à comprendre, mais peux tu m'expliquer la syntaxe:

Code:

Name "D:\xls\Fichier.csv" As "D:\xls\Fichier.txt"

Mon Excel ne la reconnait pas...Au pire, j'enregistre avec SaveAs dans un fichier temporaire.txt que j'ouvre ensuite...?