Sauvegarder en .XLA ou macro complémentaire

Salut G'Claire,

pour créer un bouton, mets ça dans this_workbook.

Private Sub Workbook_Open()

On Error GoTo fin
Set Bo = Application.CommandBars.Add(Name:="Coucou", Position:=msoBarLeft)
Bo.Visible = True

With Bo.Controls.Add(msoControlButton)

.Style = msoButtonIconAndCaption
.TooltipText = "lance la premiere procédure"
.Caption = "Run macro1"
.FaceId = 2950
.OnAction = ThisWorkbook.Name & "!macro1"
End With
Bo.Visible = True
Exit Sub
fin:
End Sub

pour créer une macro complémentaire (=.xla pour XL Addin)
dans les propriété de this_workbook: IsAddin=True

pour le lancer automatiquement à l'ouverture d'excel
place le classeur dans:
D:\Program Files\Microsoft Office\Office\XLStart

Voili, voilou;

A++, Sylsyl.

Sylsyl, le foru

Merci pour ta réponse, en faite j'y suis arrivé mais le problème c'est que cela n'a pas l'aire d'aimer l'activation de feuille car a l'Ouverture d'Excel cela beug a :

Sub calculnombrefiches()

'Si évolution d'entrée ne rien ajouter
Sheets("Tool_Dossiers").Activate
Sheets("Tool_Dossiers").Range("f1").Value = Range("A65500", Range("A7").End(xlDown)).Row - 7

If Sheets("Tool_Dossiers").Range("A8").Value = "" Then
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


et j'ai surligné en jaune

Sheets("Tool_Dossiers").Activate

Es-ce normal docteur?

Meci, G'Claire

Re,

oui c'est normal pour 2 raisons possibles (peut etre plus !!)
La première est qu'un classeur .xla est un classeur sans vraiment l'être.
Je pense que les feuilles peuvent être utilisé qu'en "base de données cachées" et tu ne peux donc pas les activées ("activate").
Mes .xla n'utilisent pas leurs propres feuilles donc je n'ai jamais eu ton pb.
De toute facon, Sheets("Tool_Dossiers").Activate est inutile puisque tu remets Sheets("Tool_Dossiers").Range("f1").Value ensuite.

D'autres part, tu as plusieurs classeurs d'ouvert, à ta place je mettrais "ThisWorkbook.Sheets("Tool_Dossiers").Range("f1").Value "

Au final, ça donnerait:

Sub calculnombrefiches()

'Si évolution d'entrée ne rien ajouter
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

ou alors remplacer "Activate" par "Select", je sais pas...

Bon courage, A++ ,Sylsyl.

Sylsyl, le forum

Merci de tes conseils, je vais chercher encor.

Merci et A+, G'Claire

Sylsyl, le forum

Rien a faire, cela me met une erreur : L'indice n'appartient pas a la sélection dans ce code


Sub calculnombrefiches()

'Si évolution d'entrée ne rien ajouter
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

Au niveau de :

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

Merci de votre aide, G'Claire