Discussion :

[graphikris]

Bonjour,

J'essaye de comprendre à quoi peut etre dû le pb sur la fonction "ExecuteExcel4macro" mais je ne comprend pas. La macro a été faite il y a trois ans et devait certainement fonctionner a l'epoque. A ce jour je dois essayer de faire la faire fonctionner mais je ne connaît pas cette fonction, ni a quoi elle peut servir.
Ca bug à la ligne 10 ou 14 selon si on est Lundi ou un autre jour.
Je n'ai pas de message d'erreur mais je tombe en débogage sur ces lignes.

Avis aux yeux aiguisés : Y a-t-il une erreur dans 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
Dim chemin As String
    Dim ValHier As Double
    Dim ValBilan As Double
    Dim ValNow As Double
 
    If jour = "lundi" Then
        chemin = "'T:\PARTAGE\Prod\Amélioration continue\Cellule Amélioration Continue\04 - ORP\Feuille audit ORP saisies\Evolution DDA[" & nomfichier & "]GRAPH'!R" & lig & "C" & colh
        ValHier = ExecuteExcel4Macro(chemin)
        chemin = "'T:\PARTAGE\Prod\Amélioration continue\Cellule Amélioration Continue\04 - ORP\Feuille audit ORP saisies\Evolution DDA[" & nomfichier & "]GRAPH'!R" & lig & "C" & colb
        ValBilan = ExecuteExcel4Macro(chemin)
    Else
        ValHier = ThisWorkbook.Sheets("GRAPH").Cells(lig, colh).Value
        chemin = "'T:\PARTAGE\Prod\Amélioration continue\Cellule Amélioration Continue\04 - ORP\Feuille audit ORP saisies\Evolution DDA[" & nomfichier & "]GRAPH'!R" & lig & "C" & colb
        ValBilan = ExecuteExcel4Macro(chemin)
    End If

En vous remerciant.

[Souriane]

Bonjour!

La fonction ExecuteExcel4macro permet de lire une cellule dans un fichier fermé.

À mon avis, la macro que tu nous montre est appelée par une autre car tu as des variable non définies (nomfichier, lig, colh)

Bonne chance!

Souriane

[RyuAutodidacte]

Bonjour,
J'ai laissé un lien sur ce post, dont le code est assez explicite
C'est ici

[graphikris]

merci a vous deux,
je potasse le lien.
@+

[RyuAutodidacte]

Je remets le lien direct c'est plus simple
https://www.developpez.net/forums/d5...a/#post3278272
Comment ça potasser il suffit de créer des variables du fichier fermé :
Dossier => le chemin du dossier
Fichier => le nom du fichier
Feuille => la feuille visée
Cellule => la cellule à atteindre

C'est qd même très claire; précision, il faut apparemment utilisé le mode R1C1, ce qui est fait automatiquement dans le code