VBA Excel : CommandButtons et callback

Bonsoir,

Je développe une macro dans laquelle je crée un CommandButton au sein d'une feuille Excel.

Ci-dessous, le code correspondant :

Code:

---

1 2 3 4 5 6

Dim bouton As OLEObject With wsExcel.Cells(numeroLigne, UBound(tabIntitules) + 1) Set bouton = appExcel.ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _ Left:=.Left + 2, Top:=.Top + 1, Width:=40, Height:=20) End With

---

Or, j'ai beau avoir défini une sub CommandButton1_Click() pour y coder les traitements que le clic doit déclencher, elle n'est jamais appelée lorsque je clique sur mon CommandButton... Comprends pas...

Quelqu'un aurait-il une idée ? Y a-t-il un endroit particulier où il faut définir cette sub ? J'ai beau chercher dans l'aide en ligne d'Excel, sur les forums, je ne trouve pas de réponse.

Merci d'avance.
Raoul

Bonsoir,
Dans le module du Userform, place ce code.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Option Explicit Public WithEvents CKB1 As MSForms.CommandButton   Private Sub UserForm_Initialize() Set CKB1 = UserForm1.Controls.Add("Forms.CommandButton.1", "Boutton1", True) CKB1.Left = 18 CKB1.Top = 50 CKB1.Width = 75 CKB1.Height = 20 CKB1.Caption = CKB1.Name End Sub   Private Sub CKB1_Click() MsgBox "Bonjour" End Sub

---

Dans un Module

Code:

---

1 2 3 4

Sub CréerBouton() UserForm1.Show End Sub

---

jpleroisse

bonjour

si tu ajoutes dynamiquement un bouton dans la feuille active , la procedure "Sub CommandButton1_Click() " doit etre placée au niveau de cette meme feuille ( et pas dans un module standard )

ta procedure est placée dans la bonne feuille ?


bonne journée
michel

Citation:

---

Envoyé par SilkyRoad

si tu ajoutes dynamiquement un bouton dans la feuille active , la procedure "Sub CommandButton1_Click() " doit etre placée au niveau de cette meme feuille ( et pas dans un module standard )
ta procedure est placée dans la bonne feuille ?

---

Bonjour Michel,
Merci de ta réponse ! Il est là, le problème.

Effectivement, la procédure CommandButton1_Click() est placée avec le reste du code, dans un module...

Mais comment puis-je placer cette procédure dans une feuille que je crée lors de l'exécution de ma macro ?

Merci de ta réponse, jp.
Malheureusement, c'est pas exactement ce dont j'ai besoin puisque la feuille Excel, je la crée automatiquement, à partir de ma macro (que j'exécute dans Word... ). A force de vouloir faire court et précis... Mais merci encore pour ta réponse prompte !

rebonjour

cette démo de Denis Michon devrait repondre à ta demande

http://frederic.sigonneau.free.fr/code/VBE/AjoutBoutonPlusCodeParVBA.txt


cordialement
michel

Citation:

---

Envoyé par SilkyRoad

cette démo de Denis Michon devrait repondre à ta demande

---

Ca marche !! Super !!!! D'enfer !

Mille mercis, Michel.

Dernière question, en corollaire :
Comment puis-je appeler une procédure du module, depuis la procédure CommandButton1_Click() ?
Merci.

ben si ta procedure et publique suffit d'écrire son nom

Code:

---

1 2 3 4

.. maprocedure ...

---

:wink:

Citation:

---

Envoyé par bbil

ben si ta procedure et publique suffit d'écrire son nom

Code:

---

1 2 3 4

.. maprocedure ...

---

:wink:

---

Ben, ça marche pas...

maprocedure est une procédure publique mais qui est placée dans le module (dans Word... ), et la procédure CommandButton1_Click() est la procédure associée au clic sur le bouton que je crée au sein de la feuille Excel, elle-même, également créée par ma macro Word...

C'est pas possible, c'est ça ? Il faut que j'écrive dynamiquement le code de maprocedure dans la feuille Excel que je crée ?

rebonjour

pour déclencher une macro Word depuis Excel

Code:

---

1 2 3 4 5

Private Sub CommandButton1_Click() Dim wordApp As Object Set wordApp = GetObject(, "Word.Application") wordApp.Run "maProcedure" End Sub

---

bon apres midi
michel

Bonjour,
j'ai une petite qestion :
je n'ai pas bien compris ca :

Citation:

---

' Ecriture du code dans le module de la feuille (fs)
With ThisWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
NextLine = .CountOfLines + 1
.InsertLines NextLine, Code
End With

---

Peux tu m'expliquer stp?
Si j'ai bien compris en fait, c'est le code qui permet d'ecrire le code que l'on a écrit juste avant dans la feuille où l'on a mis le bouton, c bien ca?
Mais pkoi ai je comme erreur

Citation:

---

Erreur d'exe 1004
L'accés par programme au projet VB n'est pas fiable

---

??
D'avance merci pr votre aide

Citation:

---

Envoyé par SilkyRoad

pour déclencher une macro Word depuis Excel

---

:applo:

Impeccable. Merci Michel.

Citation:

---

Envoyé par ptitsoleil87

Si j'ai bien compris en fait, c'est le code qui permet d'ecrire le code que l'on a écrit juste avant dans la feuille où l'on a mis le bouton, c bien ca?

---

Oui, c'est ça. C'est pour écrire la procédure associée au clic sur le bouton que l'on a créé dans une feuille par programmation.

Citation:

---

Envoyé par ptitsoleil87

Mais pkoi ai je comme erreur

Citation:

---

Erreur d'exe 1004
L'accés par programme au projet VB n'est pas fiable

---

??

---

Moi, je suis pas bien placé pour t'expliquer, vu que c'est moi qui ai créé ce sujet, et que, donc, j'avais besoin d'aide dessus... :oops:

Maintenant, ce que m'inspire le message d'erreur, c'est que tu as mal défini ta variable ThisWorkbook qui te permet d'accéder au projet VB dans l'instruction :

ThisWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule