Discussion :

[Pittouti]

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 :

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





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

[anasecu]

Bonjour,

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 :

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

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