1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| Public Sub ImporterFichier()
Dim Index As Variant
'Déclaration des variables
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
Dim str_fichier_chemin As String
str_fichier_chemin = "117531472_IA3_data_pv_ccpma_20130122_060002"
'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
Workbooks.OpenText Filename:="\\appsef\COMMUN\TEC\" & str_fichier_chemin, Origin:=xlWindows, _
StartRow:=2, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
Set wbExcel = appExcel.ActiveWorkbook
For Index = 1 To 500
Debug.Print Error$(Index)
Next Index
End Sub |
Partager