G
G'Claire
Guest
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
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