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
Et voila le bout de code de ma form3
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
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Private Sub CmdSave3_Click() Form3.Hide End Sub
Partager