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