Aide: Erreur 462 avec Win7 et IE9 sous Excel

[Lone-wolf]

Bonjour à tous,

est-ce que quelqu'un à la même erreur?

Private Sub Envois_Click()

Dim Chaine As String
Dim i As Byte
For i = 0 To ListBox1.ListCount - 1
            If ListBox1.Selected(i) Then
                      Chaine = Chaine & " " & ListBox1.List(i) & ";"
            End If
      Next i
  
    Dim olApp As Outlook.Application
    Dim Msg As Outlook.MailItem
    Dim Chemin
    
    Chemin = Application.GetOpenFilename("*.*, *.*")
    ChDrive "D"
    ChDir ("D:\Dossiers Excel\Formulaires\Carnet d'adresses\")
    
    Set olApp = Outlook.Application
    Set Msg = olApp.CreateItem(olMailItem)   'C'est sur cette ligne: Erreur 462
    
    With Msg
    .To = Nouveau.Email.Value
    .cc = ""
    .BCC = Trim(Chaine)
    .Subject = ""
    .Body = ""
    .Display
    End With
    
If VarType(Chemin) <> 11 Then
Msg.Attachments.Add Chemin
End If
End Sub

je viens de le modifier en suivant l'exemple dans l'aide et toujours le même problème.

Exemple:

Je recherche une personne, je clique sur le bouton Ouvrir, je selectionne certains emails, je joins un fichier et j'envois; jusqu'ici pas de problème. Je ferme le formulaire où il y a les adresses(ListBox).

Je fait une nouvelle recherche, bouton Ouvrir, je coche sélection étendue, clic sur Envoyer; c'est là que l'erreur survient.

Fichier: Carnet d'adresses

Dans le fichier, il y a une référence maquante qu'il faut décoché.


A+ 😎