Créer un modèle Access 2007 par programmation.

Publié le 27 janvier 2008 par Raymond

Cet article fait suite à l’article « Créer un modèle Access 2007 (http://officesystem.access.over-blog.com/article-14780731.html ) » et vous devez le lire avant d’appliquer cette méthode de création de modèles.
Assurez-vous que les extensions développeurs sont bien installées. Si non, vous pouvez les télécharger à l’adresse :
http://www.microsoft.com/downloads/details.aspx?FamilyId=D96A8358-ECE4-4BEE-A844-F81856DCEB67&displaylang=en
Cette version anglaise fonctionne très bien avec votre version française d’Access.

Pour cocher la référence des extensions développeurs en VBE, procédez ainsi :
Alt+F11 pour passer dans Visual basic Editor
Dans le menu Outils, cliquez sur Références.
Cochez « Microsoft Office Access Developer Extensions Type Library 1.0» puis cliquez sur OK.

La méthode SaveAsTemplate permet de convertir le fichier de base de données Access 2007 accdb ouvert et actif en un modèle de base de données (*. accdt). Cette conversion sera réalisée même si un objet est ouvert, tel un formulaire.

Syntaxe :
SaveAsTemplate (<Chemin complet de la base accdt>, <Nom de la base accdt>, <Image de prévisualisation>, <Description>, <Catégorie>)

Arguments de la méthode SaveAsTemplate.

<Chemin complet de la base accdt> : String. Le chemin complet et le nom du fichier de la base de données modèle à créer. l'emplacement du fichier doit être C: / Documents and Settings / Nom d'utilisateur / Application Data / Microsoft / Templates / Nom de la base accdt

<Nom de la base accdt> : String. Le nom de la base de données affiché lorsque l'utilisateur ouvre le modèle.

<Image de prévisualisation> : String. Un fichier image à utiliser comme une prévisualisation pour le modèle de base de données sur la page d’accueil Access.

<Description> : String. Cette description s’affiche lorsque l’utilisateur sélectionne le modèle.

<Catégorie> : String. La catégorie dans laquelle apparaîtra le modèle. Cette catégorie est affichée en haut et à gauche de l’écran d’accueil.

Programmation :

Vous devez instancier l’objet TemplateCreator avant d’appeler la méthode SaveAsTemplate. Cette instanciation est différente des autres instanciations utilisées pour les objets Access et vous devez utiliser la collection COMAddins.
L’exemple de procédure suivant crée un nouveau modèle nommé Contacts professionnels et l’assigne au groupe « Gestion Commerciale »

    Dim oTC As TemplateCreator
    Set oTC = COMAddIns("AccessAddIn.ADE").Object.TemplateObject
    oTC.SaveAsTemplate Environ("AppData") & "/Microsoft/Templates/" _
                  & "Contacts professionnels.accdt", _
                  "Contacts professionnels", _
                  "C:/ModèlesMS2007/preview.jpg", _
                  "Gestion des contacts et synchronisation Outlook", _
                  "Gestion Commerciale"
    Set oTC = Nothing

note:
Remplacer les slash par des antislash, les slash n'étant ici que pour remplacer les antislash , ceux-ci ne pouvant pas être imprimés ou affichés.