Re : Importer données sans ouvrir fichier source
Bonsoir Papou , jeanpierre, kiki29
Voici mon code personnalisé qui créer un message d'erreur en b6 : #REF!
A ce niveau je suis incapable de comprendre pourquoi !
Private Function ExtraireValeur(ByVal Dossier As String, ByVal Fichier As String, ByVal Feuille As String, ByVal Cellule As String)
Dim Argument As String
Argument = "'" & Dossier & "[" & Fichier & "]" & Feuille & "'!" & Range(Cellule).Address(, , xlR1C1)
ExtraireValeur = ExecuteExcel4Macro(Argument)
End Function
Sub test()
Dim sDossier As String
Dim sFichier As String
Dim sNomFeuille As String
Dim sCell As String
Dim nomdest As String
sDossier = ThisWorkbook.path & "\eps1\"
sFichier = "f_ele.dbf"
sNomFeuille = "f_ele"
sCell = "B6"
nomdest = ActiveWorkbook.Name
Workbooks(nomdest).Worksheets("feuil1").Range("b6") = ExtraireValeur(sDossier, sFichier, sNomFeuille, sCell)
End Sub
carlos