Workbooks.Open et OpenText ne fonctionnent pas sur .csv (point-virgule)
1 réponse
BabaToto
Bonsoir,
A l'aide: que faire pour que la commande "Workbooks.Open" =20
fonctionne sur un fichier .csv (point virgule)?
La commande Workbook.openText ne marche pas non plus sur=20
un fichier .csv (point virgule).
J'ai le code suivant pour lire un fichier .csv, mais Excel=20
2000(sur XP) n'arrive pas =E0 interpr=E9ter le s=E9parateur ";"=20
(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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Shnoulle
Voir l'autre fil.
BabaToto wrote:
Bonsoir,
A l'aide: que faire pour que la commande "Workbooks.Open" fonctionne sur un fichier .csv (point virgule)?
La commande Workbook.openText ne marche pas non plus sur un fichier .csv (point virgule).
J'ai le code suivant pour lire un fichier .csv, mais Excel 2000(sur XP) 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
Voir l'autre fil.
BabaToto wrote:
Bonsoir,
A l'aide: que faire pour que la commande "Workbooks.Open"
fonctionne sur un fichier .csv (point virgule)?
La commande Workbook.openText ne marche pas non plus sur
un fichier .csv (point virgule).
J'ai le code suivant pour lire un fichier .csv, mais Excel
2000(sur XP) 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.
A l'aide: que faire pour que la commande "Workbooks.Open" fonctionne sur un fichier .csv (point virgule)?
La commande Workbook.openText ne marche pas non plus sur un fichier .csv (point virgule).
J'ai le code suivant pour lire un fichier .csv, mais Excel 2000(sur XP) 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.
