Discussion :

[juju24200]

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

[Tête de chat]

Bonjour,

Premier sujet :

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

Code :

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

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 :

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

MaFeuille.cells(I,J) = "'" & Replace(X,",",".")

[Tête de chat]

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

Code :

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

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

[juju24200]

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

Code :

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

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

[deedolith]

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.

[Tête de chat]

Bonjour

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

Donc utilise la bonne boite de dialogue :

Code :

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

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

[juju24200]

Bonjour,

Premier sujet :

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

Code :

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

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 :

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

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?