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

**Scritch852** · 19/03/2007, 12h49

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!!

**ouskel'n'or** · 19/03/2007, 13h11

As-tu pensé à utiliser "Transpose" ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Scritch852** · 19/03/2007, 13h51

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.

**ouskel'n'or** · 19/03/2007, 14h08

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Scritch852** · 19/03/2007, 14h19

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.

**ouskel'n'or** · 19/03/2007, 14h31

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Scritch852** · 19/03/2007, 14h35

Tu devrais être payé pour l'aide que tu apportes.
Merci bcp!!

**Scritch852** · 20/03/2007, 10h47

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...

**ouskel'n'or** · 20/03/2007, 10h54

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

**Scritch852** · 20/03/2007, 11h10

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...?

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

Macros et VBA Excel

Discussions similaires

Partager

Partager