Bonsoir j’ai besoin de votre aide en effet j’ai créé un fichier de mailing sur Vba sur mon pc ça fonctionne alors sur le pc de mon ami ça fonctionne pas :

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
Private Sub CommandButton1_Click()
 
 
Dim LeMail As Variant
Dim Ligne As Integer
 
For Ligne = 12 To 15
 
    Set LeMail = CreateObject("Outlook.Application")
 
 
    With LeMail.CreateItem(olMailItem)
         .Subject = Range("d9") & " - " & Range("h" & Ligne)
         .To = Range("i" & Ligne)
         .Body = Range("d17")
         .Display
    End With
 
Next Ligne
 
End Sub
Quand mon ami appuie sur le bouton il y’a écrit comme message d’erreur
erreur d'exécution 5