[XL-2003] Inserer une variable dans un nom de fichier Excel

Inserer une variable dans un nom de fichier Excel

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:

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

Bonjour.

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

COrdialement,

PGZ

Dans le code du Combo j'avais mis :
Code:

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

Code:

maVariable = ComboBox1.Text

tout marche comme je veux.

Merci beaucoup pgz :ccool: