Dim S_wk As Workbook, D_wk As Workbook, pc$
Dim f As String
Dim ws As Worksheet
Set D_wk = ThisWorkbook
Application.ScreenUpdating = False
' Ouverture d'une boîte de dialogue pour sélectionner le fichier texte à traiter
Fichier = Application.GetOpenFilename("Text file (*.txt), *.txt")
If Fichier <> False Then
Set S_wk = Workbooks.Open(Fichier)
With S_wk
With .ActiveSheet.UsedRange
pc = .Cells(1, 1).Address
.Copy
End With
Set S_wk = ThisWorkbook
Set ws = S_wk.Worksheets.Add(after:=S_wk.Worksheets(S_wk.Worksheets.Count))
ws.Name = Mid(f, InStrRev(f, "\") + 1, Len(Mid(f, InStrRev(f, "\") + 1)) - 4)
Set D_wk = ThisWorkbook
D_wk.ActiveSheet.Range(pc).PasteSpecial xlValues
Application.CutCopyMode = False
.Close False
End With
End If
On Error Resume Next
'Erreur d'ouverture
If Err <> 0 Then Exit Sub
D_wk.ActiveSheet.Range("A1").Select
Application.ScreenUpdating = True