recopier un feuille sans vba associé

C

Catrice

XLDnaute Barbatruc

• 4 Décembre 2008

• #16

Re : recopier un feuille sans vba associé

Bonsoir,

ci-joint une autre solution.

La macro ouvre le fichier, l'enregistre sous un autre nom, supprime : Modules, codes, modules de classe, Userforms; fait un copier/coller valeurs et ferme le fichier.

Ca prend un certain temps ...
Le code est dans le Module2

 

Pièces jointes

• Copieur.xls

  37 KB · Affichages: 130
• Copieur.xls

  37 KB · Affichages: 104
• Copieur.xls

  37 KB · Affichages: 152

Vote positif 0 Vote négatif

A

Aimy67

Guest

• 7 Août 2018

• #17

Bonjour,

Je rebondie sur cette discussion car je rencontre une problématique similaire.

J'ai créé une macro qui me permet de copier un onglet d'un fichier Excel dans un nouveau classeur et de l'enregistrer à l'emplacement souhaité.
Pas de soucis jusque là.

Par contre mon problème est que le bouton de commande qui déclenche ma macro (bouton de formulaire), est également copier.

Comment faire pour que celui-ci soit masqué ou supprimer ?

Merci pour votre aide précieuse.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 7 Août 2018

• #18

Bonjour Aimy67, bienvenue sur XLD,

Il est facile de supprimer les objets qui ont été collés dans la feuille active :

Code:

ActiveSheet.DrawingObjects.Delete

A+

 

Vote positif 0 Vote négatif

A

Aimy67

Guest

• 7 Août 2018

• #19

Je vous remercie, le code marche parfaitement même trop bien 😉
J'ai également dans ma page un graphique qui est de fait supprimé en même temps.
Je souhaiterais masquer ou supprimer uniquement le bouton.

Est ce que c'est possible selon vous ?

Merci par avance

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 7 Août 2018

• #20

Re,

Aimy67 à dit:

Je souhaiterais masquer ou supprimer uniquement le bouton.

Cliquez pour agrandir...

Comme ceci :

Code:

Dim o As Object
For Each o In ActiveSheet.DrawingObjects
    If TypeName(o) = "Button" Then o.Delete
Next

ou comme cela :

Code:

Dim o As Object
For Each o In ActiveSheet.DrawingObjects
    If TypeName(o) <> "ChartObject" Then o.Delete
Next

A+

 

Vote positif 0 Vote négatif

A

Aimy67

Guest

• 8 Août 2018

• #21

Cela marche parfaitement.

Merci beaucoup pour votre aide précieuse 🙂

 

Vote positif 0 Vote négatif