Discussion :

[RideauNoir]

Bonjour,

C'est ma première visite sur ce forum. Si c'est possible, pourriez-vous me donner une pistes de solutions ?

En Word, dans un userform à l'ouverture d'un modèle de lettre, je voudrais un bouton "Carnet d'adresse" pour permettre à l'utilisateur de choisir son destinataire parmi ses contacts Outlook et que l'information sois coller dans un emplacement précis (signet, champs...).

Est-ce possible ?

Merci beaucoup.

[Invité]

Bonjour,

Testé sur Office 2010 :

Dans un module standard :

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
 
Option Explicit
 
Sub InfoSelection_De_Dolphy35()
'----------------------------------------------------
' Une adaptation du code trouvé dans :
' http://dolphy35.developpez.com/article/outlook/vba/
'----------------------------------------------------
 
'Déclaration des Objets et variables
Dim MonApply As Outlook.Application
Dim MonNSpace As Outlook.Namespace
Dim I As Integer
 
 
    'Instance des Objets
    Set MonApply = Outlook.Application 'Application Outlook
    Set MonNSpace = MonApply.GetNamespace("MAPI") 'Banque MAPI
 
    With MonNSpace
         For I = 1 To .GetDefaultFolder(olFolderContacts).Items.Count 
             UserForm2.ComboBox1.AddItem .GetDefaultFolder(olFolderContacts).Items(I)
           '  Debug.Print .GetDefaultFolder(olFolderContacts).Items(I)
         Next I
 
    End With
 
    MonApply.Quit
 
    With UserForm2
        .ComboBox1.ListIndex = 0
        .Show
    End With
 
    'Vide des instances
    Set MonApply = Nothing
    Set MonNSpace = Nothing
 
End Sub

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
 
Sub MettreAJourEtReconstituerUnSignet(ByVal DocEnCours As Document, ByVal NomDuSignet As String, ByVal ContenuSignet As String)
 
' D'après la fonction modifiée RemplacerTexteSignet d'Olivier LEBEAU (Cf : tutoriel VBA Word)
 
Dim MonRange As Range
 
    With DocEnCours
         If .Bookmarks.Exists(NomDuSignet) = True Then
            .Bookmarks(NomDuSignet).Select
            With Selection
                 .EndKey unit:=wdLine, Extend:=wdExtend ' Sélectionne le texte présent sur la ligne
                 .Range.Text = ContenuSignet & Chr(10)  ' Remplace le texte et fait un saut de ligne
                 .EndKey unit:=wdLine, Extend:=wdExtend ' Etend la sélection et englobe le texte dans le signet
            End With
            Set MonRange = Selection.Range
            .Bookmarks.Add NomDuSignet, MonRange ' Reconstruit le signet
            Set MonRange = Nothing
        End If
    End With
 
End Sub

Dans votre Userform :

Code :

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

1
2
3
4
5
6
 
Private Sub CommandButton1_Click()
 
    MettreAJourEtReconstituerUnSignet ActiveDocument, "signet", Me.ComboBox1.Value
 
End Sub

Dans ThisDocument avec un bouton ActiveX

Code :

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

1
2
3
4
 
Private Sub BoutonLancerLeUserForm_Click()
        InfoSelection_De_Dolphy35
End Sub

[RideauNoir]

Je vous remercie beaucoup de votre réponse et désolée du délai. Je n'ai pas pu tester votre réponse puisque nous avons changé d'orientation pour le modèle. Mais je garde l'info. Bonne journée.