Intégrer une sub dans un fichier excel
Bonjour,
Je reviens vers vous car je bloque vraiment sur un problème depuis ce weekend, mes essais n'ont pas eu de succès.
Je vous explique, je fais du Access-VBA, et je crée un fichier excel que je remplie grâce à mes BDD dans Access. Je le fais de la façon suivante:
Code:
1
2
3
4
5
6
7
8
|
Set App = CreateObject("Excel.Application")
App.Visible = False
Set Book = App.Workbooks.Add
'Feuilles de calculs
Set xlSheet = Book.Worksheets.Add
xlSheet.Name = "Nom De Ma Feuille" |
J'ai ensuite un tas d'opérations qui remplissent mon fichier excel.
A ce fichier, j'y ai ajouté un bouton de la façon suivante:
Code:
1
2
3
4
5
| With xlSheet.Buttons
.Add(400, 30, 70, 30).Select
.OnAction = "xlSheet.Verif"
.Caption = "Vérifications"
End With |
Verif est une Sub que j'ai défini dans le même module.
Jusque là tout va bien.
Mais voilà, quand j'ouvre mon fichier Excel et que je clique sur le bouton, j'ai une erreur. Normal sûrement, la sub n'est pas intégré automatiquement à mon fichier excel ainsi créé.
Alors, je cherche un moyen d'intégrer ma sub dans ce fichier pour que mon bouton devienne fonctionnel.
En espérant que vous pourrez m'aider à résoudre ce petit casse-tête. Je vous remercie en tout cas.
