Discussion :

[kythi]

Bonjour,

j'ai besoin d'ouvrir un fichier .csv :

• le fichier a toujours le même nom
• il se trouve toujours au même endroit

Je dois fermer également ce .csv après traitement.

Savez-vous comment faire ?

Merci l'équipe

[BlueMonkey]

Salut,

Pour ouvrir, puis fermer le csv sans l'enregistrer.

Code :

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

1
2
3
4
5
6
    Dim ws As Workbook
    Set ws = Workbooks.Open("X:\Nouveau document texte.csv")
    'Fait ton traitement
 
    'Ferme le fichier sans enregistrer
    ws.Close False

[kythi]

BlueMonkey,
merci pour votre réponse,
le fichier .csv s'ouvre correctement, il se ferme correctement mais j'ai un autre problème du coup

Quand le csv s'ouvre, j'aimerai qu'il interprète les séparateurs en colonne.
Je veux dire que la il me met tout dans la colonne A. Au lieu de séparer les informations par colonne.
Savez-vous comment lui indiquer ?

Merci


Edit : le séparateur de donnée est ";"

[Marc-L]

Bonjour,

du coup ce n'est pas un vrai fichier .csv …

Dans ce cas, voir l'aide VBA concernant la méthode OpenText.


_____________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[BlueMonkey]

Bonsoir,

Une autre façon de faire est de préciser le séparateur de colonne en ajoutant depuis un éditeur de texte (NotePad, Wordpad ...)
la ligne suivante au début du fichier CSV.

Code :

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

sep=;

Cette ligne ne sera pas visible depuis Excel, mais sert juste à préciser le séparateur utilisé pour le fichier.

Autre solution, changer le séparateur de liste dans les paramètres régionaux de ton PC (le mettre à ;)
tu dois pouvoir également utiliser directement Workbooks.Open().

Si tu ne peux modifier ni le(s) CSV, ni les paramètres régionaux, la solution proposée par Marc-L fera le boulot.
Workbooks.OpenText Filename:="nom de fichier", Semicolon:=True.

[kythi]

Bonjour,

Merci pour vos réponses,

je ne peux modifier le csv et les paramètres régionaux..

j'ai donc utilisé cette solution :

Code :

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

Workbooks.OpenText Filename:="nom de fichier", Semicolon:=True

Le fichier s'ouvre mais toutes les informations se trouvent dans la colonne A ..

[kythi]

Je viens de réussir avec ce bout de code :

Code :

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

1
2
Workbooks.OpenText Filename:="fichier.csv", Origin:=xlWindows, _
    Local:=True

Merci

[BlueMonkey]

Merci à toi d'avoir posté la solution que tu as trouvé.
A+