Bonjour,

mon code ne me permet d'ouvrir un fichier .csv mais dans un autre classeur j'ai voulu savoir comment l'ouvire dans le classeur encour et le mettre par exemple dans la feuille 3

merci pour votre aide

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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