Sauver le code avec Notepadd++

Version imprimable

30/07/2017, 11h04
electrosat03

Sauver le code avec Notepadd++

Salut à tous et bon dimanche,

J'ai créé un module qui me permet de sauvegarder au choix, le code de mes modules, Forms, Etat en format Txt avec notepad.

J'ai envie, pour une lecture plus facile, de le sauvegarder avec NotePad++, donc je crée mon fichier .Txt et je l'ouvre avec NotePad++
MAIS :
Je dois faire une sélection de language pour VB et ensuite sauvegarder sous NomDeFichier.vb afin de pouvoir le réouvrir avec NotePad++
Donc si vous pouvez m'aider à automatiser la sauvegarde sous NotePad++ dans ce format, je suis preneur.

Merci pour votre aide

Bon, j'ai posé ma question trop vite

Faut juste mettre .vb dans l'extension du fichier

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Function SaveModules( _
  ByVal strFilename As String, _
  Optional ByVal blnOpenNotePad As Boolean = True)
 
    Dim ao As Access.AccessObject
    Dim intFileHandle As Integer
 
 
    strFilename = "M:\Code_Modules.vb" 'Changer le nom du fichier suivant ce que l'on veut
 
    ' On vérifie si le fichier existe déjà...
    If Dir(strFilename) <> "" Then
      If MsgBox("Le fichier existe déjà. Souhaitez-vous le remplacer ?", _
        vbQuestion + vbYesNo + vbDefaultButton2, "Export Code Modules") = vbNo Then
        Exit Function
      End If
    End If
 
    ' Ouvrir le fichier texte
    intFileHandle = FreeFile
    Open strFilename For Output As #intFileHandle
 
    ' ***************** Que le nom des Modules
    Dim db As DAO.Database, Doc As DAO.Document
    '
        Set db = CurrentDb
 
        For Each Doc In db.Containers("Modules").Documents
          Print #intFileHandle, Doc.Name
        Next
    '
        Set db = Nothing
 
    ' ***************** Traiter tous les modules un par un
    For Each ao In CurrentProject.AllModules
    '  ' On ouvre le module...
      DoCmd.OpenModule ao.Name
    '
    '  ' On écrit le code sur disque...
      SaveModule "MODULE", Application.Modules(ao.Name), intFileHandle
    '
    '  ' On referme le module
      DoCmd.Close acModule, ao.Name
    Next
 
    Close #intFileHandle
    If blnOpenNotePad Then
      ' Ouvrir le bloc-notes Windows si nécessaire
      Shell "C:\Program Files (x86)\Notepad++\notepad++.exe """ & strFilename & """", vbNormalFocus
    Else
      MsgBox "Opération terminée !", vbInformation, "Export Code"
    End If
End Function

Le module SaveModule

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub SaveModule( _
  ByVal strTitle As String, _
  mdlModule As Access.Module, _
  ByVal intFileHandle As Integer)
 
    Long_Name = (Len(mdlModule.Name) - 5)
     Nom_Fichier = mdlModule.Name
    ' Titre du module
    Print #intFileHandle, "' ----------"
    Print #intFileHandle, Mid(mdlModule.Name, 1, (Len(mdlModule.Name))) 'Pour enlever Report_ devant le nom quand on imprime le nom des Etats
    Print #intFileHandle, "' ----------"
    Print #intFileHandle, ""
    Print #intFileHandle, mdlModule.Lines(1, mdlModule.CountOfLines)
    Print #intFileHandle, ""
    Print #intFileHandle, ""
End Sub

Voilà, et ça fonctionne Nickel

A+

30/07/2017, 14h39
electrosat03

Pour finaliser la sauvegarde du code,

Savez-vous comment je pourrais savegarder, comme le code VBA, le SQL des Requêtes.

Merci

Bonjour,
regarde dans QueryDefs de CurrentDb, il y a les propriétés Name et SQL qui devraient te donner la solution :

Code:

1
2
3
4
5
6
7
8
9
10
11
Function listeQry()
 Dim i As Integer
 
    With CurrentDb
        For i = 0 To .QueryDefs.Count - 1
            Debug.Print .QueryDefs(i).Name & " - " & .QueryDefs(i).type
            Debug.Print .QueryDefs(i).SQL
        Next i
    End With
 
End Function

31/07/2017, 21h24
electrosat03

Salut,

Merci pour ta réponse, je ragarde à ça demain.

A+
01/08/2017, 11h36
electrosat03

Salut Tee_Grandbois,

Ton code fonctionne bien, le seul bémol c'est qu'il me met également le code SQL qui se trouve dans Données/Contenu des contrôles
Y a t-il un moyen de n'avoir que le SQL des Requêtes, je cherche mais pour l'instant ne trouve pas.

Merci pour ton aide

Salut,

tu peux aller dans la table MSysQueries pour recuperer le contenu SQL de tes listbox/combobox

Par exemple
Code:

1 2 SELECT MSysQueries.Attribute, MSysQueries.Expression, MSysQueries.Flag, MSysQueries.LvExtra, MSysQueries.Name1, MSysQueries.Name2, MSysQueries.Order, MSysObjects.Name FROM MSysObjects INNER JOIN MSysQueries ON MSysObjects.Id = MSysQueries.ObjectId;
En face de cela il faudra faire matcher Attribute + Name1 + Name2 pour determiner la syntaxe de la requete.

01/08/2017, 16h35
tee_grandbois

Citation:

Envoyé par electrosat03

Y a t-il un moyen de n'avoir que le SQL des Requêtes, je cherche mais pour l'instant ne trouve pas.

Bonjour,
filtre les requêtes dont le nom ne commence pas par ~sq_ : c'est le préfixe du nom pour le code SQL utilisé dans les contrôles.
02/08/2017, 14h00
electrosat03

Salut,

Oui, j'en était arrivé à la même conclusion.
J'ai même mis un choix pour imprimer le SQL des contrôle, le SQL des requêtes ou les deux.

Merci pour votre aide.