Discussion :

[laurent27530]

Bonjour ,

J'essaie d'envoyer un mail en automatique or j'ai une erreur d'execution type 13 au niveau des éléments du corp.

Merci pour votre aide

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Sub IC7_Envoi_mail_Outlook()
 '-------------------------------------------------------------
'Penser a ajouter ref outlook
 '-------------------------------------------------------------
    Dim Adresse As String, Objet As String, Corps As String
     Dim MonAppliOutlook As New Outlook.Application
     Dim MonMail As Outlook.MailItem
     Dim MaPièce As Outlook.Attachments
     Set MonMail = MonAppliOutlook.CreateItem(olMailItem)
 '-------------------------------------------------------------
'Variables
 Dim C1, C2, C3, C4, C5 As String
 fc = [B17]
 jo = [B2]
 fi = [C17]
 Mo = [B5]
 
 Workbooks.Open (fi)
 Windows(fc).Activate
 Sheets("Feuil1").Select
 fzc = Range("B24:G31").Value
 fza = Range("B55:G62").Value
 fzb = Range("B86:G93").Value
 
 C1 = "Bonjour," & Chr(13) & Chr(13) & "date : " & jo
 C2 = "partie1 " & Chr(13) & fzc    <==  erreur d 'exécution 13  incompatibilité de type 
 C3 = "partie2" & Chr(13) & fza
 C4 = "partie3" & Chr(13) & fzb
 C5 = "Merci de prendre en compte la pièce-jointe" & Chr(13) & Chr(13) & "En vous  souhaitant bonne réception." & Chr(13) & Chr(13) & "Cordialement" 
 
 Workbooks(fi).Close
 '-------------------------------------------------------------
    Adresse = "test@test.fr"
     Cc = "test1@test.fr;test2@test.fr"
     Bcc = ""
     Objet = " mail au  " & Mo
     Corps = C1 & Chr(13) & C2 & Chr(13) & C3 & Chr(13) & C4 & Chr(13) & C5
     Pièce = fi  '-------------------------------------------------------------
    With MonMail
         .Display
         .To = Adresse
         If Not IsNull(Cc) Then .Cc = Cc
         If Not IsNull(Bcc) Then .Bcc = Bcc
         .Subject = Objet
         .Body = Corps
         If Not IsNull(Pièce) Then
             Set MaPièce = .Attachments
             MaPièce.Add Pièce, olByValue
         End If
        ' .Send
     End With
 '-------------------------------------------------------------
End Sub

[Menhir]

Quel est le message d'erreur ?
Quelle ligne passe en surbrillance quand tu demandes le débuggage ?

[laurent27530]

ligne 26 erreur d 'exécution 13 incompatibilité de type

[Menhir]

Ca, ce n'est pas une bonne idée :

Code :

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

1
2
3
 fzc = Range("B24:G31").Value
 fza = Range("B55:G62").Value
 fzb = Range("B86:G93").Value

Pour prendre une valeur, limites-toi à une case par Range.Value

Quelque chose comme :

Code :

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

1
2
3
 fzc = Range("B24").Value
 fza = Range("B55").Value
 fzb = Range("B86").Value

[laurent27530]

iL faut absolument que je selectionne une plage comment faire ?

[Menhir]

Qu'est-ce que tu veux faire exactement ?
Parce que ce que signifie ta ligne de code, c'est que tu veux mettre les valeurs de 48 cellules dans une seule variable, ce qui, de toute façon, ne pourrait pas se faire ainsi.