XL 2019 formule dyamique

ESCOUGER2022

XLDnaute Nouveau
Bonsoir,
Dans une cellule (G2), j'ai construit le nom d'un fichier et le nom d'une cellule de ce même fichier
Dans une autre cellule (H2) je voudrais aller chercher la valeur de cette cellule dans le fichier dont le nom est dans G2
Voyez ce que j'ai fait, qui ne fonctionne pas.
Est-ce seulement possible de faire cela ?
Merci de votre aide
 

Pièces jointes

  • SUIVI.xlsm
    25.6 KB · Affichages: 16
Solution
Une autre solution dans ce fichier (3) avec une fonction VBA qui utilise la méthode ADO :
VB:
Function Resu(chemin$, fichier$, nom$)
Dim cn As Object, rs As Object
fichier = chemin & fichier
Set cn = CreateObject("ADODB.Connection")
cn.Open = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & fichier & ";Extended Properties=""Excel 12.0;HDR=No;IMEX=1;"""
Set rs = cn.Execute("SELECT * FROM [" & nom & "]")
Resu = rs.Fields.Item(0)
rs.Close
cn.Close
End Function
Ce code doit être placé impérativement dans un module standard.

Formule en F2 =Resu(B2;C2&D2;E2)

A+

ESCOUGER2022

XLDnaute Nouveau
Celle-ci.
Function Resu(chemin$, fichier$, nom$)
Dim cn As Object, rs As Object
fichier = chemin & fichier
Set cn = CreateObject("ADODB.Connection")
cn.Open = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & fichier & ";Extended Properties=""Excel 12.0;HDR=No;IMEX=1;"""
Set rs = cn.Execute("SELECT * FROM [" & nom & "]")
Resu = rs.Fields.Item(0)
rs.Close
cn.Close
End Function
 

Discussions similaires

Réponses
5
Affichages
245