Discussion :

[caresse]

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 :

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

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

[parmi]

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)

[caresse]

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 ?

[parmi]

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 ?

[caresse]

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 :

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

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 :

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

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