VBA Excel/Access. Définir une variante par msgbox et utiliser la variante dans Excel et acess
Bonjour,
voici mon problème, je dispose d'une tache planifiée qui lance une base Acess, qui lance elle même un fichier excel.
le VBA dans Access:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
Function Modif_extract()
DoCmd.SetWarnings False
'Déclaration des variables de connexion a Excel
Dim appexcel As Excel.Application
Dim wbexcel As Excel.WorkBook
'Lien avec le fichier
Set appexcel = CreateObject("Excel.Application")
Set wbexcel = appexcel.Workbooks.Open("K:file1.xls")
'Sélection de la feuille
appexcel.Application.Run "MAJ"
'Suppressionage des variables
Set appexcel = Nothing
Set wbexcel = Nothing
DoCmd.OpenQuery "104", acViewNormal, acEdit
DoCmd.OpenQuery "801", acViewNormal, acEdit
DoCmd.OpenQuery "803", acViewNormal, acEdit
DoCmd.OpenQuery "804", acViewNormal, acEdit
DoCmd.OpenQuery "805", acViewNormal, acEdit
DoCmd.SetWarnings True |
J'aimerais définir une "variable" par msgbox, cette variable serait utilisée à plusieurs endroits :
Quand je lance la macro Excel :
Activecell = Variable
Quand je lance les requeêtes Acess, Acess me demande le contenu d'un champ = Variable
En résumé, j'aimerais votre aide pour :
- Définir une variable par un msgbox, une variable pouvant s'utiliser dans les deux logiciels
- Un code pour répondre "variable" quand Acess me demande le contenu d'un champ!
Merci d'avance, je suis à votre disposition si je ne suis pas assez clair!
cdt
