[Vb6] Open avec variable

Version imprimable

Bonjour, ou rebonjour ^^

J'ai soucis avec un bout de code.
J'ai une userform qui demande a l'utilisateur un nom de fichier pour exporter via un fichier txt.
Sauf que je n'arrive pas a integrer la variable du nom de fichier.
pour etre plus explicite je met le bout de code.
Le probleme est dans le open il prend pas la variable Nom et du coup me met une erreur :(

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Sub CmdSave_Click()
    Form3.Show vbModal
    Dim w As Integer
    Dim y As Integer
 
        MsgBox ("flag flag")
        'Nom est une variable global
         Nom = Form3.TxtConf.Text
         Nom = Chr(34) & Nom & ".txt" & Chr(34)
 
 
        MsgBox (Nom)
        Open Nom For Output As #1
        For w = 0 To MSHFlexGrid1.Rows - 1
            For y = 0 To MSHFlexGrid1.Cols - 1
                 ligne = ligne & MSHFlexGrid1.TextMatrix(w, y) & " "
            Next y
            ligne = ligne
            Print #1, ligne
            ligne = ""
        Next w
        Close #1
        MsgBox ("Fichier Sauvegardé dans le repertoire courant")
 
        Unload Form3
End Sub

Et voila le bout de code de ma form3

Code:

1
2
3
Private Sub CmdSave3_Click()
     Form3.Hide  
End Sub

18/12/2009, 15h15
DAUDET78
et si tu remplacais
Code:

1 2 Nom = Form3.TxtConf.Text Nom = Chr(34) & Nom & ".txt" & Chr(34)
par

Code:

Nom = Form3.TxtConf.Text & ".txt"

Il ne faut pas rajouter des doubles guillemets
18/12/2009, 15h45
Overcrash

bas le probleme est que la fct open demande la syntaxe suivante :

open "nomfichier.txt" ...
18/12/2009, 16h02
DAUDET78

Ben non .

Open demande une variable_de_type_String$
"nomfichier.txt" est un String$
Form3.TxtConf.Text & ".txt" est une variable de type String$ (sans double guillemet)

Si tu ne me crois pas ...... tu fais l'essai ..... Saint Thomas !
18/12/2009, 16h39
Overcrash

niquel. :ccool:
je te remercie Beaucoup

Bonne soirée.

Over