Problème sauvegarde .csv

Bonjour tout le monde.

Voilà, j'ai un problème lors de l'enregistrement de classeurs en .csv.
Lorsque je le fais manuellement, chaque donnée reste dans sa cellule source (comme si j'avais tout simplement supprimer que la mise en forme de toute la feuille).

Puisqu'il y a beaucoup de classeur et que leur dossier de destination varie, j'ai fais une macro qui enregistre tous les classeurs ouverts dans un dossier en fonction de leur nom.

Voici la macro :

Code:

---

1 2 3 4 5 6 7 8 9

Dim Wbk as Workbook For Each Wbk In Workbooks If Wbk.Name = "Oui.xlsm" Then ActiveWorkbook.SaveAs Filename:="C:\chemin\xxxx.csv", FileFormat:=xlCSV, Local:=True ElseIf Wbk.Name <> "Oui.xlsm" Then ActiveWorkbook.SaveAs Filename:="C:\autre_chemin\xxxx.csv", FileFormat:=xlCSV, Local:=True End If Next Wbk

---

L'enregistrement se fait automatiquement dans le bon dossier, au format csv, tout roule.

Le souci est que sur le fichier.csv créé par macro, toutes les données sont regroupées dans une seule colonne, séparées par des ","

Existe t-il un paramètre à rajouter sur ma macro pour que les classeurs.csv créés conservent chaque données dans leurs cellules sources ?
Comme si je continuais à le faire manuellement quoi ;)

Merci d'avance

Bonjour,

Tu pourrais toujours aller dans le menu Données / Convertir et ajouter le ";" comme séparateur.
Autrement, je ne vois pas puisque tu as mis Local = True, ce qui aurait dû régler le problème de versions (anglais vs français)

J'ai pensé à cette solution aussi mais j'aurai préféré l'utiliser qu'en dernier recours.
Ça va rajouter du temps de traitement et je suis pas sûr du résultat.

Au cas où, connais tu la commande en VBA pour utiliser l'outil convertir ?

Si tu utilises l'enregistreur de macro, tu auras la réponse.

Par contre, comment utilises-tu ces fichiers CSV ?
Est-ce que tu les ouvres manuellement ou par macro ?

Je n'ouvre pas mes fichiers CSV car je n'ai pas besoin de les retraiter.
Et les fichiers xlsm sont ouverts manuellement.

Mais c'est bon j'ai finalement trouvé.

Il ne faut pas préciser "FileFormat:="..etc.
Seulement indiquer les paramètres. Par contre Local:=True doit rester.

Code:

---

1 2 3 4 5 6 7 8

Dim Wbk as Workbook For Each Wbk In Workbooks If Wbk.Name = "Oui.xlsm" Then ActiveWorkbook.SaveAs "C:\chemin\xxxx.csv", xlCSV, Local:=True ElseIf Wbk.Name <> "Oui.xlsm" Then ActiveWorkbook.SaveAs "C:\autre_chemin\xxxx.csv", xlCSV, Local:=True End If Next Wbk

---

Et si jamais on ajoute une commande pour fermer le classeur ensuite, déjà ne pas sauvegarder les changements, mais ensuite il ne faut pas mettre "SaveChanges".
Sinon et refait la même erreur.

Exemple :

Code:

---

1 2	ActiveWorkbook.SaveAs Filename:="C:\autre_chemin\xxxx.csv", FileFormat:=xlCSV, Local:=True ActiveWorkbook.Close False

---

En espérant que ça serve à d'autre :D