Ajout du 18 janvier 2007 14:00

Pour vous permettre de bénéficier d'un "template" accessible en page d'accueil Access 2007, une base exemple nommée "Contacts professionnels.accdt" est incluse dans le fichier zip téléchargé.
placez la base accdt dans le dossier 
C:/Documents and Settings/<VotreNomUtilisateur>/Application Data/Microsoft/Templates
Lancez Access 2007 et vous devez apercevoir contacts professionnels dans vos modèles disponibles.

Ajout du 19/01/2008 suite à demandes (acceptées) d'abonnés:
Le fichier PDF a été complété par le nom des champs (identiques aux légendes) d'une table liée avec le dossier contacts Outlook. Les tables liées sont à manipuler avec soin car certains champs de ces tables posent problèmes et certains ne sont pas gérés.
Modification du formulaire de modification des contacts qui fait apparaître selon la valeur Sexe (1, 2 ou 3), une silhouette Masculine, féminine ou les deux en haut à gauche.
19/01/2008 16:15 suite à demandes (acceptées) d'abonnés: Suppression des onglets inutiles du ruban et création d'un onglet avec les ouvertures des états et des exemples de connexion internet.
21/01/2008 14:00 suite à demandes (acceptées) d'abonnés: Ajout de 3 propriétés utilisateur ( communément appelées champs personnels) dont Immatriculation , Constructeur et modèle d'un véhicule.
22/01/2008 13:00 suite à demandes (acceptées) d'abonnés: Ajout sur le ruban de la possibilité d'agir directement dans Outlook en créant un nouveau contact, en modifiant le contact actif d'Access, en créant un nouveau rendez-vous etc...
29/01/2008 21:00 suite à demandes (acceptées) d'abonnés: mise à disposition d'une nouvelle base:
- Tous les boutons de commande dans le ruban.
- Ajout des tables communes, départements et pays pour faciliter la saisie des données par des listes déroulantes.

Si ces conditions sont respectées :
- La base de données n'a pas été fermée depuis que la table a été supprimée,
- La base de données n'a pas été compactée depuis que la table a été supprimée,
- Les tables ont été supprimés en utilisant l'interface utilisateur Access uniquement (hors VBA, requêtes, etc…),
- La table ne contient aucune pièce jointe ou champ multivaleurs,

Alors, votre table a des chances d’être restaurée dans un bon état, tout en sachant bien que cette restauration peut ne pas réussir.

Si l’option « compacter à la fermeture » est positionnée et si vous fermez la base, la table sera irrécupérable car le changement de l’option ne prend effet qu’à la prochaine ouverture de la base. Si cette option n'était pas positionnée, une fermeture ne devrait pas empêcher une bonne restauration.

La table restaurée sera nommée sous un nom unique déterminé par Access (du genre CLP309541) et vous devrez immédiatement la renommer pour éviter qu’une deuxième restauration ne vienne la détruire. Tant que la base ne sera pas compactée, la table supprimée peut rester présente et dans l’état où elle était lors de sa suppression.

La restauration des tables sera réalisée par une procédure VBA que vous trouverez ci-dessous. Cette restauration devant intervenir dès que vous vous apercevez de la suppression, les conditions d’utilisation de la base feront peut-être que vous ne pourrez pas envisager la restauration. Vous devrez déterminer si ce code spécial doit être inclus dans votre base.

Si la table possède des champs pièce Jointe et MultiValeurs, la procédure actuelle ne peut pas restaurer la table. Mais vous pouvez tenter une opération en modifiant la requête, en indiquant tous les champs et non un astérisque, et en n’indiquant pas les champs pièce Jointe et multivaleurs. Les champs indiqués devraient être restaurés normalement.
Vous devez également essayer, sur une copie de base, d’afficher les tables system et de renommer la table refusée dans la table MSysObjects pour qu’elle puisse s’afficher dans la fenêtre. Si vous pouvez récupérer cette table, un code VBA spécifique à écrire vous permettra de restaurer l’ensemble de votre table quels que soient les types de champs. Mais attention, cette opération ne peut être conduite que par un spécialiste Access et toute mauvaise manipulation peut détruire l'ensemble de la base.

Procédure de restauration.
Placez ce code dans un module standard, que vous pourrez exécuter à partir d'un formulaire ou dans la fenêtre exécution. 

Option Compare Database
Option Explicit

Public Sub RestaurerTablesSupprimées()
    On Error GoTo ErrTables
    DoCmd.SetWarnings False
    Dim Db As DAO.Database
    Dim Tbl As String
    Dim strSQL As String
    Dim I As Integer
    Dim TblRestaurées As Integer
    Set Db = CurrentDb()
    For I = 0 To Db.TableDefs.Count - 1
        Tbl = Db.TableDefs(I).Name
        If Left(Tbl, 4) = "~tmp" Then
            strSQL = "SELECT DISTINCTROW [" & Tbl & "].* INTO " & Mid(Tbl, 5) & " FROM [" & Tbl & "];"
            If MsgBox("Voulez-vous restaurer la table " & Mid(Tbl, 5) & " ?", vbYesNo, "Restauration") = vbYes Then
                DoCmd.RunSQL strSQL
                RefreshDatabaseWindow
                TblRestaurées = TblRestaurées + 1
                DoEvents
                MsgBox "Une table a été restaurée sous le nom '" & Mid(Tbl, 5) & "'", vbOKOnly, "Restauration"
            End If
        End If
    Next I
    MsgBox "Restauration terminée, " & TblRestaurées & IIf(TblRestaurées > 1, " Tables restaurées.", " Table restaurée."), vbOKOnly
ExitSub:
    DoCmd.SetWarnings True
    Set Db = Nothing
    Exit Sub
ErrTables:
    MsgBox Err.Description
    Resume ExitSub
End Sub