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
et ensuite dans ma feuille excel j'ai tout mon programme de mise à jour
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
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
Partager