Discussion :

[patricktoulon]

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

[Menhir]

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 ?

[patricktoulon]

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 :

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

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 :

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

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 ?

[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

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().