copie par getValues selon dossier

Bonjour Gilles,


J'ai fait ce test, et je n'ai eu aucune difficulté !

Es-tu certain de renseigner les paramètres comme il se doit ?

'-------------------------
Sub test() 'FS

GetValuesFromAClosedWorkbook "c:excel", "Jean1.xls", "Feuil1", "b8:H15"
End Sub
'-------------------------
Sub GetValuesFromAClosedWorkbook(fPath As String, _
fName As String, sName, cellRange As String)
'Ron De Bruin, mpep

'le paramètre 'cellRange' doit désigner
'*une* plage de cellules *contigües*
With ActiveSheet.Range(cellRange)
.Formula = "='" & fPath & "[" & fName & "]" _
& sName & "'!" & cellRange
.Value = .Value
End With
End Sub
'-------------------------



Salutations!





"gilles" <gilles@discussions.microsoft.com> a écrit dans le message de news:
EFBE7712-4AD2-4546-B4CA-F3C3B6701AA2@microsoft.com...
bonjour à tous
dans plusieurs fichiers, j'utilise un code pour insérer des données depuis
un fichier fermé FICHE INFO AFFAIRE placé dans le même dossier
ce fichier change de dossier selon le choix des utilisateurs, et le code ci
dessous ne fonctionne plus
j'ai tenté de modifier la ligne ci-dessous en remplaçant D:virgin... par
Thisworkbook.path
....mais c'est pas miraculeux!!

'GetValuesFromAClosedWorkbook "D:virginQSE", "fiche info affaire.xls",
"Fiche", "B8:H85"

Sub appeldonnées()
GetValuesFromAClosedWorkbook ThisWorkbook.Path & "fiche info affaire.xls",
"Fiche", "B8:H85"
End Sub

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

Alors si yen na qui ont le pouvoir de m'aider ...
Merci à eux

--
gilles72