Bonjour à tous,

J'ai créer un petit bout de code pour que lors de l'exportation vers un fichier, l'utilisateur puisse donner un nom au fichier, mais quand il nomme par exemple sont fichier "Points OBS 30.06.2014.txt" le nom enregistré est "Points OBS 30#06#2014.txt".

Comment modifier mon code pour éviter ce problème ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
Dim StrNom As String
    Dim strfile As String
 
    StrNom = InputBox("Saisir le nom du fichier d'exportation")
 
    Dim Obj As Object
    Set Obj = CreateObject("WScript.Shell")
    strfile = Obj.SpecialFolders("Desktop") & "\" & StrNom & ".txt"
.....
Merci d'avance.

Pascal