Ouverture .csv depuis script VBA et fermeture après de ce .csv sans enregistrer

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 :ccool:

Salut,

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

Code:

---

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

---

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 :ccool:


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

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 :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

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:

---

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.

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:

---

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

---

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

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

Code:

---

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

---

Merci :ccool:

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