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