Discussion :

[Overcrash]

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 :

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
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 :

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

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

[DAUDET78]

et si tu remplacais

Code :

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

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

par

Code :

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

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

Il ne faut pas rajouter des doubles guillemets

[Overcrash]

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

open "nomfichier.txt" ...

[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 !

[Overcrash]

niquel.
je te remercie Beaucoup

Bonne soirée.

Over