Interprétation des fichiers .CSV (point-virgule) par Excel 2000
7 réponses
BabaToto
Bonsoir,
A l'aide: que faire pour que la commande "Workbooks.Open" =20
fonctionne sur un fichier .csv (point virgule)?
J'ai le code suivant pour lire un fichier .csv, mais Excel=20
2000 n'arrive pas =E0 interpr=E9ter le s=E9parateur ";" (alors=20
que ceci marche sur Excel 97" :
Private Sub CommandButton1_Click()
Dim x As Variant
Dim chemin As String
=20
chemin =3D ActiveWorkbook.Path & "\test.csv"
=20
If Dir(chemin) <> "" Then
Workbooks.Open (chemin)
=20
MsgBox "Fichier Test.csv ouvert : v=E9rifiez si les=20
donn=E9es sont s=E9par=E9es en colonnes"
Else
MsgBox "Fichier " & chemin & " introuvable"
End If
End Sub
'test.csv est un fichier avec des donn=E9es :
a;1;a1
b;2;b2
c;3;c3
d;4;d4
'Lorsque Excel interpr=E8te bien le s=E9parateur de liste,=20
chaque donn=E9e appara=EEt dans une colonne diff=E9rente.
A l'aide: que faire pour que la commande "Workbooks.Open" fonctionne sur un fichier .csv (point virgule)?
-- ** Anti-Spam : ajouter [usenet] dans l'objet pour ne pas être rejeté.
Cordialement, Stéphane *** http://www.team-santonum.com Loisirs, nature, arts, technologie : accueil en Charente-Maritime
Shnoulle
Salut BabaToto,
Essaye avec
Workbooks.OpenText FileName:=chemin, origin:=xlWindows, _ DataType:=xlDelimited, semicolon:=True Testé sur Mac, mais ca doit étre à peu prés ca sous windows
I un problèmes: regarde l'explorateur d'objet qui te donneras toutes les variables de opentexr
A+
BabaToto wrote:
Bonsoir,
A l'aide: que faire pour que la commande "Workbooks.Open" fonctionne sur un fichier .csv (point virgule)?
J'ai le code suivant pour lire un fichier .csv, mais Excel 2000 n'arrive pas à interpréter le séparateur ";" (alors que ceci marche sur Excel 97" :
Private Sub CommandButton1_Click() Dim x As Variant Dim chemin As String
chemin = ActiveWorkbook.Path & "test.csv"
If Dir(chemin) <> "" Then Workbooks.Open (chemin)
MsgBox "Fichier Test.csv ouvert : vérifiez si les données sont séparées en colonnes" Else MsgBox "Fichier " & chemin & " introuvable" End If End Sub
'test.csv est un fichier avec des données : a;1;a1 b;2;b2 c;3;c3 d;4;d4
'Lorsque Excel interprète bien le séparateur de liste, chaque donnée apparaît dans une colonne différente.
Merci
Salut BabaToto,
Essaye avec
Workbooks.OpenText FileName:=chemin, origin:=xlWindows, _
DataType:=xlDelimited, semicolon:=True
Testé sur Mac, mais ca doit étre à peu prés ca sous windows
I un problèmes: regarde l'explorateur d'objet qui te donneras toutes les
variables de opentexr
A+
BabaToto wrote:
Bonsoir,
A l'aide: que faire pour que la commande "Workbooks.Open"
fonctionne sur un fichier .csv (point virgule)?
J'ai le code suivant pour lire un fichier .csv, mais Excel
2000 n'arrive pas à interpréter le séparateur ";" (alors
que ceci marche sur Excel 97" :
Private Sub CommandButton1_Click()
Dim x As Variant
Dim chemin As String
chemin = ActiveWorkbook.Path & "test.csv"
If Dir(chemin) <> "" Then
Workbooks.Open (chemin)
MsgBox "Fichier Test.csv ouvert : vérifiez si les
données sont séparées en colonnes"
Else
MsgBox "Fichier " & chemin & " introuvable"
End If
End Sub
'test.csv est un fichier avec des données :
a;1;a1
b;2;b2
c;3;c3
d;4;d4
'Lorsque Excel interprète bien le séparateur de liste,
chaque donnée apparaît dans une colonne différente.
Workbooks.OpenText FileName:=chemin, origin:=xlWindows, _ DataType:=xlDelimited, semicolon:=True Testé sur Mac, mais ca doit étre à peu prés ca sous windows
I un problèmes: regarde l'explorateur d'objet qui te donneras toutes les variables de opentexr
A+
BabaToto wrote:
Bonsoir,
A l'aide: que faire pour que la commande "Workbooks.Open" fonctionne sur un fichier .csv (point virgule)?
J'ai le code suivant pour lire un fichier .csv, mais Excel 2000 n'arrive pas à interpréter le séparateur ";" (alors que ceci marche sur Excel 97" :
Private Sub CommandButton1_Click() Dim x As Variant Dim chemin As String
chemin = ActiveWorkbook.Path & "test.csv"
If Dir(chemin) <> "" Then Workbooks.Open (chemin)
MsgBox "Fichier Test.csv ouvert : vérifiez si les données sont séparées en colonnes" Else MsgBox "Fichier " & chemin & " introuvable" End If End Sub
'test.csv est un fichier avec des données : a;1;a1 b;2;b2 c;3;c3 d;4;d4
'Lorsque Excel interprète bien le séparateur de liste, chaque donnée apparaît dans une colonne différente.
Merci
J'ai déjà essayé et c'est pareil: Excel 2000 ne sépare pas les données par colonnes.
-----Message d'origine----- Bonjour,
Utiliser la commande faite pour ça :
Workbooks.OpenText
A l'aide: que faire pour que la commande "Workbooks.Open"
fonctionne sur un fichier .csv (point virgule)?
-- ** Anti-Spam : ajouter [usenet] dans l'objet pour ne pas être rejeté.
Loisirs, nature, arts, technologie : accueil en Charente-Maritime
.
BabaToto
Bonjour,
Merci de ta réponse.
J'ai déjà essayé la commande OpenText et c'est pareil: Excel 2000 (sur XP) ne sépare pas les données par colonnes.
Quoi faire?
-----Message d'origine----- Salut BabaToto,
Essaye avec
Workbooks.OpenText FileName:=chemin, origin:=xlWindows, _ DataType:=xlDelimited, semicolon:=True Testé sur Mac, mais ca doit étre à peu prés ca sous windows
I un problèmes: regarde l'explorateur d'objet qui te donneras toutes les
variables de opentexr
A+
BabaToto wrote:
Bonsoir,
A l'aide: que faire pour que la commande "Workbooks.Open"
fonctionne sur un fichier .csv (point virgule)?
J'ai le code suivant pour lire un fichier .csv, mais Excel
2000 n'arrive pas à interpréter le séparateur ";" (alors
que ceci marche sur Excel 97" :
Private Sub CommandButton1_Click() Dim x As Variant Dim chemin As String
chemin = ActiveWorkbook.Path & "test.csv"
If Dir(chemin) <> "" Then Workbooks.Open (chemin)
MsgBox "Fichier Test.csv ouvert : vérifiez si les
données sont séparées en colonnes" Else MsgBox "Fichier " & chemin & " introuvable" End If End Sub
'test.csv est un fichier avec des données : a;1;a1 b;2;b2 c;3;c3 d;4;d4
'Lorsque Excel interprète bien le séparateur de liste, chaque donnée apparaît dans une colonne différente.
Merci
.
Bonjour,
Merci de ta réponse.
J'ai déjà essayé la commande OpenText et c'est pareil:
Excel 2000 (sur XP) ne sépare pas les données par colonnes.
Quoi faire?
-----Message d'origine-----
Salut BabaToto,
Essaye avec
Workbooks.OpenText FileName:=chemin, origin:=xlWindows, _
DataType:=xlDelimited, semicolon:=True
Testé sur Mac, mais ca doit étre à peu prés ca sous
windows
I un problèmes: regarde l'explorateur d'objet qui te
donneras toutes les
variables de opentexr
A+
BabaToto wrote:
Bonsoir,
A l'aide: que faire pour que la
commande "Workbooks.Open"
fonctionne sur un fichier .csv (point virgule)?
J'ai le code suivant pour lire un fichier .csv, mais
Excel
2000 n'arrive pas à interpréter le séparateur ";"
(alors
que ceci marche sur Excel 97" :
Private Sub CommandButton1_Click()
Dim x As Variant
Dim chemin As String
chemin = ActiveWorkbook.Path & "test.csv"
If Dir(chemin) <> "" Then
Workbooks.Open (chemin)
MsgBox "Fichier Test.csv ouvert : vérifiez si
les
données sont séparées en colonnes"
Else
MsgBox "Fichier " & chemin & " introuvable"
End If
End Sub
'test.csv est un fichier avec des données :
a;1;a1
b;2;b2
c;3;c3
d;4;d4
'Lorsque Excel interprète bien le séparateur de liste,
chaque donnée apparaît dans une colonne différente.
J'ai déjà essayé la commande OpenText et c'est pareil: Excel 2000 (sur XP) ne sépare pas les données par colonnes.
Quoi faire?
-----Message d'origine----- Salut BabaToto,
Essaye avec
Workbooks.OpenText FileName:=chemin, origin:=xlWindows, _ DataType:=xlDelimited, semicolon:=True Testé sur Mac, mais ca doit étre à peu prés ca sous windows
I un problèmes: regarde l'explorateur d'objet qui te donneras toutes les
variables de opentexr
A+
BabaToto wrote:
Bonsoir,
A l'aide: que faire pour que la commande "Workbooks.Open"
fonctionne sur un fichier .csv (point virgule)?
J'ai le code suivant pour lire un fichier .csv, mais Excel
2000 n'arrive pas à interpréter le séparateur ";" (alors
que ceci marche sur Excel 97" :
Private Sub CommandButton1_Click() Dim x As Variant Dim chemin As String
chemin = ActiveWorkbook.Path & "test.csv"
If Dir(chemin) <> "" Then Workbooks.Open (chemin)
MsgBox "Fichier Test.csv ouvert : vérifiez si les
données sont séparées en colonnes" Else MsgBox "Fichier " & chemin & " introuvable" End If End Sub
'test.csv est un fichier avec des données : a;1;a1 b;2;b2 c;3;c3 d;4;d4
'Lorsque Excel interprète bien le séparateur de liste, chaque donnée apparaît dans une colonne différente.
Merci
.
BabaToto
Bonjour,
Merci de ta réponse.
J'ai déjà essayé la commande OpenText et c'est pareil: Excel 2000 (sur XP) ne sépare pas les données par colonnes.
Quoi faire?
-----Message d'origine----- J'ai déjà essayé et c'est pareil: Excel 2000 ne sépare pas
les données par colonnes.
-----Message d'origine----- Bonjour,
Utiliser la commande faite pour ça :
Workbooks.OpenText
A l'aide: que faire pour que la commande "Workbooks.Open"
fonctionne sur un fichier .csv (point virgule)?
-- ** Anti-Spam : ajouter [usenet] dans l'objet pour ne pas être rejeté.
Cordialement, Stéphane *** http://www.team-
santonum.com
Loisirs, nature, arts, technologie : accueil en Charente-Maritime
.
.
Bonjour,
Merci de ta réponse.
J'ai déjà essayé la commande OpenText et c'est pareil:
Excel 2000 (sur XP) ne sépare pas les données par colonnes.
Quoi faire?
-----Message d'origine-----
J'ai déjà essayé et c'est pareil: Excel 2000 ne sépare
pas
les données par colonnes.
-----Message d'origine-----
Bonjour,
Utiliser la commande faite pour ça :
Workbooks.OpenText
A l'aide: que faire pour que la
commande "Workbooks.Open"
fonctionne sur un fichier .csv (point virgule)?
--
** Anti-Spam : ajouter [usenet] dans l'objet pour ne pas
être rejeté.
Cordialement, Stéphane ***
http://www.team-
santonum.com
Loisirs, nature, arts, technologie : accueil en
Charente-Maritime