Discussion :

[thomanneca]

Bonjour à tous,

Je souhaite synchroniser mon agenda OUTLOOK vers EXCEL.

Pour ce faire, je parviens déjà à aller rechercher les rdv d'OL pour les importer dans Excel mais j'aimerais ne pas synchroniser TOUT mes rdv. En d'autres mots, je ne voudrais QUE certains d'entre eux, et ceux-ci sont toujours écrits suivant une logique, un format particulier.

J'aimerais donc ajouter une restriction sur le format (chiffres et lettres) mais je cale un peu.

pour l'exemple, j'essaie de donner comme restriction de ne synchroniser que les rdv dont le sujet commence par 3 chiffres, avec une lettre majuscule et ensuite encore 2 chiffres.

Pour le moment, voici ce que j'ai :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
    strDate = Sheets("Centrales").Range("A1")
 
    strRestriction = "([Start] >= '" & strDate & " 12:00 am')"
 
    strRestriction = strRestriction & " AND [Subject.value] = ###[A-Z]##" '-> c'est ici que je bloque :-/
 
 
    Set collectionAppointments = DossierCalendrier.Items.Restrict(strRestriction)

D'avance, je vous remercie

Bonne journée à tous

[unparia]

Bonjour
cela ira peut-être mieux en utilisant l'opérateur Like --->>

Code :

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

Like = "###[A-Z]##*"

[thomanneca]

Bonjour
cela ira peut-être mieux en utilisant l'opérateur Like --->>

Code :

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

Like = "###[A-Z]##*"

que tu mettrais comment ?
car comme ceci, il n'apprécie pas de trop :p

Code :

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

strRestriction = strRestriction & " AND [Subject] Like = ##[A-Z]##*"

merci pour ta réponse ;-)

[Promethee25]

Bonjour,

Il y a un '=' en trop. Après, je ne connais pas cette fonction Restrict mais si elle prend une chaîne de caractères et la transforme en condition au format similaire au VBA, je dirais:

Code :

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

strRestriction = strRestriction & " AND [Subject] Like ""###[A-Z]##*"""

Car la condition VBA pour le like serait:

Code :

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

AND Subject Like "###[A-Z]##*"

=> Le caractère apostrophe est représenté en VBA par une double apostrophe.

[thomanneca]

Merci pour ton aide mais cela ne va toujours pas.

Par contre, j'ai trouvé ceci, qui me convient +- mais avec quoi je ne sais toujours pas fixer un terme variable à rechercher.

Code :

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

1
2
3
Const PropTag  As String = "http://schemas.microsoft.com/mapi/proptag/"
    strRestriction = "@SQL=" & Chr(34) & PropTag _
        & "0x0037001E" & Chr(34) & " like '%bonjour%'"

L'idée était de définir comme condition que le terme "bonjour" ne soit pas défini mais soit composé de chiffres et lettres variables (d'où ###[A-Z] mais qui n'a pas l'air d'aller).

Je vais m'en satisfaire ;-)

Bonne journée