XL 2019 formule dyamique

ESCOUGER2022 · 1 Juillet 2022

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

job75 · 2 Juillet 2022

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 · 13 Juillet 2022

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

XL 2019 formule dyamique

ESCOUGER2022

XLDnaute Nouveau

Pièces jointes

job75

ESCOUGER2022

XLDnaute Nouveau

Discussions similaires