recopier un feuille sans vba associé

[jhofman]

bonjour,


je souhaite recopier intégralement des feuilles d'un classeur
en valeur, format (sans les formules) avec toutes les mises en formes complexes MAIS aussi sans reprendre le code VBA associé à chacune des feuilles?

soit dans même classeur, soit dans un nouveau classeur
Merci de votre aide.
José

 

[Catrice]

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

 

[Aimy67]

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.

 

[job75]

Bonjour Aimy67, bienvenue sur XLD,

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

ActiveSheet.DrawingObjects.Delete

A+

 

[Aimy67]

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

 

[job75]

Re,

Je souhaiterais masquer ou supprimer uniquement le bouton.

Comme ceci :

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

ou comme cela :

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

A+

 

[Aimy67]

Cela marche parfaitement.

Merci beaucoup pour votre aide précieuse