[Débutant] Cherche commande Macro

J'ai fait ce bout de code qui fonctionne bien :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
 
Imports System
Imports EnvDTE
Imports EnvDTE80
Imports EnvDTE90
Imports EnvDTE90a
Imports EnvDTE100
Imports System.Diagnostics
 
Public Module CompileProcBase
 
    Sub CompileProcBase()
        Dim listeProc As UIHierarchyItem = DTE.ActiveWindow.Object.getItem("Connexions de données\Mabase.mabase\Procédures")
 
        For Each proc In listeProc.UIHierarchyItems
            proc.Select(vsUISelectionType.vsUISelectionTypeSelect)
            DTE.ExecuteCommand("Autresmenuscontextuels.Noeuddobjet.Oracle.CreateScript2Project")
            DTE.ActiveWindow.Close(vsSaveChanges.vsSaveChangesNo)
        Next
    End Sub
 
 
End Module

Seul petit faut que le dossier de sortie soit sélectionné dans l'explorateur de solution, et que la fenêtre sélectionné soit l'explorateur de serveur. Si la procédure existe déjà, un message de confirmation apparait, moi je supprimes toutes les procédures avant de lancer la macro, comme ça pas de popup d'avertissement.

J'ai fait le même pour les fonctions :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Imports System
Imports EnvDTE
Imports EnvDTE80
Imports EnvDTE90
Imports EnvDTE90a
Imports EnvDTE100
Imports System.Diagnostics
 
Public Module CompileFoncBase
 
 
    Sub CompileFoncBase()
        Dim listeFonc As UIHierarchyItem = DTE.ActiveWindow.Object.getItem("Connexions de données\Mabase.Mabase\Fonctions")
 
        For Each fonc In listeFonc.UIHierarchyItems
            fonc.Select(vsUISelectionType.vsUISelectionTypeSelect)
            DTE.ExecuteCommand("Autresmenuscontextuels.Noeuddobjet.Oracle.CreateScript2Project")
            DTE.ActiveWindow.Close(vsSaveChanges.vsSaveChangesNo)
        Next
    End Sub
 
 
End Module

et aussi pour les triggers :

Code:

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
Imports System
Imports EnvDTE
Imports EnvDTE80
Imports EnvDTE90
Imports EnvDTE90a
Imports EnvDTE100
Imports System.Diagnostics
 
Public Module CompileTriggerBase
 
    Sub CompileTriggerBase()
        Dim listeTables As UIHierarchyItem = DTE.ActiveWindow.Object.getItem("Connexions de données\Mabase.Mabase\Tables")
 
        For Each table In listeTables.UIHierarchyItems
 
            table.UIHierarchyItems.Expanded = True
            Dim listeTigger As UIHierarchyItem = DTE.ActiveWindow.Object.GetItem("Connexions de données\Mabase.Mabase\Tables\" & table.Name & "\Déclencheurs")
            listeTigger.UIHierarchyItems.Expanded = True
            If listeTigger IsNot Nothing AndAlso listeTigger.UIHierarchyItems.Count > 0 Then
 
                For Each trigger In listeTigger.UIHierarchyItems
                    trigger.Select(vsUISelectionType.vsUISelectionTypeSelect)
                    DTE.ExecuteCommand("Autresmenuscontextuels.Noeuddobjet.Oracle.CreateScript2Project")
                    DTE.ActiveWindow.Close(vsSaveChanges.vsSaveChangesNo)
                Next
 
            End If
            listeTigger.UIHierarchyItems.Expanded = False
            table.UIHierarchyItems.Expanded = False
        Next
    End Sub
 
End Module