Discussion :

[*.Har(d)t]

Salut,

J'ai une erreur de compilation, comme quoi mon Next n'aurait pas de for...

J'ai trop le nez dessus et je ne vois pas l'erreur.
Pour moi, le next a bien un for.

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
 
myRecipient.Resolve
  If (myRecipient.Resolved) Then
    Set fdrContactsCommuns = objNameSpace.GetSharedDefaultFolder(myRecipient, olFolderContacts)
 
    'Vérification des deux carnets
 
    For Each fiche In fdrContactsCommuns
        i = 1
        Do
            If fdrContacts.Items.Item(i) <> fiche Then
                fdrContacts.Items.Add (fiche)
                i = i + 1
                Exit Do
            End If
            i = i + 1
        While i < fdrContactsCommuns.Items.Count
    Next
  End If

[Heureux-oli]

Salut,

Trop gros en effet

Code :

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

Next fiche

Mais il nous manque un morceau de code, tu fais une boucle sur les éléments d'une collection, mais tu ne spécifies pas quels éléments

Code :

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

 For Each fiche In fdrContactsCommuns

[*.Har(d)t]

Salut,

Trop gros en effet

Code :

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

Next fiche

Mais il nous manque un morceau de code, tu fais une boucle sur les éléments d'une collection, mais tu ne spécifies pas quels éléments

Code :

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

 For Each fiche In fdrContactsCommuns

Même avec

Code :

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

Next fiche

j'ai la même erreur...

Voici la sub complète, car le problème se situe sûrement à un niveau plus large que cette boucle.

Le but du jeu et de comparer le contenu d'un carnet d'adresses partagé avec le carnet local, et de copier les fiches du carnet partagé qui n'y sont pas.
J'espère que je m'y prends bien.

Soyez indulgents, j'ai pas fait de VB et de VBA depuis des lustres, et c'est comme l'allemand ou le chinois, quand on ne pratique pas on oublie vite.

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
40
41
42
43
44
45
Sub syncCarnets()
 
  Dim objApplication As Outlook.Application
  Dim objNameSpace As Outlook.NameSpace
  Dim fdrContacts As Outlook.MAPIFolder, fdrContactsCommuns As Outlook.MAPIFolder
  Dim fiche As ContactItem
  Dim myRecipient As Outlook.Recipient
  Dim i As Integer, j As Integer
 
  Set objApplication = Application
  Set objNameSpace = objApplication.GetNamespace("MAPI")
  Set fdrContacts = objNameSpace.GetDefaultFolder(olFolderContacts) 'Carnet Local
  Set myRecipient = objNameSpace.CreateRecipient("Carnet Commun")   'Carnet Commun
 
  myRecipient.Resolve
  If (myRecipient.Resolved) Then
    Set fdrContactsCommuns = objNameSpace.GetSharedDefaultFolder(myRecipient, olFolderContacts)
 
    'Vérification des deux carnets
 
    For Each fiche In fdrContactsCommuns
        i = 1
        Do
            If fdrContacts.Items.Item(i) <> fiche Then
                fdrContacts.Items.Add (fiche)
                i = i + 1
                Exit Do
            End If
            i = i + 1
        While i < fdrContactsCommuns.Items.Count
    Next fiche
  End If
 
 
 
  Set objApplication = Nothing
  Set objNameSpace = Nothing
  Set fdrContacts = Nothing
  Set fdrContactsCommuns = Nothing
  Set myRecipient = Nothing
  Set fiche = Nothing
  Set i = Nothing
  Set j = Nothing
 
End Sub

[Oliv-]

Il manque un LOOP ou UNTIL QUELQUE PART dans ta boucle DO

[*.Har(d)t]

Il manque un LOOP ou UNTIL QUELQUE PART dans ta boucle DO

Exact.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
For Each fiche In fdrContactsCommuns
        i = 1
        Do
            If fdrContacts.Items.Item(i) <> fiche Then
                fdrContacts.Items.Add (fiche)
                i = i + 1
                Exit Do
            End If
            i = i + 1
        Loop While i < fdrContactsCommuns.Items.Count
    Next fiche

Maintenant, j'ai un erreur d'exécution 438, qui doit porter sur la ligne

Code :

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

For Each fiche In fdrContactsCommuns

apparemment.
Mais ceci est une autre histoire, le next sansfor est résolu.

Merci,

[Heureux-oli]

Code :

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

For Each fiche In fdrContactsCommuns

Devrait être

Code :

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

For Each fiche In fdrContactsCommuns.ContactItems

La boucle For Each Next se fait sur les membres d'une collection.
si cette collection n'est pas citée, la boucle lève une erreur.