Discussion :

[elodc]

Bonjour,

J'ai un soucis avec un fichier VBA Excel que je reprends : Sur le clic d'un bouton d'une user form, je crée une ligne dans une feuille, et je viens créer un bouton a coté de cette ligne et je lui crée du code en automatique. sauf que quand je lance le code : j'ai une erreur "erreur automation, l'object invoqué s'est déconnecté de ses clients" et Excel se ferme completement. je sais que l'erreur est déclenché par la generation de code automatique, mais je ne comprends pas ce qui ne va pas.
Je vous copie 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
14
15
16
17
 
Dim OOle As object
Dim mon_code as String
 
Set Oole = activeWorkbook.activeSheet.OleObjects.add("Forms.commandbutton.1",Link:=False, left:=Gauche, top:=Sommet, Width:=largeur, height:=Hauteur)
'les variables gauche, sommet, largeur et hauteur ont été définies plutot dans le code : mon bouton se cree correctement, jusque la, tout va bien. 
 
Oole.name = NomBouton
 
mon_code = "private Sub " & Oole.Name & "_click()" &vbcrlf
mon_code = Mon_code & "msgbox(""OK"")" &vbcrlf
mon_code = Mon_code & "end Sub"
 
With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.codeName).codeModule
      .Insertlines .CountOfLines + 1, Mon_code
End With
'c'est cette ligne de commande qui déclenche l'erreur

Si vous avez une idée, je suis très intéressée :-)

MErci !

Elodie

[thekat]

Bonjour Elodc,

en donnant une valeur à NomBouton le code fonctionne : créer un bouton + son code, cliquer le bouton, afficher ok

Dim OOle As Object
Dim mon_code As String


NomBouton = "Elodc"

Cdlt

[Patrice740]

Bonjour,

Encore un exemple de l'intérêt de commencer tous ses modules par Option Explicit !

VBA t'aurais indiqué que la variable NomBouton n'est pas définie

Ceci dit, elle est parfaitement inutile, il suffit de :

Code :

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

Oole.name = "NomBouton"