Bonjour à tous,
Le code ci dessous fonctionne parfaitement avec un office pro 2013 mais quand je le lance sur un office 2010 j'ai l'erreur:
Run-Time error '1004' :
Method 'enveloppeVisible' of object '_Workbook' failed.
Le code :
Private Sub Commandemail_Click()
Set Ws = Sheets("FdT")
Set Wr = Sheets("clients")
Ws.Range("A1:K16").Select ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "Bonjour, " & vbCrLf & "Société :" & " " & Wr.Range("C3") & vbCrLf & "Contact :" & " " & Wr.Range("B3") & " " & Wr.Range("D3") & " " & Wr.Range("E3") & vbCrLf & " Téléphone Bureau :" & " " & Wr.Range("F3") & vbCrLf & "Portable :" & " " & Wr.Range("G3") & vbCrLf & "E-mail :" & " " & Wr.Range("H3") & vbCrLf & "Adresse :" & " " & Wr.Range("I3") & vbCrLf & "Code Postal :" & " " & Wr.Range("J3") & vbCrLf & "Ville :" & " " & Wr.Range("K3") & vbCrLf & "La commande matériel comporte :" & vbCrLf
.Item.To = "john@doe.com"
.Item.Subject = "Enregistrement Nouveau Projet : " & Wr.Range("C3")
.Item.Send
End With
' MsgBox = "Email envoyé" & vbOK
End Sub
Quelqu'un a une idée?