OVH Cloud OVH Cloud

Importer un fichier CSV

4 réponses
Avatar
Balain
Bonjour,=20

Je cherche =E0 ouvrir un fichier CSV dans mon tableur afin=20
d'y appliquer automatiquement un traitement. Je souhaite=20
pour cela afficher la boite de dialogue ouvrir standard.
Jusque l=E0, j'arrive =E0 :
IndOuv =3D Application.Dialogs(xlDialogOpen).Show _ =20
("*bilan*.csv", 0, True)
mais mon tableau n'est pas converti correctement et les=20
donn=E9es sont toutes dans la colonne 1.
Je crois qu'il me faut pr=E9ciser le format CSV dans les=20
arguments mais je n'arrive pas =E0 trouver la syntaxe=20
exacte dans la documentation.

Qui peut m'aider ?

4 réponses

Avatar
Philippe.R
Bonjour Balain,

As tu vérifié dans l'explorateur de Windows / outils / options des dossiers / avancé / action open /
modifier / que message DDE est bien [ouvrir("%1")] et non [open("%1")] ?

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Balain" a écrit dans le message de
news:085501c3a612$aab581f0$
Bonjour,

Je cherche à ouvrir un fichier CSV dans mon tableur afin
d'y appliquer automatiquement un traitement. Je souhaite
pour cela afficher la boite de dialogue ouvrir standard.
Jusque là, j'arrive à :
IndOuv = Application.Dialogs(xlDialogOpen).Show _
("*bilan*.csv", 0, True)
mais mon tableau n'est pas converti correctement et les
données sont toutes dans la colonne 1.
Je crois qu'il me faut préciser le format CSV dans les
arguments mais je n'arrive pas à trouver la syntaxe
exacte dans la documentation.

Qui peut m'aider ?
Avatar
Balain
Merci Philippe de répondre à une question que je me
posais depuis des années :
cette option me permet enfin d'ouvrir un fichier CSV d'un
double clic dans l'explorateur windows.

Mais ce n'était pas mon problème du jour et mon code VBA
n'est pas amélioré avec cette option. De plus j'ai besoin
qu'il fonctionne sur des machines sur lesquelles je ne
souhaite pas modifier la configuration.

-----Message d'origine-----
Bonjour Balain,

As tu vérifié dans l'explorateur de Windows / outils /
options des dossiers / avancé / action open /

modifier / que message DDE est bien [ouvrir("%1")] et
non [open("%1")] ?


--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Balain" a écrit
dans le message de

news:085501c3a612$aab581f0$
Bonjour,

Je cherche à ouvrir un fichier CSV dans mon tableur afin
d'y appliquer automatiquement un traitement. Je souhaite
pour cela afficher la boite de dialogue ouvrir standard.
Jusque là, j'arrive à :
IndOuv = Application.Dialogs(xlDialogOpen).Show _
("*bilan*.csv", 0, True)
mais mon tableau n'est pas converti correctement et les
données sont toutes dans la colonne 1.
Je crois qu'il me faut préciser le format CSV dans les
arguments mais je n'arrive pas à trouver la syntaxe
exacte dans la documentation.

Qui peut m'aider ?


.



Avatar
gb
Bonjour.
Une recherche sur google révèle des problèmes avec les fichiers csv depuis
Office 2000.
La solution semble être de renommer le fichier .csv avec une extension
.TXT.

fichierCsv = Application _
.GetOpenFilename("Text Files (*.csv), *.csv")
If fichierCsv = False Then
Exit Sub
End If

fichierTxt = fichierCsv & ".txt"

FileCopy fichierCsv, fichierTxt

Workbooks.OpenText Filename:=fichierTxt, _
Origin:=xlWindows _
, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote,
_
ConsecutiveDelimiter:úlse, tab:úlse, Semicolon:úlse,
Comma:=True, _
Space:úlse, Other:úlse



"Balain" a écrit:
Merci Philippe de répondre à une question que je me
posais depuis des années :
cette option me permet enfin d'ouvrir un fichier CSV d'un
double clic dans l'explorateur windows.

Mais ce n'était pas mon problème du jour et mon code VBA
n'est pas amélioré avec cette option. De plus j'ai besoin
qu'il fonctionne sur des machines sur lesquelles je ne
souhaite pas modifier la configuration.

-----Message d'origine-----
Bonjour Balain,

As tu vérifié dans l'explorateur de Windows / outils /
options des dossiers / avancé / action open /

modifier / que message DDE est bien [ouvrir("%1")] et
non [open("%1")] ?


--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Balain" a écrit
dans le message de

news:085501c3a612$aab581f0$
Bonjour,

Je cherche à ouvrir un fichier CSV dans mon tableur afin
d'y appliquer automatiquement un traitement. Je souhaite
pour cela afficher la boite de dialogue ouvrir standard.
Jusque là, j'arrive à :
IndOuv = Application.Dialogs(xlDialogOpen).Show _
("*bilan*.csv", 0, True)
mais mon tableau n'est pas converti correctement et les
données sont toutes dans la colonne 1.
Je crois qu'il me faut préciser le format CSV dans les
arguments mais je n'arrive pas à trouver la syntaxe
exacte dans la documentation.

Qui peut m'aider ?


.



Avatar
Balain
Merci beaucoup gb

Je n'ai pas encore compris comment mais (à part un petit
problème sur le choix du délimiteur : Semicolon) cela
répond exactement à mon besoin.

Et puis, pour conclure, je vois qu'il me reste pas mal de
choses à apprendre sur cette programmation EXCEL.

-----Message d'origine-----
Bonjour.
Une recherche sur google révèle des problèmes avec les
fichiers csv depuis

Office 2000.
La solution semble être de renommer le fichier .csv
avec une extension

..TXT.

fichierCsv = Application _
.GetOpenFilename("Text Files (*.csv), *.csv")
If fichierCsv = False Then
Exit Sub
End If

fichierTxt = fichierCsv & ".txt"

FileCopy fichierCsv, fichierTxt

Workbooks.OpenText Filename:=fichierTxt, _
Origin:=xlWindows _
, StartRow:=1, DataType:=xlDelimited,
TextQualifier:=xlDoubleQuote,

_
ConsecutiveDelimiter:úlse, tab:úlse,
Semicolon:úlse,

Comma:=True, _
Space:úlse, Other:úlse



"Balain" a écrit:
Merci Philippe de répondre à une question que je me
posais depuis des années :
cette option me permet enfin d'ouvrir un fichier CSV d'un
double clic dans l'explorateur windows.

Mais ce n'était pas mon problème du jour et mon code VBA
n'est pas amélioré avec cette option. De plus j'ai besoin
qu'il fonctionne sur des machines sur lesquelles je ne
souhaite pas modifier la configuration.

-----Message d'origine-----
Bonjour Balain,

As tu vérifié dans l'explorateur de Windows / outils /
options des dossiers / avancé / action open /

modifier / que message DDE est bien [ouvrir("%1")] et
non [open("%1")] ?


--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Balain" a écrit
dans le message de

news:085501c3a612$aab581f0$
Bonjour,

Je cherche à ouvrir un fichier CSV dans mon tableur afin
d'y appliquer automatiquement un traitement. Je souhaite
pour cela afficher la boite de dialogue ouvrir standard.
Jusque là, j'arrive à :
IndOuv = Application.Dialogs(xlDialogOpen).Show _
("*bilan*.csv", 0, True)
mais mon tableau n'est pas converti correctement et les
données sont toutes dans la colonne 1.
Je crois qu'il me faut préciser le format CSV dans les
arguments mais je n'arrive pas à trouver la syntaxe
exacte dans la documentation.

Qui peut m'aider ?


.




.