Discussion :

[OsTaLaKaR]

Bonjour, j'aimerais savoir s'il est possible de faire fonctionner une macro sur VB (en l'occurance ConstruitTCD()).

Sinon j'aimerais savoir s'il est possible d'ouvrir un fichier excel contenant les macros en question et faire un Workbooks.OpenText dessus !

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Public Sub Go()
 
'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
 
'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
Workbooks.OpenText FileName:=App.Path & "\rq.txt", Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlNone, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
 
'
Set wbExcel = appExcel.ActiveWorkbook
Set wsExcel = wbExcel.ActiveSheet
ConstruitTCD
'Rendre excel visible
appExcel.Visible = True
 
'appExcel.Quit
'Désallocation mémoire
Set wsExcel = Nothing
Set wbExcel = Nothing
Set appExcel = Nothing
 
End Sub
---
Sub ConstruitTCD()
Range("A1").CurrentRegion.Select
ActiveWorkbook.Names.Add "BD", RefersToR1C1:=Selection
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "BD").CreatePivotTable TableDestination:="", TableName:= _
        "TCD"
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
     ActiveSheet.Cells(3, 1).Select
        ActiveSheet.PivotTables("TCD").AddFields RowFields:="A" _
        , ColumnFields:="B"
    ActiveSheet.PivotTables("TCD").PivotFields("C"). _
        Orientation = xlDataField
End Sub

[AnneCa]

Salut!!
Le code ci-dessous se base sur un fichier modèle (monmodele.xls) qui lui contient la macro et toutes les config que tu veux. Il va ensuite créer une copie de ce fichier, faire tourner la macro "Go" et sauvegarder ce nouveau fichier...

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Private Function SendExceltoFile() As Boolean
        On Error GoTo ErrorHandler
        Dim ReturnCode As Integer
        Dim oExcel As Object
        Dim oBook As Object
 
        Dim ParameterName As String
        Dim ParameterValue As String
 
        On Error Resume Next
        Set oExcel = GetObject(, "Excel.Application")
        On Error GoTo 0
        If oExcel Is Nothing Then Set oExcel = CreateObject("Excel.Application")
 
        Set oBook = oExcel.Workbooks.Open("C:\usertemp\monmodele.xls)
 
        'Make Wordfile invisible
        oExcel.Visible = False
 
 
        On Error Resume Next
        oExcel.Run "Go" 'Execution de la macro
        On Error GoTo 0
 
        oBook.SaveAs "C:\usertemp\monresultat.xls"
        oBook.Close 0
        Set oBook = Nothing
        Set oExcel = Nothing
 
        SendExceltoFile = True
        Exit Function
 
ErrorHandler:
        SendExceltoFile = False
End Function

J'espère que cela t'aidera