Discussion :

[nachise]

Bonsoir,
Je veux savoir comment créer un fichier accde sans volet de navigation et qui ne perd pas mes commandes ou macros.
Merci de me répondre
Suzanne

[marsouin_89]

Bonjour Suzanne,

Voici un exmple de code pour créer un fichier accde.

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
Sub CreateACCDE(sBaseACCDB As String)
 
'******************** Création du fichier *.accde ***************************
 
    Dim appAccess As Access.Application
    Dim sBaseACCDE As String
    Dim extAccessCompil As String: extAccessCompil = ".accde"
 
    If Dir(sBaseACCDB) <> "" Then 'Si le fichier source du accde existe
        'Nom du fichier de sortie
        sBaseACCDE = Left(sBaseACCDB, InStrRev(sBaseACCDB, ".") - 1) & extAccessCompil
 
        'Nouvelle instance Access
        Set appAccess = New Access.Application
 
        appAccess.visible = False 'L'instance est invisible
        appAccess.SysCmd 603, sBaseACCDB, sBaseACCDE 'Création du Accde
        appAccess.Quit acQuitSaveNone 'Fermeture de l'instance
 
        Set appAccess = Nothing 'Libération de l'objet
        'MsgBox "La base à été convertie..."
    Else
        'Ici, on utilise MsgBox car le accde n'est pas encore chargé
        MsgBox "La création du fichier *" & extAccessCompil & " a échouée.", vbCritical + vbOKOnly, "Fermeture"
            Application.Quit
    End If
 
End Sub

Pour appeler le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Call CreateACCDE(CheminDeLaBaseAccdb)

[nachise]

Bonjour,
Avec ce code, cela se produira à chaque ouverture?
De plus, comment fait-on pour défaire un fichier accde?
J'aimerais apporter des changements minimes au programme et je ne peux revenir à mon accdb de base.
Merci

[marsouin_89]

Bonsoir,

Tout d"abord, saches que lorsque ton accdb est compilé en accde, c'est fini, tu ne peux plus éditer le accde.
D'où l'intérêt de conserver précieusement cette source.
Ensuite, tu peux très bien prévoir une analyse au démarrage de l'application pour savoir si ton fichier source existe et si c'est le cas générer ton accde.
Après modification de ton accdb, tu le mets dans le même répertoire que ton accde.

Au démarrage de l'application :

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
'Si le fichier accdb existe
If Dir("CheminDeLaBaseAccdb")<>"" Then
   'Si le fichier accde existe
   If Dir(CheminDeLaBaseAccde<>"" Then
        'On décroche la référence
        Call DelRef("CheminDeLaBaseAccde")
        'On détruit le accde
        Kill "CheminDeLaBaseAccde"
   End If
   'Création du nouveau accde
   Call CreateACCDE("CheminDeLaBaseAccdb")
End If
 
Private Sub Delete_Ref(RefName as String)
 
'Décrochage de la référence
Dim DelRef As Reference
 
     For Each DelRef In References 'Balaie toutes les références
        'Si on trouve le nom que l'on recherche
        If DelRef.Name= RefName Then
            'On décroche la référence
            Application.References.Remove DelRef 
         End If
    Next DelRef
 
End Sub

[Tofalu]

Bonjour,

Pourquoi passer par VBA plutôt que le menu Fichier ?

[nachise]

Je sais que je pourrais passer par le menu fichier sauf que présentement j'ai un fichier accdb où le menu ne m'indique que fermer la base de données, développeur ou quitter access.....
Avant de faire mon accde, je suis allée dans les options d'access pour annuler l'affichage du volet de navigation et inscrire mon formulaire d'accueil.
Après avoir fait l'accde, mon module accent est perdu et une autre macro pour un intervalle de date.
Pouvez-vous m'aider à récupérer toutes les fonctions et ainsi pouvoir faire mon accde?
Merci beaucoup de votre aide

[Tofalu]

Pour avoir accès à l'ensemble des menus, démarrer votre base de données en maintenant la touche SHIFT appuyée lors du lancement d'Access

[chrtophe]

Le .accde est compilé.

Tu peux aussi renommer ton fichier en .accdr, celui-ci ce comportera alors comme avec le runtime. LE fait de le renommer .accdb revient en mode normal. Pratique pour tester.

[marsouin_89]

Bonsoir Tofalu,

En fait, cette méthoe n'est pas si idiote, je l'utilise moi même.
Comme je développe sur un PC qui n'a pas le même environnement que les PC qui vont recevoir mes applications je déroule le procédure suivante :

Je place, sur les PC destinataires, ma frontale et la source (accdb) de mon futur accde en ayant les référence décochées.
Ce futur accde (ma librairie) me sert à avoir mes fonctions de bases (boite de dialogue sélection de fichiers, de répertoire etc.).
Au démarrage de ma frontale, elle execute un AutoExec dans ma librairie afin de définir les références en fonction de l'environnement PC.
Ensuite, ma librairie est compilée en accde et la source accdb est supprimée.
Pour finir, les références sont ensuite activées dans ma frontale en fonction de l'environnement PC et la libriairie est activée elle aussi en tant que référence.
J'utilise ce principe depuis de nombreuses années et cela fonctionne très bien.

[nachise]

Un GROS merci à tous ceux qui m'ont apporté leur aide. Je vous en suis très reconnaissante!