Creation d'un événement Worksheet_AfterCopy [Résolu]

[fama78]

Bonjour à tous,

Je souhaiterais dans le cadres d'une macro VBA copier une feuille sans les bouton (exporter les données en quelque sorte) sans que l'utilisateur n'ait à appuyer sur un bouton. Bref, que les bouton de macro disparaissent de la feuille dès lors que la feuille est copiée vers un autre classeur.

J'ai essayé de créer un événement Worksheet_AfterCopy mais ça ne fonctionne pas???
Si quelqu'un a une solution intéressante je suis partante (sans passer par un bouton de macro).

Je bosse sur Excel 2003.

[bbil]

quel est le code utilisé pour la copie ?

[fama78]

là est la subtilité... il n'ya pas de code à proprement dit.

C'est lorsque l'utilisateur fait clic droit sur l'onglet de sa feuille et sélectionne "Deplacer ou copier..."

Y-a-t-il une solution sans passer par un bouton de macro?

Je vais reprécisez ma demande car je vois que ça n'a pas l'air clair.

Ce que je voudrait en comme c'est créer un module de classe avec l'événment Worksheet_Copy (le code se générerait au moment où l'utilisateur après un clic droit sur l'onglet de la feuille la déplacera ou la copiera...)

J'espère que vous serez plus inspirez que moi (je suis nulle quand on part dans la programmartion de module de classe).

Un bouton ne résouderait qu'en partie le problème (y'aura toujours quelqu'un pour copier la feuille avec le clic droit sur l'onglet)

[Qwazerty]

Salut

Ça me parait pas simple...
Pour pouvoir ajouter un tel évènement il faudrait sans doute piéger l'appelle de l'API responsable de la copy...

Au lieu de supprimer les boutons, pourquoi dans le code des boutons ne pas tenir compte du nom (ou encore mieux du CodeName) de la feuille, la macro ne s’exécuterait que si celle-ci est appelée par la feuille "principale".

Ou alors demander la destruction des boutons lors de l'affichage de l'onglet si le Name ou CodeName ne correspond pas à la feuille principale.

++
Qwaz

[bbil]

Je ne connais pas d'événements Worksheet_AfterCopy ...

mais tu peu utiliser l'événement _SheetActivate de l'objet application :

module de classe clApp

Code :

1
2
3
4
5
6
7
8
Public WithEvents App As Application
 
Private Sub App_SheetActivate(ByVal sh As Object)
 
 
 MsgBox "Nouvelle feuille " & sh.Name & " Classeur : " & sh.Parent.Name
 
End Sub

reste à adapter de façon à supprimer le bouton s'il est présent ...


Code d'initialisation dans un module :

Code :

1
2
3
4
Dim X As New clAPP
  Sub InitializeApp()
    Set X.App = Application
End Sub

[Fvandermeulen]

Envoyé par fama78

...
Un bouton ne résouderait qu'en partie le problème (y'aura toujours quelqu'un pour copier la feuille avec le clic droit sur l'onglet)

Sauf si tu mets une protection sur ton classeur.
Par exemple à l'activation de la feuille concernée (tu peux aussi le faire à l'ouverture du classeur, ou de manière permanente)

Code :

1
2
3
4
5
Private Sub Worksheet_Activate()
 
ActiveWorkbook.Protect Password:="LeMotDePasse", Structure:=True, Windows:=True
 
End Sub

Sans oublier la désactivation si tu quitte la feuille

Code :

1
2
3
4
Private Sub Worksheet_Deactivate()
 
ActiveWorkbook.Unprotect Password:="LeMotDePasse"
End Sub

Tu n'as plus qu'a désactiver la protection au moment voulu dans ta procédure liée à ton bouton pour la remEttre ensuite.

Pour contourner, l'utilisateur doit cracker le mot de passe, je sais que c'est possible mais bon, faut pas pousser

[fama78]

Merci pour toutes vos réponses je veux prendre un peu de tout ça et voir ce que cela donne (protection de la feuille, masquer les onglets et création d'un bouton "copier la feuille".