intégré un bouton dans excel par VB6Résolu

Question

bonjour
[VB6]
A l'aide d'un bouton dans une forme je lance un fichier Excel.Comment &#224; l'ouverture de se fichier lui int&#233;gr&#233; un bouton et lorsqu'on click sur se bouton on d&#233;clencherait une macro .
merci
@ plus
petchy

michelxld · Accepted Answer

bonsoir Petchy

j'espere que cet exemple pourra t'aider

Private Sub Command1_Click()
Dim ExcelApp As Excel.Application
Dim Wb As Excel.Workbook
Dim Obj As Excel.OLEObject
Dim laMacro As String
Dim x As Integer


Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.Visible = True
Set Wb = ExcelApp.Workbooks.Add(1)


   
Set Obj = Wb.Worksheets(1).OLEObjects.Add("Forms.CommandButton.1")
With Obj
.Left = 50
.Top = 50
.Width = 120
.Height = 30
.Object.Caption = "Supprimer donn&#233;es feuille"
End With


laMacro = "Sub CommandButton1_Click()" & vbCrLf
laMacro = laMacro & "Cells.Clear" & vbCrLf
laMacro = laMacro & "End Sub"


With Wb.VBProject.VBComponents(ActiveSheet.Name).CodeModule
x = .CountOfLines + 1
.InsertLines x, laMacro
End With


End Sub

bonne soiree
michel

cs_petchy · Answer

salut Michel
merci pour se code
petchy

Intégré un bouton dans excel par VB6

2 réponses

Discussions similaires