ok ok...
bon ben je vois que tout ça vous a bien inspiré... lol
j'ai fini par trouver tout seul comme un grand, surtout en fait en compilant les différents morceaux que j'ai trouvé sur ce forum... la solution, c'était la formule "ExecuteExcel4Macro"
je vous donne le code, pour les prochains galériens...
'clik sur bouton "Parcourir":
Private Sub CommandButton1_Click()
'recherche du fichier source:
With Sheets("Feuil1")
Dim chemin As String
chemin = Application.GetOpenFilename
'obtention du nom de fichier (avec extension):
Dim i As Integer
Dim Pa As String
Pa = chemin
For i = 1 To Len(Pa) - 1
If Mid(Pa, Len(Pa) - i, 1) = "\" Then
Pa = Right(Pa, i)
Exit For
End If
Next i
'obtention du répertoire (avec chemin complet depuis la racine):
Dim j As Integer
Dim Pb As String
Pb = chemin
For j = 1 To Len(Pb) - 1
If Mid(Pb, Len(Pb) - j, 1) = "\" Then
Pb = Left(Pb, Len(Pb) - j)
Exit For
End If
Next j
'compilation pour obtenir la bonne formulation (avec les crochets):
'(là on va chercher la valeur située à la 5ème ligne et 3ème colonne)
Dim tot As String
tot = "'" & Pb & "[" & Pa & "]Feuil1'!R5C3"
'et on effectue la formule magique! (on met la donnée en A5):
Range("A5").Value = ExecuteExcel4Macro(tot)
End With
End Sub
et voilà! encore une mission réussie pour supercanard! lol
merci qd même à ceux qui avaient commencé un bout de petit morceau de reflexion à ce problème!
ciao!