macro de copie

[patrick]

bonjour,
je suis debuttant en macro, et j'ai besoin d'une macro qui prend les donnees d'un fichier excel, et qui les charge dans le fichier excel contenant la macro.
qqn peu m'aider?
merci beaucoup.

 

[patrick]

Sub bouton()
'
' Macro1 Macro
' Macro recorded 28/05/2002 by patrick.muringer
'

'
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Documents and Settings\patrick.muringer.WINCOR-NIXDORF\Desktop\log1.csv" _
, Destination:=Range("A2"))
.Name = "log1_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileOtherDelimiter = ";"
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1)
.Refresh BackgroundQuery:=False
End With
End Sub