Sub importfichier()
Dim S_wk As Workbook, D_wk As Workbook, pc$
Dim Fichier As String
Dim ws As Worksheet
Set D_wk = ThisWorkbook
Application.ScreenUpdating = False
' Ouverture d'une boîte de dialogue pour selectionner le fichier texte à traiter
Fichier = Application.GetOpenFilename("Text file (*.txt), *.txt")
If Fichier = "Faux" Then
Exit Sub
Else: 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(Fichier, InStrRev(Fichier, "\") + 1, Len(Mid(Fichier, InStrRev(Fichier, "\") + 1)) - 4)
Set D_wk = ThisWorkbook
D_wk.ActiveSheet.Range(pc).PasteSpecial xlValues
Application.CutCopyMode = False
.Close False
End With
End If
D_wk.ActiveSheet.Range("A1").Select
Application.ScreenUpdating = True
End Sub
------------------------------------------------------------------
Sub traitement_donnees()
......etc