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