Discussion :

[davyvba]

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

[pgz]

Bonjour.

Il me semble bien normal que l'instruction déclenche une errerur : tu essaies d'affecter une valeur à un objet WorkBook.

Tu voulais faire quoi avec cette instruction?

A bientôt,

PGZ

[tirex28]

Bonjour,

Si j'ai bien compris le but à atteindre:

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
Private Sub OK_Click()
    CreerOnglets [ComboTyperapport]
End Sub
 
Sub CreerOnglets(TypeRapport As String)
    Dim SheetsNames, i As Long, S As Long
 
    SheetsNames = Array("Rapport MTM", "Swap", "Financement stucturé", _
        "Placement", "Top 10 Client", "Top 10 Deal", "Top 10 Variation")
 
    With Application
        S = .SheetsInNewWorkbook
 
        If TypeRapport = "All" Then
            .SheetsInNewWorkbook = UBound(SheetsNames) + 1
        Else
            .SheetsInNewWorkbook = 2
            SheetsNames(1) = TypeRapport
        End If
 
        With Workbooks.Add
            For i = 1 To Application.SheetsInNewWorkbook
                .Sheets(i).Name = SheetsNames(i - 1)
            Next
            .SaveAs Filename:="Rapport_MTM.xls"
        End With
 
        .SheetsInNewWorkbook = S
    End With
End Sub

Cordialement,

Tirex28/