Option Explicit
Sub import_csv()
Dim m_fichier As Variant, vrtFichier As Variant
Dim intStart As Integer, intEnd As Integer
Dim strNom As String
'Choix du ou des fichiers(tu peux faire le traitement de plusieurs fichiers a la fois en les sélectionnant tous en même temps)
m_fichier = Application.GetOpenFilename('CSV Files (*.csv),*.csv', , 'Ouverture fichier Remonté de Caisse', , True)
Application.ScreenUpdating = False
For Each vrtFichier In m_fichier
' ajout d 'un nouveau fichier (pour ne pas copier tout les fichier traiter ds ce fichier-ci)
Workbooks.Add
With ActiveSheet.QueryTables.Add(Connection:='TEXT;' & vrtFichier, Destination:=Range('A1'))
intStart = InStrRev(vrtFichier, '\\', -1) + 1
intEnd = InStr(1, vrtFichier, '.')
strNom = Mid(vrtFichier, InStrRev(vrtFichier, '\\', -1) + 1, intEnd - intStart)
.Name = strNom
.PreserveFormatting = True
.RefreshStyle = xlInsertDeleteCells ' xlInsertEntireRows
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileSemicolonDelimiter = True
.TextFileColumnDataTypes = Array(1, 1, 1, 9)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Call Ajout_entête_date(strNom)
Call trie_col_A
Next vrtFichier
Application.ScreenUpdating = True
End Sub