[Debutant]Comment récupérer du code VBA d'un Assistant

Version imprimable

18/12/2008, 11h05
peuplier

[Debutant]Comment récupérer du code VBA d'un Assistant

Bonjour
Je ne suis pas expert en Access 2003, encore moins en vba, je souhaiterai récupérer le code vba généré suite au déclenchement d'un assistant, de création de table, de requête, de graphe, etc.... D'abord es ce possible ? Et si oui comment ? Si mes souvenirs sont bons je sais qu'en VB6 c'est -où c'était ?- possible, par contre pour la version VBA sous Access 2003 je ne sais pas.
En vous remerciant à l'avance.

Cordialement
20/12/2008, 15h35
loufab

Bonjour,

Je n'ai pas bien compris...

Citation:

Envoyé par peuplier

récupérer le code vba généré suite au déclenchement d'un assistant, de création de table, de requête, de graphe, etc....

Tu souhaites lire le code des assistants d'ACCESS ? Parceque c'est protégé par MICROSOFT...:fessee::fessee:

Bonjour et merci pour votre aide
En fait le problème vient d'être résolu quand j'ai posté cette requête sur d'autres forums

Je suis débutant sur Access, et éffectivement je ne savais pas que le code Access était protégé, et on ne pouvait pas accéder aux objets natifs.

Toutefois comme j'ai cherché pendant longtemps, je met quand même le code à disposition, dés fois qu'une personne francophone aurait la même idée que moi.
Merci à tous et passer de trés joyeuses fêtes vous et vos familles.

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
54
55
56
57
58
59
60
61
62
63
64
65
66
 
Sub DumpAllObjects(Optional strFilePath As String = "")
 
  Dim obj As AccessObject
 
  Dim strName As String
 
  Dim strDate As String
 
 
 
  On Error GoTo HandleError
 
 
 
  If strFilePath = "" Then
 
    strFilePath = "S:\MemberMonths\VBA_Code_Modules" 'Access.CurrentProject.Path
 
  End If
 
  strDate = Format(Now(), "yyyymmddhhnnss")
 
  For Each obj In Access.Application.CurrentProject.AllForms
 
    Access.Application.SaveAsText acForm, obj.Name, strFilePath & "\" & strDate & obj.Name & ".txt"
 
  Next
 
  For Each obj In Access.Application.CurrentProject.AllReports
 
    Access.Application.SaveAsText acReport, obj.Name, strFilePath & "\" & strDate & obj.Name & ".txt"
 
  Next
 
  For Each obj In Access.Application.CurrentProject.AllMacros
 
    Access.Application.SaveAsText acMacro, obj.Name, strFilePath & "\" & strDate & obj.Name & ".txt"
 
  Next
 
  For Each obj In Access.Application.CurrentProject.AllModules
 
    Access.Application.SaveAsText acModule, obj.Name, strFilePath & "\" & strDate & obj.Name & ".txt"
 
  Next
 
 
 
ExitHere:
 
  Exit Sub
 
HandleError:
 
  Select Case VBA.Err.Number
 
    Case Else
 
      MsgBox Err.Number & " " & Err.Description
 
  End Select
 
  Resume Next
 
End Sub

Bien cordialement

23/12/2008, 12h29
loufab

Bonjour,

Il s'agit d'une simple lecture du code généré et non celui du générateur. Ce code n'est pas soumis au copyright Microsoft, tu es libre d'en disposer.

Tu aurais fait un export de chaque module c'était aussi simple et tu aurais obtenu un fichier BEAUCOUP plus clair.

Cordialement,
23/12/2008, 23h26
peuplier

Citation:

Envoyé par loufab

Tu aurais fait un export de chaque module c'était aussi simple et tu aurais obtenu un fichier BEAUCOUP plus clair.

@ loufab
Bonsoir,
J'ai peut être pas expliquer comme il faut ce que je voulais initialement.
C'est vrai qu'on me l'a reproché. Encore une fois je tiens à le préciser, je suis débutant Access, à ce titre je ne prétend pas du tout connaitre le logiciel.
Il y a de ça prés de dix ans, j'avais dévéloppé un peu en Visual Basic 6. Je me souviens qu'à l'époque il y avait des assistants qui généraient du code VB6 automatiquement, par exemple pour faire un formulaire, une connexion à une base de donnée en DAO, et si mes souvenirs sont bons en ADO aussi.
Il était possible de récupérer le code généré en VB6 et de le customiser. J'ai cru que dix ans aprés la même démarche éxistait toujours, mais ce que coup-ci en VBA, et non en VB6. Par exemple pour créer un formulaire où un état on m'a expliqué que c'est du code natif, et il n'est pas possible de récupérer du code, s'il n'y a pas de morceaux de code vba qu'on a généré. Admettons par exemple que je génére un formulaire, où un état avec un graphe, via des assistants, sans ajouter une seule ligne de code VBA, il n'est pas possible de récuperer le code source généré.
Par comparaison en java quand on fait des graphes on le fait via une api par exemple JFreechart -moins belle, et agréable au regard que les beaux graphes d'Excel, où d'Access :D-, un peu comme sur cet exemple l'explique. Ainsi on est maitre du code source du début, jusqu'à la fin. C'était ce que je voulais faire, au début mais en Microsoft Access, malheureusement c'est pas possible.
Du coup retour à la case départ, avec sans aucun doute des graphes gérés par Open Office, où JFreeCharts.
Désolé de ne pas avoir mieux expliquer ce que je voulais.

Passez tous de trés joyeuses fêtes.