Import page web bouton command

[Hoareau]

Bonjour

En passant par données web import, j'ai récupérer une page web format web

un bouton de commande est dessus, je voudrais l'enver par macro

je dois copier la selection dans une page et le bouton viens avec

merci

 

[jetted]

Re : Import page web bouton command

Essai ce code

Sub delShapesOnSht()
 
  If ActiveSheet.Shapes.Count = 0 Then
     MsgBox "No Shapes on page for deletion"
     Exit Sub
  End If
  ActiveSheet.Shapes.SelectAll  '*** warning DELETE all Shapes
  Selection.Delete
End Sub

 

[Hoareau]

Re : Import page web bouton command (Resolu]

Impeccable

merci

Je vais chercher à quoi correspond ces shapes