Dim FSO: Set FSO = CreateObject("Scripting.FileSystemObject") Dim waExcel: Set waExcel = CreateObject("Excel.Application") StrPath = "C:\TEST" StrFich = "Test.txt" If FSO.FileExists(StrPath & StrFich) Then waExcel.Visible = True waExcel.Workbooks.OpenText StrPath & StrFich, , 2, , , False, False, True, False, False, False waExcel.Workbooks(StrFich).SaveAs StrPath & Left(StrFich, Len(StrFich) - 4) & ".xls", , , , , , 4 End If waExcel.Workbooks.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "Test!R1C1:R2182C13").CreatePivotTable TableDestination:="", _ TableName:="Tableau croisé dynamique3"
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question