De mon coté j'ai essayé de progressé sur ce sujet mais je bloque toujours.
J'ai essayé les fonction indirect --> error #ref
j'ai téléchargé une macro valcell (voir en dessous) --> ne marche que si mes fichier sous sur un local
(mes documents sont sur un SharePoint http://..... et là la formule ne comprend pas.
j'ai installé indirect.ext mais je ne sais pas si cela fonctionne, j'ai pourtant suivit le tutoriel d'installation.
des idées ? formule ou macro peu importe tant que le résultat est là.
macro valcell, peut être pour les connaisseur de cette librairie on peut rajouter du code qui me permet d'aller cherché mes valeurs sur un sharePoint.:
Function ValCell(ByVal File As String, _
ByVal Feuille As String, ByVal Rg As String)
'ajouter une référence
'Microsoft ActiveX Data Objects 2.8 Library
Dim Rst As New ADODB.Recordset
Dim Conn As ADODB.Connection
Dim Requete As String
On Error Resume Next
Rg = Rg & ":" & Rg
Requete = "SELECT * FROM [" & Feuille & "$" & Rg & "]"
Set Conn = New ADODB.Connection
If Val(Application.Version) > 11 Then
Conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & File & ";" & _
"Extended Properties=""Excel 12.0;HDR=NO;IMEX=1;"";"
Else
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & File & ";" & _
"Extended Properties=""Excel 8.0;HDR=NO;IMEX=1;"";"
End If
Rst.Open Requete, Conn, adOpenStatic, adLockOptimistic
If Rst.RecordCount > 0 Then
ValCell = Rst(0).Value
Else
ValCell = "Pas trouvé"
End If
Rst.Close: Cnn.Quit
Set Rst = Nothing: Set Cnn = Nothing
End Function
Merci d'avance.