Bonjour à tous,

je vous expose mon problème:

je travaille sur une base Access et je met à jour ma base via un fichier excel, depuis un formulaire access sur lequel j'ai un bouton

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
 
Private Sub Cmd_open_base_Click()
 
Dim Xl As Excel.Application
Dim Classeur As Excel.Workbook
Dim Feuille As Excel.Worksheet
 
'Ouvre Excel
Set Xl = New Excel.Application
Xl.Visible = True
Set Classeur = Xl.Workbooks.Open("C:\fichier.xlsm")
Set Feuille = Classeur.Worksheets("DATA")
Feuille.Activate
 
End Sub
et ensuite dans ma feuille excel j'ai tout mon programme de mise à jour
tout ce ci fonctionne très bien par contre là ou je rencontre un soucis c'est que je voudrais afficher une popup qui me dise "vous venez de créer le bordereau n° ...

ceci fonctionne dans excel à la fin de mon insertion:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 
'*********************************
'code avant supprimé pour moins long
'*********************************
 
 MsgBox "Le bordereau n° " & colA & " a été créé/modifié", vbQuestion + vbYes, "Bordereau créé/modifié"
 
'Je sauvegarde et ferme le fichier n° bordereau qui vient d'être créé
 
    Windows(nbdx & ".xlsm").Close SaveChanges:=True
    Application.Quit
 
 
End Sub

Par contre ce que je voudrais c'est pouvoir afficher cette popup non pas dans excel mais dans access et la je ne sais pas du tout si c'est possible et si oui comment faire

en fait dans excel ca fonctionne mais ca laisse excel ouvert et demande une validation a l'utilisateur (alors que sans cette popup excel se referme sans que l'utilisateur n'aie à toucher quoique ce soit.

je voudrais qu'une fois qu'Excel a fini sa mise à jour et se ferme la popup s'affiche sur mon formlaire access de depart

merci de votre aide
blado_sap