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:
J'ai ensuite un tas d'opérations qui remplissent mon fichier excel.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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"
A ce fichier, j'y ai ajouté un bouton de la façon suivante:
Verif est une Sub que j'ai défini dans le même module.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 With xlSheet.Buttons .Add(400, 30, 70, 30).Select .OnAction = "xlSheet.Verif" .Caption = "Vérifications" End With
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.
Partager