Discussion :

[goldenboy10]

Bonjour,

Je souhaite demander au user de saisir un ID qui sera de la forme "Integer.Integer".
Lorsque je saisie par exemple "1.2" dans l'inputbox, le fichier CSV qui sera créé contiendra "1,2" ce qui me gène un peu.

Pourriez-vous aider svp ?

Voici mon bout de code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub CommandButton1_Click()
 
Dim XLS As Excel.Application
Dim XLSheet As Excel.Worksheet
Dim XLBook As Excel.Workbook
Dim ID As String
 
ID = InputBox("Saisir un ID")
Set XLS = CreateObject("Excel.Application")
Set XLBook = XLS.Workbooks.Add
 
XLS.Visible = True
XLBook.Sheets(1).Range("A1") = ID
XLBook.SaveAs FileFormat:=xlCSV
 
XLS.Application.Quit
Set XLS = Nothing
 
End Sub

[jfontaine]

Bonjour,

Tu peux essayer de modifier le format de la cellule A1 en lui mettant le format Texte : .NumberFormat = "@"

Code :

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

1
2
3
XLS.Visible = True
XLBook.Sheets(1).Range("A1").NumberFormat = "@"
XLBook.Sheets(1).Range("A1") = ID

[goldenboy10]

Bonjour,
Merci jérôme, ceci a permis de stocker l'ID sous format texte dans le csv avec le format souhaité (1.5 et non 1,5).
Si quelqu'un passe ici, ceci donne le même résultat :

Code :

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

XLBook.Sheets(1).Range("A1") = "'" & ID

Merci.