GetValuesFromAClosedWorkbook de Ron DeBruin

Bonjour,

Je connais quelques difficultés avec la pige de quelques valeurs dans des fichiers fermés, à l'application des 2 macros suivantes, calquées sur le travail de M. Ron De Bruin. Quelqu'un pourrait m'aiguiller sur l'erreur ? Quand les fichiers sources (4) sont ouverts, tout est nickel. Mais lorsqu'ils sont fermés.....rien n'embarquent comme valeurs sources. Merci pour vos lumières !!!

Public Sub GetValuesFromAClosedWorkbook(fPath As String,  fName As String, sName, cellRange As String)
 With ActiveSheet.Range(cellRange)
  .Formula = "='" & fPath & "\[" & fName & "]"  & sName & "'!" & cellRange
  .Value = .Value
 End With
End Sub

Sub GOpourlesnouvellesvaleurs()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

' LES 4 LIGNE GETVALUES PERMETTENT DE TIRER LES DONNÉES DES FEUILLES SANS LES OUVRIR
    Sheets("PIERRE").Select
    Range("E52:E65").Select
    Selection.ClearContents
    GetValuesFromAClosedWorkbook "C:\Documents and Settings\bx1701\Bureau", "GP.xls", "GP", "A2:O48"
    Range("A67").Select
    Sheets("SIMON").Select
    Range("E52:E65").Select
    Selection.ClearContents
    GetValuesFromAClosedWorkbook "C:\Documents and Settings\bx1701\Bureau", "FB.xls", "FB", "A2:O48"
    Range("A67").Select
    Sheets("PAUL").Select
    Range("E52:E65").Select
    Selection.ClearContents
    GetValuesFromAClosedWorkbook "C:\Documents and Settings\bx1701\Bureau", "DB.xls", "DB", "A2:O48"
    Range("A67").Select
    Sheets("TOM").Select
    Range("E52:E65").Select
    Selection.ClearContents
    GetValuesFromAClosedWorkbook "C:\Documents and Settings\bx1701\Bureau", "SC.xls", "SC", "A2:O48"
    Range("A67").Select
    Sheets("ÉQUIPE").Select

Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Bonsoir

Pas de soucis particulier avec ces macros

Même avec les fichiers fermés