[Excel 2007] Macro complémentaire ...

[lenoil]

Bonjour à tous,

comment réaliser des macros complémentaires sous Excel et des add in extension xlam?

Avez vous des infos la dessus (comment les voir, les excéuter)

Merci beaucoup

[MichelXld]

bonjour


Tu crées tes macros dans un classeur normal et tu l'enregistres simplement au format xlam.


Tu trouveras quelques infos pour gérer les compléments dans ce lien

Présentation de Microsoft Office - Excel 2007 - Club d'entraide des développeurs francophones - Club d'entraide des développeurs francophones


Si tes macros complémentaires ne sont pas protégées par un mot de passe tu les voir dans l'explorateur de projet de l'editeur VBA.
Sinon , comme dans les versions précédentes d'Excel, tu peux créer des boutons par macro, qui s'afficheront dans l'onglet "Complément".



Bon après midi
MichelXld

[lenoil]

Merci beaucoup je vais regarder tout ça

et une macro complémentaire peut être active dans tous fichiers excel ?
Elle n'est pas lié à une feuille en particulier ?

Merci pour ta réponse

[MichelXld]

bonjour

et une macro complémentaire peut être active dans tous fichiers excel ?

OUi, c'est d'ailleurs l'intéret des macros complémentaires.



Bon après midi
MichelXld

[lenoil]

Ok merci c'est ce que j'ai vu

par contre comment accéder au fichier qui est en train d'être ouvert depuis mon code vba dans mon fichier xla.

J'ai essayé sur le workbook dans le xla mais le problème c'est que le fichier n'est pas encore ouvert ...

Comment faire ?

As tu une solution ?

Merci pour ton aide car je suis perdu pour l'instant

[MichelXld]

rebonjour


Voici un exemple simple à placer dans le module objet ThisWorkbook du classeur xla.
La procédure affiche le nom des classeurs qui sont ouverts après que le complément soit lancé.

Option Explicit
 
Public WithEvents XL As Excel.Application
 

Private Sub Workbook_Open()
  Set XL = Excel.Application
End Sub
 
 
Private Sub XL_WorkbookOpen(ByVal Wb As Workbook)
    'Affiche le nom du nouveau classeur ouvert
    If Wb.Name <> ThisWorkbook.Name Then MsgBox Wb.Name
End Sub

Bon après midi
MichelXld

[lenoil]

Merci MichelXLD tu es trop fort

Je pense que cela doit être ma solution

Merci beaucoup

A ++