Comment afficher dans un message box la valeur de la cellule d'un classeur qui est fermé ?

Copie les macros ci dessous dans un module et lance la macro tesgetvalue. Modifie bien sur les données en fonction de ce que tu souhaites.

 Private Function GetValue(path, file, sheet, ref) As String
  'path: The drive and path to the closed file (e.g., "D:iles")
  'file: The workbook name (e.g., "99budget.xls")
   'sheet: The worksheet name (e.g., "Sheet1")
   'ref:  The cell reference (e.g., "C4")
 
   Dim arg As String
 
 On Error GoTo HandleErr
   'Make sure the file exists
   If Right(path, 1) <> "" Then path = path & ""
   If Dir(path & file) = "" Then
     GetValue = "File Not Found"
     Exit Function
   End If
 
   'Create the argument
   arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
       Range(ref).Range("A1").Address(, , xlR1C1)
 
   'Execute an XLM macro
   GetValue = ExecuteExcel4Macro(arg)
 
 ExitHere:
  Exit Function
 
 HandleErr:
  Select Case Err.Number
    Case 13
      MsgBox "La feuille " & sheet & " n'existe pas !"
      End
    Case Else
      MsgBox "Erreur " & Err.Number & ": " & Err.Description,
 vbCritical, "Module1.GetValue" 'Gestionnaire d'erreurs:$=Module1.GetValue
  End Select
 End Function

sub TestGetValue()
 
   Dim p As String
   Dim f As String
   Dim s As String
   Dim a As String
 
   p = "D:\Mes Documents\Pascal\Excel"
   f = "Test.xls"
   s = "Feuil15"
   a = "A1"
 
   MsgBox GetValue(p, f, s, a)
 
 end sub

Une alternative avec une macroExcel4 avec :

LeNom = Application.ExecuteExcel4Macro("'C:\Mes documents\Classeur1.xls'!toto")

 Public Function LireValeur_Nom(Chem, Fich, Nom) As Variant
  ' Récupère une valeur d'un classeur Excel fermé en coordonnées absolues
  'Robert Dezan
  Dim arg As String
  LireValeur_Nom = ""
  arg = "'" & Chem & "\" & Fich & "'!" & Nom
  LireValeur_Nom = ExecuteExcel4Macro(arg)
  If IsError(LireValeur_Nom) Then LireValeur_Nom = ""
  Exit Function
 End Function

Exemple d'utilisation de la fonction Lecture du contenu de la cellule MAJ_Date du fichier fermé Date_ver = LireValeur_Nom(Chemin, Fichier, "MAJ_Date")