Mise à jour d'access depuis Excel
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:
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:
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