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 : 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"
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 : 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
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.