Problème sur une macro ( Ligne de code )

Bonjour,

Pour commencer c'est un fichier que je n'ai pas développé moi même.

je rencontre un problème sur un fichier xlsm. à l'ouverture de ce fichier il ouvre un autre fichier et exécute une macro.

ci-dessous le code

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

Dim xlWk As Workbook Dim bResulTrait As Boolean Dim bRefreshPilotage As Boolean   'Initialisations Ouverture = False lTempsRefresh = lTempsRefreshMini   'Récupération des infos sources Set xlWk = Application.Workbooks.Open(Filename:=sPathPilotage, ReadOnly:=True) Application.EnableEvents = True bRefreshPilotage = Application.Run(xlWk.Name & "!" & "Rafraîchir_Sources") 'L'exécution s'arrête à ce niveau là If bRefreshPilotage Then If Not Fichier_Verrouillé(sPathPilotage) Then xlWk.Close (False) Set xlWk = Application.Workbooks.Open(Filename:=sPathPilotage, ReadOnly:=False) End If End If bResulTrait = Application.Run(xlWk.Name & "!" & "Traitement_Ouverture", ThisWorkbook) xlWk.Close (False) Set xlWk = Nothing   If Not bResulTrait Then Exit Function End If

---

et j'ai ce message d'erreur

Pièce jointe 497340



en vérifiant le fichier qu'il ouvre je me rends compte que la macro "Rafraîchir_Sources" n'est pas disponible mais il y a une fonction à ce nom.

je ne sais pas si une fonction pourrait être appelée de cette manière.

Merci de me dire comment je dois faire

Bonne journée

Bonjour,

Citation:

---

Envoyé par Pittouti

je ne sais pas si une fonction pourrait être appelée de cette manière.

---

Surement pas car une fonction fourni un résultat donc

Code:

---

résultat = fonction(paramètres)

---

alors qu'avec 'Run' tu lances une procédure qui exécute son code et rend la main quand elle a fini.

Selon ce que tu veux faire il faut donc mettre ton code en adéquation, soit récupérer le résultat de ta fonction soit transformer ta fonction en procédure 'sub'.