Bonjour,

J'ai créer une fonction pour créer des onglets que je veux appliquer à un command button.
J'ai une erreur objet requis.. je ne comprend pas..
J'ai mis la ligne concerné par le debogage en jaune...
Merci d'avance

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Function Onglet()
       
    If [ComboTyperapport] = "All" Then
    Sheets("Feuil1").Select
    Sheets("Feuil1").Name = "Rapport MTM"

    Sheets("Feuil2").Select
    Sheets("Feuil2").Name = "Swap"
    
    Sheets("Feuil3").Select
    Sheets("Feuil3").Name = "Financement structuré"
        
    Sheets.Add
    Sheets("Feuil4").Select
    Sheets("Feuil4").Name = "Placement"

    Sheets.Add
    Sheets("Feuil5").Select
    Sheets("Feuil5").Name = "Top 10 Client"
    
    Sheets.Add
    Sheets("Feuil6").Select
    Sheets("Feuil6").Name = "Top 10 Deal"
    
    Sheets.Add
    Sheets("Feuil7").Select
    Sheets("Feuil7").Name = "Top 10 Variation"
    
    Else
    Sheets("Feuil1").Select
    Sheets("Feuil1").Name = "Rapport MTM"

    Sheets("Feuil2").Select
    Sheets("Feuil2").Name = [ComboTyperapport]
    
    End If
    
End Function




Private Sub OK_Click()

Set NewBook = Workbooks.Add
    With NewBook
        .SaveAs Filename:="Rapport_MTM.xls"
    End With

Workbooks("Rapport_MTM") = Workbooks("Rapport_MTM").Onglet()
End Sub