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.