Problème d'extraction puis envoi par email
Je suis de retour avec une nouvelle question :
Lorsque j'execute cette maccro :
Code:
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
| Sub mail()
With Sheets("Reglementaire").MailEnvelope
.Introduction = "bonjour , ci-joint un tableau" 'Texte du mail
.Item.To = "x.x@domaine.fr" 'Adresse
.Item.Subject = " à prévoir" 'sujet du mail
.Item.Send
End With
' On prépare le mail à envoyer
End Sub
Function corps(x As Range) As Variant
Dim i As Byte
For i = Cells(86, 4).Value To Cells(86, 5).Value 'lignes de mon tableau
With Worksheets(1).Cells(i, 11) 'Avec comme condition la valeur que prend la colone "11"
Select Case .Value
Case -30 To 0
Set MaPlage = Columns("A:K").Rows(i)
moncorps = moncorps & " " & x.MaPlage 'Envoi de la ligne si la valeur en colone "11" est comprise entre 0 et -30
moncorps = moncorps & Chr(10)
Case Else
moncorps = moncorps & " " 'ne rien écrire
End Select
End With
Next i
End Function |
Suite à l'exécution de cette maccro, Excel m'affiche une boite de dialogue : Cette feuille de calcul contient des lignes ou colones masquées que le destinataire pour rendre visibles. Souhaitez vous continuer?
1) Je ne comprend pas la phrase
2) Du coup je suis obligé de faire Ok et il ne m'envoie pas l'extraction souhaitée. Avez vous une idée de ce qui bloque ?
Je vous remercie par avance :)
