Discussion :

[goldenboy10]

Bonjour,

Je suis une procédure. Est il possible de savoir quelle autre procédure m'a appelé ?
Merci

[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

[goldenboy10]

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

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

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

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

[Gold Bug]

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

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

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

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 ?

[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