[VBA-E] enregistrement csv

Désolé, vous allez trop vite et je n'ai pas eu le temps de modifier ma contrib que vous l'aviez déjà exploitée. J'avais pourtant dit d'attendre. Je la reposte donc, en reprécisant que ce code donne bien des séparateurs points-virgules et des valeurs décimales françaises (à virgules)

------------------------------------------------

Puisque le but est de fournir un CSV avec des points virgules, pourquoi ne pas traiter directement icelui après l'export ?

Voici le code que moi personnellement j'aurais employé

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

'...... (Demande du nom de fichier CSV --> NomFichier   Dim NomClasseur$, nFile%, sDummy$   NomClasseur = ThisWorkbook.Path & "\" & ThisWorkbook.Name Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=NomFichier, FileFormat:=xlCSV ActiveWorkbook.SaveAs Filename:=NomClasseur, FileFormat:=xlNormal Application.DisplayAlerts = True     'Lecture du fichier CSV nFile = FreeFile() Open NomFichier For Binary Access Read Write As #nFile 'Ouverture du fichier en binaire sDummy = Space$(LOF(nFile)) 'Taille chaine = taille fichier Get #nFile, 1, sDummy 'Lecture totale du fichier   'Remplacement des virgules par des point-virgules sDummy = Replace(sDummy, ",", ";")   'Remplacement des points par des virgules (valeurs décimales) sDummy = Replace(sDummy, ".", ",")   'Réécriture du fichier Put #nFile, 1, sDummy   'Fermeture fichier Close #nFile 'Fermeture du fichier

---

Autre avantage : Le classeur reprend son nom en "xls" au lieu de garder celui en "csv"

Ce code a été testé sous Excel 2003.

oui "Monfichier" et une variable de type varant ça fait partie du code mais qui est un peu plus haut, je n'ai pas saisie cette partie de code dans mon copier coller.

Mais mon fichier csv s'enregistre dans Mes documents.

le code le voici:

Code:

---

1 2 3 4 5 6 7

Dim NomFichier As Variant   NomFichier = Application.GetSaveAsFilename("aze.csv", fileFilter:="Fichier (*.csv), *.csv")   If NomFichier <> False Then   Application.DisplayAlerts = False

---

J'ai oublié de préciser pourquoi je réenregistrais le fichier en mode Excel : tout simplement parce que Excel verrouille les fichiers ouverts, et que dès qu'on a enregistré le classeur sous NomFichier, ce dernier reste verrouillé tant que le classeur reste ouvert ou n'est pas re-sauvé sous un autre nom. Sacré Bill !

Une autre solution si tu ne veux pas de ; après la dernière colonne, alors tu modifies le code en conséquence.
Deux solutions
1 - Un ; en début de ligne n'est pas génant, et tu mets

Code:

---

1 2 3 4 5 6 7 8

Open nomFichier For Output As #1 For x = 1 To DernièreLigne For j = 1 To DernièreColonne Print #1, ";" + Cells(x, j).Formula; Next j Print #1, Cells(x, j + 1).Formula Next x Close #1

---

2 - Tu ne veux pas de ; en début de ligne non plus et tu mets

Code:

---

1 2 3 4 5 6 7 8 9

Open nomFichier For Output As #1 For x = 1 To DernièreLigne Print #1, Cells(x, 1).Formula + ";"; For j = 2 To DernièreColonne Print #1, ";" + Cells(x, j).Formula; Next j Print #1, Cells(x, j + 1).Formula Next x Close #1

---

J'espère que tu vois l'idée car je n'ai pas testé

A+

désolé ouskel'n'or ça marche presque la seule chose, je me retrouve avec deux point virgule entre la premiere et deuxiéme colonne.

mgb_software j'ai une erruer avec ton code et je ne sais pas à quoi elle correspond si tu peux m'aider!
L'erreur et la suivante:
permission refusé erreur 70

sur la ligne :

Code:

---

Open NomFichier For Binary Access Read Write As #nFile

---

Tu as raison. Regarde ce que j'ai fait sur la solution 2 et essaie d'adapter. Je regarde de mon côté.

A+

Voilà, j'ai corrigé

Code:

---

1 2 3 4 5 6 7 8 9 10

Open nomFichier For Output As #1 For x = 1 To DernièreLigne Print #1, Cells(x, 1).Formula; For j = 2 To DernièreColonne Print #1, ";" + Cells(x, j).Formula; Next j Print #1, Cells(x, j + 1).Formula Next x Close #1

---

Tu dis

Merci ouskel'n'or ça fonctionne au poil.


Merci aussi a toi mgd_software, meme si j'ai pas pu tester ton dernier code.

Citation:

---

Envoyé par zoumzoum59

mgb_software j'ai une erruer avec ton code et je ne sais pas à quoi elle correspond si tu peux m'aider!
L'erreur et la suivante:
permission refusé erreur 70

sur la ligne :

Code:

---

Open NomFichier For Binary Access Read Write As #nFile

---

---

L'erreur provient, comme je l'ai déjà dit plus haut, du fait qu'Excel verrouille le fichier CSV, puisque dès qu'on a sauvé en CSV le fichier courant EST ce CSV.

C'est la raison pour laquelle je le réenregistre en XLS avec son nom d'origine.

As-tu bien rajouté la ligne SaveAs .. NomClasseur (et non plus NomFichier) ?