Discussion :

[RapTure]

Bonjour,

J'ai une feuille excel dans un classeur qui contient un tableau, une image, et des formes (en guises de boutons). Un des boutons me permet d'envoyer cette feuille dans un autre classeur à l'aide de ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub macro()
 Dim objWorkbookCible As Workbook
 Dim objworkbooksource As Workbook
  Set objworkbooksource = ActiveWorkbook
  Sheets("NomFeuille").Copy
  Set objWorkbookCible = ActiveWorkbook
  ActiveWorkbook.SaveAs "NomdemonfichierCréé"
End Sub

Le fichier se créer bien. Cependant j'aimerais supprimer les boutons pour n'avoir que le tableau et l'image.
Je rajoute donc ce bout de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.DrawingObjects.Delete

Lorsque j'utilise ce code, cela supprime les boutons comme demandé mais aussi l'image que je voudrais garder..
Si quelqu'un a une solution pour ne supprimer que les boutons je suis preneur.
Merci d'avance!

[Menhir]

En fait, ton code pourrait se simplifier ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub macro()
   Sheets("NomFeuille").Copy
   ActiveWorkbook.SaveAs "NomdemonfichierCréé"
End Sub

Lorsque j'utilise ce code, cela supprime les boutons comme demandé mais aussi l'image que je voudrais garder..

Lorsqu'on copie une feuille, les formes gardent leur nom.
Donc, il suffit de désigner le bouton par son nom (je parle du nom d'objet, pas de ce qui est écrit dessus) pour le supprimer.
Par exemple, si ton bouton s'appelle "Oval 1", rajoute au code précédent (entre Copy et SaveAs) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Shapes("Oval 1").Delete

[RapTure]

Merci Menhir!

C'est exactement ce qu'il me fallait, je pensais pas que les formes avaient chacune leur identifiant.

Sur ce bonne soirée!

[Menhir]

je pensais pas que les formes avaient chacune leur identifiant.

Quasiment tous les objets ont un identifiant, voir même deux pour la plupart (un indice et un nom).