Bonjour,

Je suis pas du genre à demander de l'aide mais sa fait 2 jours que je me prend la tête sur une fonction pour aller récupérer des valeurs de plusieurs fichiers excel fermé...
Etant donné que la formule indirect ne fonctionne pas sur des classeurs fermés j'ai du créer une fonction similaire, en voici 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
16
17
18
Public Function GetVal(ByVal search_colonne As String)
 
  Dim chemin As String, valeur
  With ActiveCell
      chemin = "'\\DSFR451-FS0001\Common_A\Suivi\Suivi des heures\" & Cells(.Row, 2) & "\SUIVI HEURES " & Cells(.Row, 2) & "\" & _
                  Cells(.Row, 4) & "\[" & Cells(.Row, 2) & "-W" & Cells(.Row, 5) & ".xlsm]Semaine'!" & _
                  Range(search_colonne & Range(Cells(.Row, 6))).Address(, , xlR1C1)
 
    If Dir("\\DSFR451-FS0001\Common_A\Suivi\Suivi des heures\" & Cells(.Row, 2) & "\SUIVI HEURES " & Cells(.Row, 2) & _
            "\" & Cells(.Row, 4) & "\" & Cells(.Row, 2) & "-W" & Cells(.Row, 5) & ".xlsm") = "" Then
      valeur = 0
    Else
      valeur = ExecuteExcel4Macro(chemin)
    End If
  End With
  GetVal = valeur
 
End Function
quand je test dans un sub cela fonctionne parfaitement mais quand je l'utilise dans une cellule j'ai un #VALEUR!

je ne vois pas pourquoi il ne m'affiche pas la valeur

pourriez-vous me dire ce que j'ai mal fait ???