VBA transforme virgule en point puis enregistre en csv

Version imprimable

16/02/2023, 11h59
juju24200

VBA transforme virgule en point puis enregistre en csv

Bonjour,

J'ai cherché partout sur les forums, j'ai essayé plein de codes différents et je ne trouve pas la réponse à mes problèmes.

Je récupère un fichier d'un autre logiciel au format TXT, que je transforme sans problème avec vba pour le présenter comme je veux pour ensuite en faire un fichier en csv (que j'intégrerai dans un autre logiciel après).

1er problème : J'ai fini mon fichier sauf que je n'arrive pas à transformer les nombres avec des virgules en nombres avec des points. J'ai essayé de m'enregistrer en macro avec le CTRL+H, et remplace, ça fonctionne parfaitement à la main, mais quand je lance ce code dans la macro ça ne marche pas.

J'ai essayé du Replace, et plein d'autres trucs et ça ne marche pas. j'ai essayé de transformer mon nombre en texte, ... mais rien.
Je désespère car il ne me reste plus que ça pour avoir le fichier propre.

2ème problème : quand le fichier est prêt je copie mon onglet dans une nouvelle fenêtre sans problème mais j'aimerai que la personne qui va exécuter la macro puisse avoir une boîte de dialogue qui lui permette de sauvegarder sous (jusque là j'y arrive) en forçant le nom du fichier à enregistrer (je veux que ce soit enregistré avec le nom "Ecritures") et je veux aussi que le format d'enregistrement soit par défaut du csv point virgule.
Je n'arrive pas à forcer les 2 derniers paramètres.

Merci de m'aider.
PS : je ne peux pas partager le fichier car confidentiel.
Merci
Julie
16/02/2023, 12h47
Tête de chat
Bonjour,

Premier sujet :

je ne vois pas de problème particulier avec le replace :
Code:

1 2 3 4 5 6 7 8 9 Sub test() Dim X As Double Dim S As String X = 3.1415926 S = Replace(X, ",", ".") MsgBox S S = Replace(Format(X, "0.000"), ",", ".") MsgBox S End Sub
Le problème est peut-être qui si tu mets ça après dans une Cellule, Excel va le reconvertir en nombre à la volée.
Essaye de rajouter un quote devant pour forcer le format texte

Code:

MaFeuille.cells(I,J) = "'" & Replace(X,",",".")
16/02/2023, 13h44
Tête de chat

Pour l'enregistrement, à quoi sert d'ouvrir la boite de dialogue si tu veux tout figer ?
Fais directement un :

Code:

ThisWorkbook.SaveAs Filename:="C:\MonDossier\Ecritures.csv", FileFormat:=xlCSV, local:=True
16/02/2023, 13h58
juju24200

Citation:

Envoyé par Tête de chat

Pour l'enregistrement, à quoi sert d'ouvrir la boite de dialogue si tu veux tout figer ?
Fais directement un :

Code:

ThisWorkbook.SaveAs Filename:="C:\MonDossier\Ecritures.csv", FileFormat:=xlCSV, local:=True

Je veux que l'utilisateur puisse sélectionner juste le dossier d'enregistrement. Mais il faut lui imposer d'appeler le fichier Ecritures et lui imposer de l'enregistrer au format csv point virgule
16/02/2023, 13h59
juju24200
Citation:
Envoyé par Tête de chat

Bonjour,

Premier sujet :

je ne vois pas de problème particulier avec le replace :

Code:

1 2 3 4 5 6 7 8 9 Sub test() Dim X As Double Dim S As String X = 3.1415926 S = Replace(X, ",", ".") MsgBox S S = Replace(Format(X, "0.000"), ",", ".") MsgBox S End Sub

Le problème est peut-être qui si tu mets ça après dans une Cellule, Excel va le reconvertir en nombre à la volée.
Essaye de rajouter un quote devant pour forcer le format texte

Code:

MaFeuille.cells(I,J) = "'" & Replace(X,",",".")
Merci je vais essayer, mais X dans mon cas devrait correspondre aux colonnes R et S et T et U et AT et AU, comment faire un code propre avec ça?
16/02/2023, 19h10
deedolith

Citation:

Envoyé par juju24200

Je veux que l'utilisateur puisse sélectionner juste le dossier d'enregistrement. Mais il faut lui imposer d'appeler le fichier Ecritures et lui imposer de l'enregistrer au format csv point virgule

Dans ce cas, le plus simple est peut être:
- Faire une copie de ton classeur.
- Créer un nouvelle instance Excel masquée.
- Ouvrir la copie
- Enregistrer la copie au format CSV.
- Détruire l'instance Excel.

Bonjour

Citation:

Je veux que l'utilisateur puisse sélectionner juste le dossier d'enregistrement

Donc utilise la bonne boite de dialogue :

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub EnregistrerSous(UnClasseur As Workbook)
With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False
        .Title = "Choisissez le dossier de destination"
 
        If .Show = -1 Then ' validation
              UnClasseur.SaveAs Filename:=.SelectedItems(1) & "Ecritures.CSV", FileFormat:=xlCSV, local:=True
        End If
 
    End With
End Sub

Re,

Citation:

dans mon cas devrait correspondre aux colonnes R et S et T et U et AT et AU, comment faire un code propre avec ça ?

La notion de code propre est toujours très relative... :)

Voilà déjà une solution.

Code:

1
2
3
4
5
6
7
8
9
10
11
Dim I as long, Imax as long, J as variant
Dim WS as worksheet
SET WS = Thisworkbook.WorkSheets("Feuil1")
Imax = WS.Range("A" & Rows.Count).End(xlUp).Row ' ou toute formule adaptée au contexte
For I = 1 to Imax
    For Each J in array(18,19,20,46,47) 'R et S et T et U et AT et AU
         With WS.Cells(I,J)
             .value = "'" & Replace(.value,",",".")
         Wend
    Next J
Next I

20/02/2023, 10h13
patmicro

Bonjour Juju : Utilise PowerQuerry
Clic droit en en tête de colonne et sélectionne Fractionner ta colonne de chiffres par délimiteur. en bas de la fenêtre section Guillemet positionne sur aucun. Valide par ok
Tu vas tu retrouver avec 2 colonnes les nombres (entiers) à gauche et la partie décimal à droite.
Ensuite tu fusionne tes 2 colonnes en choisissant Fusionner les colonnes. A séparateur choisi personnalisé et tape un point
Si tu le souhaite donne un nouveau nom à ta colonne (Facultatif) et valide sur OK
Valeur avant 145,58
Valeur après 145.58