[VB - excel] problème macro associée a un bouton

Dev
1

Salut les geeks, surtout les pros de vb et d’excel.

Voila mon problème. J’ai une application vb qui génère un fichier excel et qui crée deux boutons dans une toolbar avec des macros associées. J’aimerais savoir si il y’a moyen de forcer l’attribut OnAction a prendre la macro du workbook actif. Parce que le souci c’est que quand je génère plusieurs fichiers excel de suite et que je clique sur un des boutons il essaie de lancer la macro du premier workbook crée.

Voici le bout de code ou je crée les boutons:

[codebox]If Not (cbar Is Nothing) Then
Call DeleteToolbar
End If

Set cbar = AppExcel.CommandBars.ADD(Name:="CSVsTool", Position:=msoBarTop)
cbar.Visible = True

' Create new buttons on the toolbar.
Set cbcUpload = cbar.Controls.ADD(Office.MsoControlType.msoControlButton)
Set cbcCheckCSV = cbar.Controls.ADD(Office.MsoControlType.msoControlButton)

' Assign a macro to buttons.
'cbcUpload.OnAction = App.Path & "\" & strXLName & "!Upload.uploadfile"
'cbcCheckCSV.OnAction = App.Path & "\" & strXLName & "!Upload.FormatFileU"
cbcUpload.OnAction = "Upload.uploadfile"
cbcCheckCSV.OnAction = "Upload.FormatFileU"
' Set the caption of buttons.
cbcUpload.Caption = "Upload CSV"
cbcCheckCSV.Caption = "Check CSV"
' Set the icon on the button to a picture.
cbcUpload.FaceId = 269
cbcCheckCSV.FaceId = 1715

Set cbc = Nothing
Set cbar = Nothing[/codebox]

D’avance merci pour vos réponses :slight_smile: