Private Sub Workbook_Activate()
Dim complement As AddIn
For Each complement In AddIns
If UCase(complement.Name) = "ANALYS32.XLL" Then complement.Installed = True
Next
End Sub
Ce message est de : http://excel.veriti.net/modules/newbb/viewtopic.php?post_id=309