Bouton et différents workbooks

Bouton et différents workbooks - VB/VBA/VBS - Programmation

Marsh Posté le 27-09-2005 à 18:50:56    

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 :
  1. ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
  2.         , DisplayAsIcon:=False, Left:=Range("E2" ).Left, Top:=Range("E2" ).Top, Width:=57.75, Height _
  3.         :=27.75).Select

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

Code :
  1. Private Sub CommandButton1_Click()
  3. ActiveWorkbook.SaveAs Application.GetSaveAsFilename(fileFilter:="Microsoft Excel Workbook (*.xls), *.xls" )
  5. 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.

Reply

Marsh Posté le 27-09-2005 à 18:50:56   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed