Mais quelle procédure appelle ?

Version imprimable

17/02/2009, 10h26
goldenboy10

Mais quelle procédure appelle ?

Bonjour,

Je suis une procédure. Est il possible de savoir quelle autre procédure m'a appelé ?
Merci
17/02/2009, 12h33
Gold Bug

Tu mets un point d'arrêt sur la dernière instruction de ta procédure, tu lances une exécution en mode debug, puis une fois arrivé sur ton point d'arrêt tu tapes F10 et tu regardes où est-ce que tu te retrouves.

C'est pas plus dur que ça :D

Re: Mais quelle procedure appelle?

voici ce que j'ai trouvé :
1ère solution :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub B()
 Call A("SubB")
 '...
End Sub
 
Sub C()
 Call A("SubC")
 '...
End Sub
 
Sub A(Caller As String)
 If Caller = "SubB" Then
    Workbooks.open (Path B)
 ElseIf Caller = "SubC" Then
    Workbooks.open (path C)
 End If
 '...
End Sub

2ème solution :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub B()
call A(Path B)
...
end sub
 
Sub C()
call A(Path C)
...
end sub
 
Sub A(Byref vsPath As String)
    Workbooks.open (vsPath)
    ...
End Sub

Citation:

Envoyé par goldenboy10

voici ce que j'ai trouvé :
1ère solution :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub B()
 Call A("SubB")
 '...
End Sub
 
Sub C()
 Call A("SubC")
 '...
End Sub
 
Sub A(Caller As String)
 If Caller = "SubB" Then
    Workbooks.open (Path B)
 ElseIf Caller = "SubC" Then
    Workbooks.open (path C)
 End If
 '...
End Sub

2ème solution :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub B()
call A(Path B)
...
end sub
 
Sub C()
call A(Path C)
...
end sub
 
Sub A(Byref vsPath As String)
    Workbooks.open (vsPath)
    ...
End Sub

J'y comprends plus rien.

C'est quoi ton besoin en fait ?

17/02/2009, 17h52
Sankasssss

Il voulait juste savoir quelle procédure appelait l'autre une fois qu'il était dans cette autre procédure.
Pourtant en regardant un peu ca solution c'est voyant :mouarf2: