Extraire le code VBA d'une base Access

Bonjour

Une fonction à titre d'exemple :

Function ExportCode ()

Const strTempdir = "C:VBA"
Dim db As Database, con As Container
Dim strFormName As String, strReportName As String
Dim lngBoucle As Long, lngDoc As Long
Dim strTempFile As String

On Error GoTo CCBFERR2
DoCmd Hourglass True
DoEvents
DoCmd Echo False
Set db = CurrentDB()

Set con = db.Containers("Forms")
lngDoc = con.Documents.Count
For lngBoucle = 0 To lngDoc - 1
If ((lngBoucle Mod 16) = 0) Then DoEvents
strTempFile = ""
strFormName = con.Documents(lngBoucle).Name
DoCmd OpenForm strFormName, A_DESIGN
strTempFile = NameAnalyse(strFormName)
DoCmd OutputTo A_MODULE, "Form." & strFormName, A_FORMATTXT,
strTempdir & "FORMS" & strTempFile & ".TXT", False 'strTempfile, False
DoCmd Close A_FORM, strFormName
Next lngBoucle

Set con = db.Containers("Modules")
lngDoc = con.Documents.Count
For lngBoucle = 0 To lngDoc - 1
If ((lngBoucle Mod 16) = 0) Then DoEvents
strTempFile = ""
strFormName = con.Documents(lngBoucle).Name
strTempFile = NameAnalyse(strFormName)
DoCmd OutputTo A_MODULE, strFormName, A_FORMATTXT, strTempdir &
"MODULES" & strTempFile & ".TXT", False 'strTempfile, False
Next lngBoucle

CCBFXIT2:
db.Close
DoCmd Hourglass False
DoCmd Echo True
On Error GoTo 0
Exit Function

CCBFERR2:
MsgBox Error$
Stop
Resume Next

End Function

Cordialement

Jeff

Charte du forum : http://users.skynet.be/mpfa/

"ZebX" <"zebx(à)altern.org"> a écrit dans le message de
news:3f546119$0$26851$626a54ce@news.free.fr...

Bonjour,
Je cherche à extraire les lignes de codes d'une base Access (formulaire,
report et modules).

Avez vous des pistes ou des solutions ;) ?

A+
--
ZebX - à pied, je prends de l'angle
GnuPG : 0x4511306C

Jeff nous conta le 02/09/2003 11:26:

Bonjour

Une fonction à titre d'exemple :

...

Merci beaucoup, je m'y colle.

--
ZebX - à pied, je prends de l'angle
GnuPG : 0x4511306C