Bonjour,
Cette méthode n'ouvre pas réellement le fichier mais renvoie le/les chemin(s) du/des fichier(s) sélectionné(s) ou Faux sinon.
Voici un essai d'adaptation :
Sub import()
Dim oCell As Range, rg As Range
Dim sh1 As Worksheet
Dim sFile As String
Dim address As String
Dim text As String
Dim sLine As String
Set sh1 = Worksheets("report")
sFile = application.getopenfilename()
If sFile <> "False" Then
Open sFile For Input As #1
While Not EOF(1)
Line Input #1, sLine
address = Split(sLine, ";")(0)
text = sh1.Range(Replace(address, "$", "")).text '???
text = Split(sLine, ";")(1) '???
sh1.Range(Replace(address, "$", "")).Value2 = text
Wend
Close #1
Else
MsgBox "Opération annulée" 'ne peut pas ouvrir le fichier :" & sFile
End If
End Sub
Cdlt,