Discussion :

[Zertozerto]

Bonjour,

Je souhaite génerer des fichiers Excel avec un nom de type "TITRE + variable"
La variable est issue d'une ComboBox, (elle represente la semaine selectionnéé : de type "W05")

donc un titre de la forme : Titre_W05

J'ai essayé cela mais ca ne prends pas en compte maVariable

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
Private Sub Validate_Click()
 
Dim Chemin As String
Chemin = "C:\Documents and Settings\MOI\Desktop"
 
Dim ceFichier As Workbook
Set ceFichier = ActiveWorkbook
 
Dim nouveauFichier As Workbook
 
    Dim fSheet As Worksheet
    Dim NomClasseur As String
    Dim maVariable As String
 
    NomClasseur = "titre_" & maVariable & ".xls"
 
    Set nouveauFichier = Workbooks.Add
    DoEvents
    Sheet1.Copy Before:=nouveauFichier.Sheets(1)
    DoEvents
    nouveauFichier.SaveAs Filename:=Chemin & "\" & NomClasseur, FileFormat:=xlNormal
    DoEvents
    nouveauFichier.Close False
    ceFichier.Activate
End Sub

[pgz]

Bonjour.

Suivant ton code, tu déclares MaVariable, ce qui l'initialise à "". Et tu l'utilises ensuite sans la renseigner.

COrdialement,

PGZ

[Zertozerto]

Dans le code du Combo j'avais mis :

Code :

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

1
2
3
4
Private Sub ComboBox1_Click()
    maVariable = ComboBox1.Text
    TextBox1.Text = maVariable
End Sub

j'ai remis

Code :

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

maVariable = ComboBox1.Text

tout marche comme je veux.

Merci beaucoup pgz