Discussion :

[Jason T]

Bonjour a tous et a toutes,

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

[Jason T]

Le problème vient à mon avis de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Jason T]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[Jason T]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[Pierre Fauconnier]

Salut...

Sur quelle ligne plante-t-il?

[Jason T]

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 :

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