Effectivement Juice, ca fonctionne...
Ce que je veux faire ne me semble pas bien compliqué et pourtant je bloque, je bloque...
J'ai décris mes Sub dans l'objet Thisworkwook et je dois avoir un problème d'ordre d'éxécution ?
Le voici en vrai Jean-Eric, et mon but et d'appeler ( Call) le nom de la Sub adéquate :
Sub Traitement_indicateur()
'
Dim nom_traitement As String, num_shape_input As String, nom_indicateur_traite As String
' Récupération du shape appelé
'
num_shape_input = Mid(Mid(Application.Caller, InStrRev(Application.Caller, "_") + 1), 6)
nom_indicateur_traite = Replace(Range("Nom_indicateur" & num_shape_input).Value, " ", "_")
nom_traitement = "Traitement_" & nom_indicateur_traite"
MsgBox "nom_indicateur_traite:" & nom_indicateur_traite & Chr(10) & "nom_traitement:" & nom_traitement
Call nom_traitement 'Traitement_GDI_Flux
' Run nom_traitement
End Sub
Sub Traitement_GDI_Flux()
End sub
et j'ai essayé de déclarer cette fonction :
Function nom_proc_traitement()
num_shape_input = Mid(Mid(Application.Caller, InStrRev(Application.Caller, "_") + 1), 6)
nom_indicateur_traite = Replace(Range("Nom_indicateur" & num_shape_input).Value, " ", "_")
nom_proc_traitement = "Call Traitement_" & nom_indicateur_traite & ""
End Function
et
Sub Traitement_indicateur()
nom_proc_traitement
End sub