Discussion :

[saigon]

Bonjour,

je me heurte à un petit problème : j'ai developpé une procédure en vba sous excel.

je l'ai écrit dans un module. le script marche très bien.

Je l'ai enregistré pour en faire une macro complémentaire.

le problème c'est que le code ne s'exécute pas qd je lance excel.

voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Workbook_Open()
    Call add_commandbar
End Sub
 
Private Sub add_commandbar()
    On Error Resume Next
    Application.CommandBars("barre").Delete
 
    Application.CommandBars.Add "barre", msoBarBottom, False, True
    Call new_btn("add_sheet", 22, "Ajouter un onglet à la dernière position")
    Call new_btn("del_sheet", 23, "Supprimer l'onglet actif")
End Sub

Le code marche très bien mais comment le forcer a s'exécuter automatiquement ?

Merci de votre aide !!
SAI

[ouskel'n'or]

Où places-tu ta macro Workbook_Open() ? Elle doit se trouver dans la feuille de code de Thisworkbook (Editeur VBA -> deux clics sur Thisworkbook )

[saigon]

Où places-tu ta macro Workbook_Open() ?

dans le module...

le probleme c'est quand j'essaie de copier tout mon code vba dans le "ThisWorbook" le script ne marche plus...

par exemple cette ligne ne marche pas dans "ThisWorkbook" mais fonctionne dans un module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
 
Sub test()
Application.CommandBars.Add "ma barre", msoBarBottom, False, True
End Sub

et merci de ton aide !

[ouskel'n'or]

Tu dois seulement mettre Workbook_Open() dans thisworkbook et laisser la macro test dans le module
Call ne sert à rien, contente-toi de mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_Open()
    add_commandbar
End Sub

Tu dis

[saigon]

mmhhh....PARFAIT !

Merci à toi !!

Sai