XL 2013 Ruban et Classeurs

Private Function ListeFeuilles(Wb As Workbook) As String
    Dim strTemp As String
    Dim Ws As Worksheet
    strTemp = "<menuSeparator id=""Feuilles"" title=""Feuilles""/>"
    For Each Ws In Wb.Worksheets
        strTemp = strTemp & _
            "<button " & _
            CreationAttribut("id", "Bt" & Ws.CodeName) & " " & _
            CreationAttribut("label", Ws.Name) & " " & _
            CreationAttribut("tag", Ws.Name) & " " & _
            CreationAttribut("onAction", "ActivationFeuille") & "/>"
    Next
    ListeFeuilles = strTemp
End Function


Private Function ListeCharts(Wb As Workbook) As String
    Dim strTemp As String
    Dim Ch As Chart
    If Wb.Charts.count = 0 Then Exit Function
    strTemp = "<menuSeparator id=""charts"" title=""charts""/>"
    For Each Ch In Wb.Charts
        strTemp = strTemp & _
            "<button " & _
            CreationAttribut("id", "Bt" & Ch.CodeName) & " " & _
            CreationAttribut("label", Ch.Name) & " " & _
            CreationAttribut("tag", Ch.Name) & " " & _
            CreationAttribut("onAction", "ActivationFeuille") & "/>"
    Next
    ListeCharts = strTemp
End Function

Private Function ListeFeuilles(Wb As Workbook) As String
    Dim strTemp As String, i%
    Dim Ws As Worksheet
    strTemp = "<menuSeparator id=""Feuilles"" title=""Feuilles""/>"
    i = 1
    For Each Ws In Wb.Worksheets
        Select Case Ws.Name
            Case "Para" 'pour ajouter une autre feuille tu met une virgule le nom de la feuille avec les guillemets
            Case Else
                strTemp = strTemp & _
                    "<button " & _
                    CreationAttribut("id", "Bt" & Ws.CodeName) & " " & _
                    CreationAttribut("label", Ws.Name) & " " & _
                    CreationAttribut("tag", Ws.Name) & " " & _
                    CreationAttribut("imageMso", Range("Imso[Image]").Cells(i).text) & " " & _
                    CreationAttribut("onAction", "ActivationFeuille") & "/>"
                    i = i + 1
        End Select
    Next
    ListeFeuilles = strTemp
End Function