evaluate ou executeExcel4macro

Version imprimable

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:

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

22/07/2019, 09h13
Menhir

Citation:

Envoyé par patricktoulon

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

Je ne comprends pas bien ta question.

Ta cellule contient-elle une formule classique Excel ou une vieille macro comme on en faisait avant VBA ?

En supposant que c'est le premier cas, je ne comprends pas ton problème : puisque la formule est dans une cellule, pour l'évaluer, il suffit d'utiliser la propriété Value de la cellule, non ?

Bonjour Menhir
je parle de valeur a récupérer dans un fichier fermé il n'est pas question d'évaluer une formule d'une cellule d'un le fichier fermé

je souhaiterais si c'est possible que la méthode evaluate me donne la même chose que ExecuteExcel4Macro dans le message
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub test2() Dim repertoire$, fichier$, feuille$ repertoire = "C:\Users\polux\DeskTop\" fichier = "toto.xlsm" feuille = "Feuil1" Formula1 = "'" & repertoire & "[" & fichier & "]" & feuille & "'!" & "R4C3" If Not IsError(ExecuteExcel4Macro(Formula1)) Then MsgBox ExecuteExcel4Macro(Formula1) End If Debug.Print Formula1 End Sub
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub test3() Dim repertoire$, fichier$, feuille$ repertoire = "C:\Users\polux\DeskTop\" fichier = "toto.xlsm" feuille = "Feuil1" Formula2 = "='" & repertoire & "[" & fichier & "]" & feuille & "'!" & "R4C3" If Not IsError(Evaluate(Formula2)) Then MsgBox Evaluate(Formula2) End If Debug.Print Formula2 End Sub
la formule2 fonctionne quand je la met dans une cellule du fichier B ,le fichier A etant celui qui est déterminé dans la formule2 donc evaluate devrait me le sortir aussi non ?

22/07/2019, 13h40
Menhir

Si c'est pour lire dans un fichier fermé, je ne saurais pas répondre.
J'ai toujours évité de faire de genre de chose.

Un détail quand même : normalement, la formule qu'on donne à un Evaluate ne commence pas par "=".
https://docs.microsoft.com/fr-fr/off...ation.evaluate

Citation:

Références externes. Vous pouvez utiliser l' ! opérateur pour faire référence à une cellule ou à un nom défini dans un autre classeur; par exemple, Evaluate("[BOOK1.XLS]Sheet1!A1").

Je n'ai pas de certitude sur le sujet mais je serais prêt à parier une pièce que ça ne fonctionne pas sur les fichiers fermés, un peu comme la fonction Excel INDIRECT().