Discussion :

[mirascheat]

Bonjour,

J'ai créé une macro qui ouvre un nouveau workbook, qui le met en forme avec des données et j'y ai ajouté un CommandButton pour faire un Save As de ce nouveau workbook.

Donc dans ma macro j'ai :

Code :

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

1
2
3
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
        , DisplayAsIcon:=False, Left:=Range("E2").Left, Top:=Range("E2").Top, Width:=57.75, Height _
        :=27.75).Select

Et j'ai rajouté dans le même module la sous-routine :

Code :

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

1
2
3
4
5
Private Sub CommandButton1_Click()
 
ActiveWorkbook.SaveAs Application.GetSaveAsFilename(fileFilter:="Microsoft Excel Workbook (*.xls), *.xls")
 
End Sub

Je suis confronté à deux problèmes :
1- Je voudrais changer le caption de mon bouton mais je n'y arrive pas
2- Quand je clique sur mon bouton rien ne se passe. Je pense avoir compris pourquoi : en effet quand je clique sur le bouton Excel cherche une sous-routine dans le 2ème workbook alors qu'elle est présente dans le 1er workbook ... mais je ne peux écrire une sous-routine d'un workbook qui n'existe pas ???

Je ne sais pas si j'ai été très clair mais toute aide sera la bienvenue.

[SfJ5Rpw8]

pour le point 1 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Macro1()
  Workbooks.Add
 ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
   , DisplayAsIcon:=False, Left:=Range("E2").Left, Top:=Range("E2").Top, Width:=57.75, Height _
   :=27.75).Select
Dim c As Shape
Dim b As CommandButton
Dim o As OLEObject
Set c = ActiveSheet.Shapes("CommandButton1")
'c.OLEFormat.Object.OnAction = ThisWorkbook.Name & "!Mamacro"
 c.OLEFormat.Object.Object.Caption = "MonBoutton"
 
End Sub

par contre pour changer la macro affectée ... j'ai du mal ... je sais qu'on peu détruire du code VBA dans un classeur , mais je ne sais plus comment ... et je ne sais pas si on peu en écrire...
: