Macro complémentaire

Salut a toutes et a tous

Je vous relance sur la possibilité de lancer mon application dés l'ouverture d'Excel

<http://www.excel-downloads.com/html/French/forum/messages/1_69537_69537.htm>

Voici un peu le materiel de cette application.

4 Feuilles :

Tool_Intervenants
Tool_Dossiers
Tool_Entete
Tool_Clients

12 Modules :

ModuleAjout
ModuleCalculeNbDeFiche
ModuleChargement
ModuleCheminDeFichier
ModuleCodeTimer
ModuleGestionBoutonsMenu
ModuleImprimerEntète
ModuleLancer
ModuleSon
ModuleTest
ModuleOrdreAlphaAjoutCableur
ModuleOrdreAlphaAjoutCableurResul

et 14 UserForm :

Résultat
UserForm1
UserForm2
UserForm3
USF_AjoutCableur
USF_AjoutCableurResultat
USF_EnregistrementBaseDeDonnée
USF_EnteesSortiesDossiers
USF_FicheCréeeEtImpression
USF_FicheCréeeEtImpressionModif
USF_GestionCableur
USF_ImprimerLesBasesDeDonnees
Usf_ListesDesSorties
USF_GestionDesClients

et le ThisWorkbook

J'ai tenue compte des onservation de Sylsyl et je le remercie.

Mais a priori on ne peu pas faire une macro complémentaire quand on active des feuille, alors quelle solution pourrai-je avoir.


Voici le dernier message d'erreur :

L'indice n'appartient pas a la sélection :

Dans le code :

Sub calculnombrefiches()

ThisWorkbook.Sheets("Tool_Dossiers").Range("f1").Value = Range("A65500", Range("A7").End(xlDown)).Row - 7

If ThisWorkbook.sheets("Tool_Dossiers").Range("A8").Value = "" Then
ThisWorkbook.Sheets("Tool_Dossiers").Range("f1").Value = 0
End If

UserForm1.Label3.Caption = " Il y a actuellement " & Sheets("Tool_Dossiers").Range("F1").Value & " fiche(s) de créée(s) dans cette base . "

End Sub

Sur la ligne

UserForm1.Label3.Caption = " Il y a actuellement " & Sheets("Tool_Dossiers").Range("F1").Value & " fiche(s) de créée(s) dans cette base . "

Es-ce réalisable ou pas, merci d'avance pour toute suggestion, G'Claire