Macro à l'ouverture de tous les classeurs

[viniboy]

Bojour à toutes et à tous,


Je cherche à creer une macro qui démarre automatiquement à l'ouverture de tous les classeurs. Si on ouvre un classeur, n importe lequel, une msgbox 'coucou' apparait.

Peut-etre doit elle etre stockée dans perso.xls, je ne sais pas.

Merci à tous ceux qui pourraient m'aider. Bonne journée,
cordialement,
Vincent

 

[Abel]

Bonjour viniboy,

Oui, bonne idée.

Dans Perso.xls et dans 'ThisWorkbook' :

Private Sub Workbook_Open()
    MsgBox 'A que coucou !'
End Sub

En espérant que cela te dépanne.


Abel.

 

[viniboy]

Bonjour Abel,


Merci beaucoup, pour ta réponse. Malgré tout, cela ne fonctionne pas. Dans ce cas (d'aprés mes tests) cela lance la macro a chaque ouverture d'excel (et donc de perso.xls). Moi je cherche à ce que cela démarre a chaque ouverture d'un classeur quelconque, excel étant déja ouvert.

(en fait j'ai un logiciel qui exporte automatiquement des données sous excel et je voudrai qu'à chaque exportation, à l'arrivée dans excel, différentes procédures soient lancées).

Merci à tous pour vos réponses.

Cordialement,
Vincent

 

[myDearFriend!]

Bonsoir viniboy, Abel,

Pour ce type de code, il te faut intercepter les évènements au niveau Application et donc utiliser un module de classe.
Le plus simple pour ton cas me semble effectivement d'utiliser le classeur Perso.xls. Tu trouveras ci-joint un exemple simple.

[ol][li]Dans le module de code de l'objet ThisWorkbook :

Dim ApplicationClass As New Classe1

Private Sub Workbook_Open()
      Set ApplicationClass.App = Application
End Sub

[/li]
[li]Création d'un module de classe : depuis l'éditeur VBE, faire menu 'Insertion / Module de Classe'.[/li]
[li]Dans ce module de classe Classe1 :

Public WithEvents App As Application

Private Sub App_WorkbookOpen(ByVal Wb As Excel.Workbook)
      If Wb.Name <> ThisWorkbook.Name Then
            MsgBox 'Coucou !'
      End If
End Sub

[/li][/ol]
Cordialement, [file name=PERSO.zip size=7216]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PERSO.zip[/file]

 

[Abel]

Bonjour metek, mdf,

Oui effectivement ma solution ne fonctionne qu'à l'ouverture d'Excel.

Merci Didier.

Abel.