bonjour
voila est ce que vous pouvais m'expliquer ce code
je comprend qu'il importe des fichiers mais pour être plus précis
Sub ImportTxtAdhe()
Dim MainWbk As String
Dim lngCount As Long
MainWbk = ActiveWorkbook.Name
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
.Show
Application.ScreenUpdating = False
For lngCount = 1 To .SelectedItems.Count
Workbooks.OpenText Filename:=.SelectedItems(lngCount), _
Origin:=65001 _
, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, Comma:=False _
, Space:=False, Other:=False _
, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 4), _
Array(7, 4), Array(8, 4), Array(9, 1), Array(10, 4), Array(11, 1), Array(12, 1), Array(13, 1), _
Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 4), _
Array(21, 4), Array(22, 4), Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), Array(27, 1), _
Array(28, 1), Array(29, 1), Array(30, 1)), _
TrailingMinusNumbers:=True
Sheets(1).Move After:=Workbooks(MainWbk).Sheets(Workbooks(MainWbk).Sheets.Count)
Next lngCount
End With
End Sub
merci de vos réponse
bonne journée