Un problème de lancement macro excel

Version imprimable

Bonjour a tous et a toutes,

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
30
31
32
33
34
35
36
37
38
39
Private Sub Commande12_Click()
On Error GoTo Err_Commande12_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
Dim Appli As Object
Set Appli = CreateObject("Excel.Application")
Dim ok As Boolean
ok = False
 
Dim Canal As String
 
Appli.Workbooks.Open (CurrentProject.Path & "\Param_Veilleur.xls")
 
If Me!Modifiable9 = Null Then
 
MsgBox "Sélectionnez votre région"
Else
Canal = CurrentProject.Path & "\Sessions\" & Me!Modifiable9 & ".edp"
ok = [RunMacro VerifCode(Me!Texte5, Me!Texte7, Canal)]
If ok Then
    stDocName = "MENU"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
 
    MsgBox "Mauvais Code et/ou Clef"
 
End If
End If
 
Exit_Commande12_Click:
    Exit Sub
 
Err_Commande12_Click:
    MsgBox Err.Description
    Resume Exit_Commande12_Click
 
End Sub

Après avoir rempli mon formulaire quand je clic sur le bouton déclenchant le code ci dessus, il me sort une erreur.

Erreur : Impossible de Trouver le champ "|" auquel il est fait référence dans votre expression.

Merci d'avance

29/05/2009, 11h54
Jason T

Le problème vient à mon avis de :

Code:

ok = [RunMacro VerifCode(Me!Texte5, Me!Texte7, Canal)]

En faite, je veux récupérer le résultat de VerifCode qui est une fonction booléenne et j'imagine que c est pas comme ça qu'il faut le faire.
29/05/2009, 12h09
Jason T

Code:

Appli.RunMacro "VerifCode", Me!Texte5, Me!Texte7, Canal

Bon voici la bonne syntaxe de lancement de la macro.
Mais je ne peux pas la placer dans mon If then comme expression quelqu'un saurait il repondre a cette question !
29/05/2009, 17h15
Jason T

Code:

Appli.Run VerifCode, Me!Texte5, Me!Texte7, Canal

En faite, voilà la bonne syntaxe mais le programme bug toujuors dessus.
Il me dit : Impossible de Trouver Modifiable2

Alors que je ne m en sers pas de ce modifiable2. J y comprends plus rien !
29/05/2009, 17h17
Pierre Fauconnier

Salut...

Sur quelle ligne plante-t-il?

Access ne dit pas sur quelle ligne il plante. Mais je suis sûr que cela est due à l'expression que je met dans mon if then.

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Private Sub Commande12_Click()
On Error GoTo Err_Commande12_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
Dim Canal As String, code As String, clef As String, x As String
Canal = CurrentProject.Path & "\Sessions\" & Me!Modifiable9 & ".edp"
Dim ok As Boolean
Dim y As String
y = CurrentProject.Path
ok = False
code = Me!Texte5
clef = Me!Texte7
x = Me!Modifiable9
Dim Appli As Object
Set Appli = CreateObject("Excel.Application")
 
 
 
 
If x = Null Then
 
MsgBox "Sélectionnez votre région"
Else
Appli.Workbooks.Open (y & "\Param_Veilleur.xls")
 
If [Appli.Run VerifCode, code, clef, Canal] Then '<==== ICI
MsgBox "coucou"
    stDocName = "MENU"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
 
    MsgBox "Mauvais Code et/ou Clef"
 
End If
End If
 
Exit_Commande12_Click:
    Exit Sub
 
Err_Commande12_Click:
    MsgBox Err.Description
    Resume Exit_Commande12_Click
 
End Sub

Tout ce que je voudrais faire, c est recupérer la valeur de la macro ( booléenne) VerifCode afin de pouvoir l'utiliser.

Si quelqu'un voit où est l'erreur, merci de m'aider