Methode Application.GetOpenFileName

Question

Bonjour,
Je souhaiterai changer ce code
1- ce code est importer/ouvre un fichier précis "\Export1.txt"
2- je veux importer au choix par différents fichiers sur le pc par le methode Application.GetOpenFileName
jessayer de modiffier plusieur fois tjr une eureur.
merci

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
sFile = Environ("USERPROFILE") & "\Export1.txt"
szReportSheet = "report"
Set sh1 = Worksheets(szReportSheet)
If Dir(sFile, vbNormal) <> "" Then
Close #1
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 "ne peut pas ouvrir le fichier :" & sFile
End If
End Sub

3GB · Accepted Answer

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 &lt;&gt; "False" Then Open sFile For Input As #1 While Not EOF(1) &nbsp;&nbsp;&nbsp;&nbsp;Line Input #1, sLine &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;address = Split(sLine, ";")(0) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;text = sh1.Range(Replace(address, "$", "")).text '??? &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;text = Split(sLine, ";")(1) '??? &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;sh1.Range(Replace(address, "$", "")).Value2 = text &nbsp;&nbsp;&nbsp;&nbsp;Wend &nbsp;&nbsp;&nbsp;&nbsp;Close #1 Else &nbsp;&nbsp;&nbsp;&nbsp;MsgBox "Opération annulée" 'ne peut pas ouvrir le fichier :" & sFile End If End Sub Cdlt...