Discussion :

[batmu]

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

[mat955]

Bonjour,

Il faut commencer par savoir quelles différences vous avez entre vos deux configurations.
Question bête que j'hésite à poser : A-t-il bien Outlook sur son PC ?
Si oui, a-t-il bien activé la bonne référence dans le VBE ?

-> Visual Basic >> Outils >> Références >> cocher "Microsoft Office xx.x Object Library"