Ouverture fichier csv

[rudymagny]

Bonjour à tous,
Voilà j'utilise une macro de mise en forme avec ouverture de fichiers types csv mais le fait est que quand il me l'ouvre, il me met toutes les valeurs dans la colonne 1 au lieur d'appliquer les ; et ,.

j'utilise ce code pour ouvrir mon fichier :

Private Sub CommandButton2_Click()
Dim vFich, sFiltre$
sFiltre = "Comma Separated Value (*.csv),*.csv" ' <- ou autre...
ChDir CurDir
vFich = Application.GetOpenFilename(sFiltre)
If VarType(vFich) = vbBoolean Then
Exit Sub
Else
Workbooks.Open Filename:=vFich
End If
TextBox1.Value = vFich


puis je changer quelque chose pour qu'il m'ouvre le fichier correctement en mettant bien les données par colonnes?

Merci d'avance

 

[Coriolan]

Re : Ouverture fichier csv

Bonjour,

Oui, bien sûr. Je n'ai plus le code sous la main, mais il est facile à reconstituer: utilise l'enregistreur de macro, et ouvre un fichier.csv; l'assistant importation s'ouvre, et tu as le choix du séparateur de colonne; recopie après l'instruction dans ta macro.

 

[rudymagny]

Re : Ouverture fichier csv

Bonjour coriolan et merci pour l'info mais j'ai déjà essayé et Excel m'ouvre directement le fichier au bon format.
Donc l'enregistreur ne voit que ça :

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 10/11/2007 par rudy
'

'
ActiveCell.FormulaR1C1 = ""
Range("G12").Select
ChDir "I:\SRC\Validation N _ N-1 SRC"
Workbooks.Open Filename:= _
"I:\SRC\Validation N _ N-1 SRC\AdNat_VED_PARIS36_051107_VED_PARIS31_070807_Totale-071106.csv"
End Sub

bloqué!

 

[jeanpierre]

Re : Ouverture fichier csv

Bonjour rudymagny, Coriolan et le forum,

Tu lances l'enregistreur et tu fais : Fichier Ouvrir, tu selectionnes Texte (me semble-t'il) et tu fais ta manip.

Je pense que cela devrait fonctionner... car là tu dois ouvrir directement le fichier dans l'explorateur...., non ?

A te lire, sinon un petit extrait de ton fichier .csv, zippé si possible (je n'en ai pas ici)

Bon week-end.

Jean-Pierre

Edit : Pour un salut à l'ami Pierrot.

 

[Pierrot93]

Re : Ouverture fichier csv

Bonjour Rudy

si le séparateur est le point virgule, essaye le code ci dessous (pour colonne A) à adapter :

Range("A:A").TextToColumns semicolon:=True

bon après midi
@+

Edition, bonjour Jean-Pierre, t'avais pas vu.

 

[rudymagny]

Re : Ouverture fichier csv

Bonjour pierrot93 et jeanpierre,
ça y est c bon, merci à vous, j'ai rajouté le bout de code de pierrot93 et ça fonctionne donc le code final est:

Private Sub CommandButton2_Click()
Dim vFich, sFiltre$
sFiltre = "Comma Separated Value (*.csv),*.csv" ' <- ou autre...
ChDir CurDir
vFich = Application.GetOpenFilename(sFiltre)
If VarType(vFich) = vbBoolean Then
Exit Sub
Else
Workbooks.OpenText Filename:=vFich, DataType:=xlDelimited, semicolon:=True
Range("A:A").TextToColumns semicolon:=True
End If
TextBox1.Value = vFich
End Sub

Merci beaucoup à vous et bonne journée