Discussion :

[Bonero]

Bonjour tout le monde,
Quelqu ‘un aurait il la gentillesse de m’expliquer pourquoi mon code ne marche pas ? en fait je veux afficher un message a chaque ouverture de tout classeur Excel existant sur mon pc.(cad un classeur qui a ete deja enregistré).

Dans un module de classe nommé ClassApp je mets :

Code :

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

1
2
3
4
Public WithEvents XL As Application
Private Sub XL_WorkbookOpen(ByVal Wb As Excel.Workbook)
     MsgBox "Ouverture du classeur :  " & Wb.FullName
End Sub

Dans un module standard je mets :

Code :

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

1
2
3
4
Dim X As New ClassApp
Sub Init()
	Set X.XL = Application
End sub

Dans le module de code de ThisWorkbook :

Code :

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

1
2
3
4
Private Sub Workbook_Open()
 
    Call Init
End Sub

Merci de m’expliquer si j’ai oublié de rajouter quelque chose ou il y a quelque de trop.

Cordiallement.

[tototiti2008]

Bonjour Bonero,

ça me semble bien

tu as bien fermé puis ouvert le classeur en question ?

Sur XL2003, ça fonctionne bien chez moi

[Bonero]

Bonjour Tototiti2008,
merci pour ta reponse.
Je ne sais pas a quoi ca sert de fermer et re-ouvrir le classeur qui contient mais ca marche a merveille.
Peux tu m expliquer le raisonnement qu il y a derriere cette astuce?

Merci d avance.

[tototiti2008]

Re,

tes évènements au niveau application sont initialisés par ça :

Code :

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

1
2
3
4
Private Sub Workbook_Open()
    
    Call Init
End Sub

Et ça ne se déclenche qu'à l'ouverture du classeur (Workbook_Open)...

[Bonero]

salut tototiti2008,
c'est encore moi. j'obtiens le bon resultat si le classeur qui contient les codes est ouvert. autrement il n y a rien qui se produit.je pensais que mes codes pouvaient fonctionner a l'ouverture de n importe quel classeur excel independemment du classeur excel qui est deja ouvert. peux tu m expliquer pourquoi ? merci d avance.

[tototiti2008]

Bonjour Bonero,

Pour que tes macros soient toujours actives, il faut que le classeur en question soit toujours ouvert (seul le code des classeurs ouverts peut être exécuté)

J'ai XL2003, je ne sais pas bien les différences qui arrivent avec 2007 pour la suite des explications...

Si ce n'est que sur ton poste, tu peux mettre ce code dans le classeur de macros personnelles (Perso.xls) qui se crée quand tu enregistre une macro dans le classeur de macros personnelles.
Ce classeur s'ouvre automatiquement avec Excel

Si tu veux déployer ça sur plusieurs postes, le mieux est de créer une macro complémentaire (.xla) qu'il faudra activer sur les postes en question