Discussion :

[dimitrios]

Bonjour à tous

j'ai un petit problème, j'aimerai supprimer un bouton qui figure sur une feuille Excel.

Je m'explique :
En fait, je voudrai supprimer un bouton d'une feuille Excel à partir d'Access.

Merci de me repondre

[SilkyRoad]

bonjour

j'espere que ces infos pourront t'aider

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
18
19
20
21
22
23
24
Dim Obj As Excel.OLEObject
 
Dim oAppExcel As Excel.Application
Dim oWbk As Excel.Workbook
Dim oSht As Excel.Worksheet
 
'Lance Excel
Set oAppExcel = New Excel.Application
oAppExcel.Visible = True
'Ouvre le classeur
Set oWbk = oAppExcel.Workbooks.Open("C:\ClasseurTest.xls")
'Accède à la feuille
Set oSht = oWbk.Sheets("Feuil1")
 
Set Obj = oSht.OLEObjects("CommandButton1")
Obj.Delete
 
 
'Libère les variables et quitte
'Set oSht = Nothing
'oWbk.Close
'oAppExcel.Quit
'Set oWbk = Nothing
'Set oAppExcel = Nothing

michel

[dimitrios]

c'est super ca marche !!!

je te remercie.