Bonjour
Je cherche à intégrer dans la méthode find une variable texte
Dim oFolder As Outlook.MAPIFolder
Dim ObjDossierContact As Outlook.MAPIFolder
Dim sFilter As String, sSociete as string
Dim FindContact As Outlook.ContactItem
Set obj = CreateObject("Outlook.Application")
Set ObjNS = obj.GetNamespace("MAPI")
sFilter = "[CompanyName] = " & sSociete
Set FindContact = ObjDossierContact.Items.Find(sFilter)
ObjRdz.Links.Add FindContact
voici l'erreur -1456340983
Impossible d'analyser la condition. Erreur à «».
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Anor
Bonjour,
Muller Guy a élucidé : | Bonjour | Je cherche à intégrer dans la méthode find une variable texte | | sFilter = "[CompanyName] = " & sSociete | | voici l'erreur -1456340983
Je n'ai pas testé ta procédure, mais à tout hasard, puisque [CompanyName] est de format texte, j'écrirais plutôt :
sFilter = "[CompanyName] = '" & sSociete & "'"
Le paramètre sSociete sera encadré par deux simple côtes, l'une juste après le signe égal, et l'autre à la fin.
Muller Guy <gmuller@worldcom.ch> a élucidé :
| Bonjour
| Je cherche à intégrer dans la méthode find une variable texte
|
| sFilter = "[CompanyName] = " & sSociete
|
| voici l'erreur -1456340983
Je n'ai pas testé ta procédure, mais à tout hasard, puisque [CompanyName]
est de format texte, j'écrirais plutôt :
sFilter = "[CompanyName] = '" & sSociete & "'"
Le paramètre sSociete sera encadré par deux simple côtes,
l'une juste après le signe égal, et l'autre à la fin.
Muller Guy a élucidé : | Bonjour | Je cherche à intégrer dans la méthode find une variable texte | | sFilter = "[CompanyName] = " & sSociete | | voici l'erreur -1456340983
Je n'ai pas testé ta procédure, mais à tout hasard, puisque [CompanyName] est de format texte, j'écrirais plutôt :
sFilter = "[CompanyName] = '" & sSociete & "'"
Le paramètre sSociete sera encadré par deux simple côtes, l'une juste après le signe égal, et l'autre à la fin.
