Messages des blogs récents

Une actualité récente nous dit que Google supprime des comptes et que les personnes touchées n'ont plus accès à aucune de leurs données.

Pour ne pas vous trouver dans cette situation, je vous conseille de faire une sauvegarde régulièrement, la fréquence dépendant de vos besoins.

La marche à suivre est en plusieurs étapes :

1. Cliquer sur les trois points dans le coin droit de la fenêtre Chrome.
2. Ouvrir les paramètres.
3. Cliquer sur "Gérer votre

...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    'integre les adresses de mon email
Sub creationDB()
    Dim Db As DAO.database
    Dim rcset As DAO.recordset
    Dim objNamespace As NameSpace
        'espace email object
    Set objNamespace = GetNamespace("Mapi")
        'connection a l'email
    Set MyList = objNamespace.GetDefaultFolder(10)
    Set AllContacts = MyList.Items
        'database
    Set Db = Engine.OpenDatabase("E:\CarnetAdresse.accdb",

...