Discussion :

[lagratteCchouette]

Bonjour à tous,

Bon j'ai créé une base de données ACCESS type CRM avec un formulaire contact où je saisie mes contacts pour ensuite les enregistrer dans Outlook via la macro ci-dessous.



Bien mais par naïveté... j'ai modifié la taille de mon Adresse de messagerie de 50 je l'ai passé à 100 et depuis bien que je l'ai remis à 50 je n'arrive plus à enregistrer l'email, la page web et et le nom de la rue (ne figure dans la fiche que le code Postal et la Ville) du contact le champ est vide.

Le message :









Fiche contact transféré sur Outlook avant enregistrement...









J'ai cherché pour savoir comment résoudre ce problème, mais je suis sec.
Pourriez-vous s'il vous plaît m'aider ?
Est-ce qu'avec du VBA je pourrai sauver ma table "Contacts" et si oui lequel ?

Merci beaucoup par avance.

[tee_grandbois]

bonsoir,
ce n'est qu'un message d'avertissement pas un message d'erreur, est-ce qu'au moins tu cliques sur Oui ?
Car cela ne devrait pas effacer les données, juste copier les 50 premiers caractères et tronquer le reste ...

[lagratteCchouette]

Merci pour ton message.
Oui bien sûr j'ai cliqué sur oui quand j'ai changé le nombre de caractère.
J'associe donc cette perte de données à cette manipulation des champs de la table.. enfin c'est ce que j'ai constaté mais je peux me tromper.
Et maintenant je me retrouve avec une partie des données qui ne sont plus envoyées vers Outlook.

[tee_grandbois]

J'associe donc cette perte de données à cette manipulation des champs de la table

tu parles d'une table Access ou une "table" Outlook pour la modification de structure ?

[lagratteCchouette]

Tu as raison, il me faut être plus précis.
Il s'agit de modifications apportées au niveau de ma table ACCESS après plusieurs mois d'utilisation et donc plus de 3 000 contacts liés à des rapports.



Voilà donc ci-dessous ma fiche contact exemple



J'ai essayé de créer un nouveau champ dans la tb Access Adresse de messagerie et de recopier les données en sélectionnant la colonne, mais le résultat est le même.
iDEM POUR LES AUTRES CHAMPS QUI BUG.

J'ai trouvé un bout de code ci-dessous :

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
 
Dim Contacts As DAO.Recordset
 
Set Contacts = CurrentDb.OpenRecordset("SELECT * FROM [Contacts]")
Contacts.AddNew
Contacts![ContactsID] = Me.txtContactsID.Value
Contacts![ContactsNom] = Me.txtContactsNom.Value
Contacts![ContactsPrénom] = Me.txtContactsPrénom.Value
Contacts![ContactsFonction] = Me.txtContactsFonction.Value
Contacts![ContactsAdresse_de_messagerie] = Me.txtContactsAdresse_de_messagerie.Value
Contacts![ContactsAddressLine1] = Me.txtContactsAddressLine1.Value
Contacts![City] = Me.txtCity.Value
Contacts![Zip] = Me.txtZip.Value
Contacts.Update
Contacts.Close
Set Contacts = Nothing
DoCmd.Close

Mais j'ai le message "Erreur de compilation" sur L'ID pour commencer.

[tee_grandbois]

bonjour,
pour commencer: ContactsID n'existe pas, c'est ID et c'est un champ de type numéro auto, c'est un champ non modifiable il faut l'enlever de la liste des champs à ajouter dans AddNew, il s'incrémentera tout seul (sinon à quoi bon utiliser le type numéro auto si c'est pour ensuite essayer d'y ajouter des données ? )

[EDIT:] il semble que tu n'utilises pas les champs de Contacts pour les remplir (d'où l'erreur de membre introuvable)

[lagratteCchouette]

Merci beaucoup pour ton retour.
Effectivement il s'agissait du code vba test. oups
Voilà donc mon bon code au click d'un bouton.

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
29
30
31
32
 
Private Sub cmdCreateOutlookContact_Click()
'Record contact Outlook
Dim Contacts As DAO.Recordset
Set Contacts = CurrentDb.OpenRecordset("SELECT * FROM [Contacts]")
 
Contacts.AddNew
Contacts![ContactsSociété] = Me.txtContactsSociété.Value
Contacts![ContactsNom] = Me.txtContactsNom.Value
Contacts![ContactsPrénom] = Me.txtContactsPrénom.Value
Contacts![ContactsAdresse_de_messagerie] = Me.txtContactsAdresse_de_messagerie.Value
Contacts![ContactsFonction] = Me.txtContactsFonction.Value
Contacts![ContactsTéléphone_professionnel] = Me.txtContactsTéléphone_professionnel.Value
Contacts![ContactsTéléphone_personnel] = Me.txtContactsTéléphone_personnel.Value
Contacts![ContactsTéléphone_mobile] = Me.txtContactsTéléphone_mobile.Value
Contacts![ContactsNuméro_de_télécopie] = Me.txtContactsNuméro_de_télécopie.Value
Contacts![ContactsAdresse] = Me.txtContactsAddresse.Value
Contacts![ContactsVille] = Me.txtContactsVille.Value
Contacts![ContactsCode_postal] = Me.txtContactsCode_postal.Value
'Contacts![ContactsPays/Région] = Me.txtContactsPays / Région.Value
Contacts![ContactsPage_Web] = Me.txtContactsPage_Web.Value
Contacts![ContactsNotes] = Me.txtContactsNotes.Value
Contacts![ContactsPièces_jointes] = Me.txtContactsPièces_jointes.Value
Contacts![ContactsCatégorie] = Me.txtContactsCatégorie.Value
 
Contacts.Update
Contacts.Close
Set Contacts = Nothing
 
DoCmd.Close
 
End Sub

Mais j'ai toujours ce même message.















Alors je me suis dit que cela venait peut-être du nom du champ du formulaire pour le champ Société c'est une liste déroulante dont le nom est... cmb_societe_lien

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
29
30
31
32
33
 
Private Sub cmdCreateOutlookContact_Click()
'Record contact Outlook
Dim Contacts As DAO.Recordset
Set Contacts = CurrentDb.OpenRecordset("SELECT * FROM [Contacts]")
 
Contacts.AddNew
'Contacts![ContactsSociété] = Me.txtContactsSociété.Value
Contacts![ContactsSociété] = Me.txtContactscmb_societe_lien.Value
Contacts![ContactsNom] = Me.txtContactsNom.Value
Contacts![ContactsPrénom] = Me.txtContactsPrénom.Value
Contacts![ContactsAdresse_de_messagerie] = Me.txtContactsAdresse_de_messagerie.Value
Contacts![ContactsFonction] = Me.txtContactsFonction.Value
Contacts![ContactsTéléphone_professionnel] = Me.txtContactsTéléphone_professionnel.Value
Contacts![ContactsTéléphone_personnel] = Me.txtContactsTéléphone_personnel.Value
Contacts![ContactsTéléphone_mobile] = Me.txtContactsTéléphone_mobile.Value
Contacts![ContactsNuméro_de_télécopie] = Me.txtContactsNuméro_de_télécopie.Value
Contacts![ContactsAdresse] = Me.txtContactsAddresse.Value
Contacts![ContactsVille] = Me.txtContactsVille.Value
Contacts![ContactsCode_postal] = Me.txtContactsCode_postal.Value
'Contacts![ContactsPays/Région] = Me.txtContactsPays / Région.Value
Contacts![ContactsPage_Web] = Me.txtContactsPage_Web.Value
Contacts![ContactsNotes] = Me.txtContactsNotes.Value
Contacts![ContactsPièces_jointes] = Me.txtContactsPièces_jointes.Value
Contacts![ContactsCatégorie] = Me.txtContactsCatégorie.Value
 
Contacts.Update
Contacts.Close
Set Contacts = Nothing
 
DoCmd.Close
 
End Sub

Mais j'ai le même résultat...

[tee_grandbois]

Alors je me suis dit que cela venait peut-être du nom du champ du formulaire pour le champ Société c'est une liste déroulante dont le nom est... cmb_societe_lien

oui, c'est toujours le nom du contrôle du formulaire qu'il faut mettre (c'est le réflexe à avoir dès lors qu'on utilise Me.)
mais dans ce cas, pourquoi ce nom est utilisé dans le code : Me.txtContactscmb_societe_lien ?

[lagratteCchouette]

Super...

Bon j'ai bien révisé mes noms de champ dans le formulaire et voici donc le code avec le Me qui correspond bien à mes noms de champs formulaire.

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
29
30
31
32
33
 
Private Sub cmdCreateOutlookContact_Click()
'Record contact Outlook
Dim Contacts As DAO.Recordset
Set Contacts = CurrentDb.OpenRecordset("SELECT * FROM [Contacts]")
 
Contacts.AddNew
 
Contacts![ContactsSociété] = Me.txtContactsCompagny.Value
Contacts![ContactsNom] = Me.txtContactsLast_Name.Value
Contacts![ContactsPrénom] = Me.txtContactsFirst_Name.Value
Contacts![ContactsAdresse_de_messagerie] = Me.txtContactsE_mail_Address.Value
Contacts![ContactsFonction] = Me.txtContactscmb_fonction.Value
Contacts![ContactsTéléphone_professionnel] = Me.txtContactsBusinessPhone.Value
Contacts![ContactsTéléphone_personnel] = Me.txtContactsHome_Phone.Value
Contacts![ContactsTéléphone_mobile] = Me.txtContactsMobile_Phone.Value
Contacts![ContactsNuméro_de_télécopie] = Me.txtContactsFax_Number.Value
Contacts![ContactsAdresse] = Me.txtContactsAdresse.Value
Contacts![ContactsVille] = Me.txtContactsVille.Value
Contacts![ContactsCode_postal] = Me.txtContactsCodePostal.Value
Contacts![ContactsPays/Région] = Me.txtContactsPays.Value
Contacts![ContactsPage_Web] = Me.txtContactsWeb.Value
Contacts![ContactsNotes] = Me.txtContactsNotes.Value
Contacts![ContactsPièces_jointes] = Me.txtContactsAttachments.Value
Contacts![ContactsCatégorie] = Me.txtContactsCategorie.Value
 
Contacts.Update
Contacts.Close
Set Contacts = Nothing
 
DoCmd.Close
 
End Sub

Mais j'ai toujours le même message d'erreur !

[tee_grandbois]

bonjour,

Mais j'ai toujours le même message d'erreur !

et l'erreur a toujours la même cause: le contrôle est inconnu ! il faut prendre le nom inscrit dans la propriété du champ "Nom du contrôle".
Fais une impression d'écran de la propriété de ce contrôle du formulaire pour qu'on vérifie.

Et d'autre part je constate que tu n'as toujours pas corrigé non plus les noms des champs de la table de destination Contacts
:

[lagratteCchouette]

Merciii beaucoup.
je suis désolé, mais il y a quelque chose qui m'échappe et je ne comprends pas tout ce que tu me dis, car je suis novice en VBA.

J'ai essayé les 2 méthodes, mais j'ai toujours le même message.

Mon code où j'ai désactivé l'essai précédent pour comprendre ta remarque.
Comment puis-je écrire ce code ?

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
29
30
31
32
33
34
35
36
37
38
39
 
Private Sub cmdCreateOutlookContact_Click()
'Record contact Outlook
Dim Contacts As DAO.Recordset
Set Contacts = CurrentDb.OpenRecordset("SELECT * FROM [Contacts]")
 
Contacts.AddNew
 
' Essai avec Société
Contacts![ContactsSociété] = Me.txtContactsSociété.Value
' Essai avec Adresse_de_messagerie
Contacts![ContactsAdresse_de_messagerie] = Me.txtContactsAdresse_de_messagerie.Value
 
' Code testé et même problème
'Contacts![ContactsCompagny] = Me.txtContactsCompagny.Value
'Contacts![ContactsLast_Name] = Me.txtContactsLast_Name.Value
'Contacts![ContactsFirst_Name] = Me.txtContactsFirst_Name.Value
'Contacts![ContactsE_mail_Address] = Me.txtContactsE_mail_Address.Value
'Contacts![Contactscmb_fonction] = Me.txtContactscmb_fonction.Value
'Contacts![ContactsBusinessPhone] = Me.txtContactsBusinessPhone.Value
'Contacts![ContactsHome_Phone] = Me.txtContactsHome_Phone.Value
'Contacts![ContactsMobile_Phone] = Me.txtContactsMobile_Phone.Value
'Contacts![ContactsFax_Number] = Me.txtContactsFax_Number.Value
'Contacts![ContactsAdresse] = Me.txtContactsAdresse.Value
'Contacts![ContactsVille] = Me.txtContactsVille.Value
'Contacts![ContactsCodePostal] = Me.txtContactsCodePostal.Value
'Contacts![ContactsPays] = Me.txtContactsPays.Value
'Contacts![ContactsWeb] = Me.txtContactsWeb.Value
'Contacts![ContactsNotes] = Me.txtContactsNotes.Value
'Contacts![ContactsAttachments] = Me.txtContactsAttachments.Value
'Contacts![ContactsCategorie] = Me.txtContactsCategorie.Value
 
Contacts.Update
Contacts.Close
Set Contacts = Nothing
 
DoCmd.Close
 
End Sub

Voici mes 2 captures d'écran pour que tu puisses voir ce qui m'échappe.

Onglet "Données"


Et voici la 2ème Onglet "Toutes"





Merci par avance.

[tee_grandbois]

d'abord, j'aimerai comprendre le processus: quand tu saisis des données depuis le formulaire, quel est le nom de la table associée au formulaire et quel est le nom du champ (pour Compagny par exemple), ensuite quand tu les copies avec AddNew lors du clic du bouton, quel est le nom de la table de destination et quel est le nom du champ de destination ?

[lagratteCchouette]

Je vais essayer de te donner tous les éléments possibles.

Pour faire cette CRM, je suis parti d'un modèle par défaut de BdD qu'Access propose est qui est "Contacts".
Cette table [Contacts] avait un formulaire que j'ai transformé en [frm_contact-creation].

Le nom de la table associée au formulaire [frm_contact-creation] est donc [Contacts]
Le nom du champ dans la table [Contacts] est "Société" et dans le [frm_contact-creation] c'est "Compagny" (parce que du formulaire dont je suis parti c'était comme cela).

Comme avant j'utilisai la macro ci-dessous, je ne me suis pas posé la question puisqu'elle ouvrait Outlook et créé ou mettait à jour le contact dans Outlook.



Donc je ne sais quelle est le nom de la table dans Outlook, puisque c'est la macro qui le faisait.
Et comme cela m'a planté ma crm... je patine dur.

Le code que j'ai essayé d'adapter, c'est un code que j'ai trouvé sur le web dans le thème créer un contact depuis Access dans Outlook.
Mais... voilà je suis un peu perdu... Car comme je te l'ai signalé au début de ce fil de discussion

J'ai modifié la taille de mon Adresse de messagerie de 50 je l'ai passé à 100 et depuis bien que je l'ai remis à 50 je n'arrive plus à enregistrer l'email, la page web et et le nom de la rue (ne figure dans la fiche que le code Postal et la Ville) du contact le champ est vide.

Je suis désolé de t'embêter...
Voilà j'espère avoir été clair et si seulement la macro "EnregisterContactSousOutlook" marchait. Je ne comprends ce qui l'a perturbé.

[tee_grandbois]

le problème c'est que tu pars d'exemples trouvés un peu partout mais après, tu ne maîtrises pas ce que tu manipules, c'est donc compliqué de t'expliquer ce qu'il faut faire si tu es à ce niveau dans VBA.
Dans ton formulaire, tu utilises, une table que tu remplis mais tu veux aussi écrire dans les Contacts Outlook sans connaitre, apparemment, le nom de la table de destination, c'est déjà un premier problème d'enregistrer une saisie dans une table puis de la copier dans une autre, il serait mieux de ne pas avoir de table associée au formulaire. Est-ce que au moins la table "Contacts d'Outlook est attachée à ta base ?
Cela doit ressembler à ça avec cet icône:



Sinon, poste-moi les liens qui t'ont permis de créer ce code et la base modèle dans Access

[lagratteCchouette]

Est-ce que au moins la table "Contacts d'Outlook est attachée à ta base ?

Ah après vérification non la table "Contacts d'Outlook" n'est pas attachée à ma base.
Car je bosse sur une crm perso qui viens interagir avec office 365 corporate (dont outlook) de ma société.
Et je ne veux pas synchroniser ma crm et Outlook. Ce je je fais aujourd’hui c'est créer dans ma crm le contact puis avec la fonction macro bouton vert "EnregistrerContatSousOutlook" créer la fiche contact dans Outlook.



Le bouton à droite du bouton vert est celui que j'utilise pour coder

je te joins la table "Database_modele_contact_Access_defaut.accdb" qui est le modèle dont je suis parti et qui fonctionne très bien dans sa connexion avec outlook sans lier quoi que ce soit. et ma database qui bug maintenant dans l'état avec les noms des champs qui marchaient avant.

Par contre je ne vois pas comment t'envoyer les database, car j'ai essayé en pièces jointes mais il ne se passe rien.

[tee_grandbois]

Par contre je ne vois pas comment t'envoyer les database, car j'ai essayé en pièces jointes mais il ne se passe rien.

c'est bien en pièces jointes mais on ne peut pas envoyer une base directement, il faut la compresser (format ZIP) au préalable

[lagratteCchouette]

Voici les 2 BdD et le lien sur lequel je me suis basé.
Lien

Database_modele_contact_Access_defaut.zipDatabase_modele_contact_Access_defaut.zipDataBase_LagratteCchouette.zip

[tee_grandbois]

le code du lien n'est pas du tout adapté à ton cas: la source de ton formulaire est basée sur une requête: Contacts (étendu) donc pas besoin de code d'ajout, ce que tu saisis va directement dans la table Contacts puisque la requête est basée dessus.
A propos de la requête Contacts (étendu) je constate que tu as ajouté des parenthèses dans le nom de l'objet: c'est source de complications, tout comme les espaces et je ne comprend même pas que Microsoft s'autorise à en mettre dans les noms d'objets dans ces bases d'exemple. Comme on dit, l'exemple doit venir d'en haut...

Donc, pour résumé, dans le formulaire frm_contact-creation tout le code VBA de cmdCreateOutlookContact_Click() est inutile, il faut juste remplacer toutes les lignes par la commande de sauvegarde de l'enregistrement : Me.Requery

[lagratteCchouette]

Merci beaucoup pour ton analyse.
Si je n'étais pas coincé et si cela n'était pas aussi important, je ne t’embêterai pas.

Si je comprends bien, voici ce que je devrai écrire sur ce bouton cadre en jaune ?

Code :

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

1
2
3
4
5
6
 
Private Sub cmdCreateOutlookContact_Click()
'Record contact Outlook
Me.Requery
 
End Sub

Mais comme il ne se passe rien, je pense que je suis à côté.

Pourrais-tu s'il te plaît me dire où je dois écrire et quel est le code exact. Cela me gêne de te prendre du temps.
En tout cas tu es vraiment, super et merciiiiii beaucoup.

[tee_grandbois]

Mais comme il ne se passe rien, je pense que je suis à côté.

tu crois qu'il ne se passe rien, mais en fait Requery enregistre la saisie et libère l'enregistrement car il est verrouillé tant que la saisie est en cours. Le seul moyen est de faire la commande Actualiser (Requery), de passer à l'enregistrement suivant ou de quitter le formulaire.