Fonction ExecuteExcel4 macro(chemin)
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:
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.
