Discussion :

[Raoul d'Andrésy]

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 :

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

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

[leroissejp]

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

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
 
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 :

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

1
2
3
4
 
Sub CréerBouton()
UserForm1.Show
End Sub

jpleroisse

[SilkyRoad]

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

[Raoul d'Andrésy]

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 ?

[Raoul d'Andrésy]

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 !

[SilkyRoad]

rebonjour

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

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


cordialement
michel

[Raoul d'Andrésy]

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

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

Mille mercis, Michel.

[Raoul d'Andrésy]

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

[SfJ5Rpw8]

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

Code :

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

1
2
3
4
 
..
maprocedure
...

[Raoul d'Andrésy]

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

Code :

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

1
2
3
4
 
..
maprocedure
...

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 ?

[SilkyRoad]

rebonjour

pour déclencher une macro Word depuis Excel

Code :

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

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

[ptitsoleil87]

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

' 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

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

??
D'avance merci pr votre aide

[Raoul d'Andrésy]

pour déclencher une macro Word depuis Excel

Impeccable. Merci Michel.

[Raoul d'Andrésy]

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.

Mais pkoi ai je comme erreur

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...

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