bonjour a tous
juste pour ma culture j'aimerais savoir pourquoi evaluate me renvoie une erreur alors que la formule est bonne dans une cellule ou avec executeExcel4macro


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
Sub test2()
Dim repertoire$, fichier$, feuille$
 
    repertoire = "C:\Users\polux\DeskTop\"
    fichier = "toto.xlsm"
    feuille = "Alerte_qualité_fournisseur"
 
    Formula1 = "'" & repertoire & "[" & fichier & "]" & feuille & "'!" & "R4C3"
    If Not IsError(ExecuteExcel4Macro(Formula1)) Then
        MsgBox ExecuteExcel4Macro(Formula1)
    End If
    Debug.Print Formula1
 
    Formula2 = "='" & repertoire & "[" & fichier & "]" & feuille & "'!" & "R4C3"
    If Not IsError(Evaluate(Formula2)) Then
        MsgBox Evaluate(Formula2)
    End If
    Debug.Print Formula2
 
End Sub