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