Discussion :

[gandalf20000000]

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 :

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
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

[Jean-Philippe André]

salut,

dans la fonction Run, tu peux passer des paramètres déjà

le messagebox qui permet de passer des valeur est InputBox.

Quant aux paramètres, je peux te proposer l'utilisation d'une table de paramètres