MASSJIPE
XLDnaute Impliqué
Bonjour à Tous,
1) J’ai un code IMPORT pour aller chercher une plage modulable dans la feuille import De A2 à E avec X lignes pour ensuite mettre cette plage dans la feuille envoi mail à partie de la cellule A33 à E mais ça coince
2) je ne sais si je reste sur le même fil ou si je poste une nouvelle discussion sur un envoi corps de message par mail le code EnvoiPlage fonctionne mais c’est pour le modifier
Dans .Item.Subject = "Thème : Journée au 05/10/20 15 Eq .A." c’est de prendre la cellule B3 de la feuille envoi mail
.Item.To = "" c’est de prendre les contacts à partir de la cellule I15 feuille envoi mail
.Item.Cc = "" c’est de prendre les contacts à partir de la cellule I28 feuille envoi mail
Sachant qu’il y a deux équipes une du matin donc la liste mail EQ A et l’autre de l’après-midi liste mail EQ B c’est listes ne sont pas fixe mais modulable
Merci
1) J’ai un code IMPORT pour aller chercher une plage modulable dans la feuille import De A2 à E avec X lignes pour ensuite mettre cette plage dans la feuille envoi mail à partie de la cellule A33 à E mais ça coince
2) je ne sais si je reste sur le même fil ou si je poste une nouvelle discussion sur un envoi corps de message par mail le code EnvoiPlage fonctionne mais c’est pour le modifier
Dans .Item.Subject = "Thème : Journée au 05/10/20 15 Eq .A." c’est de prendre la cellule B3 de la feuille envoi mail
.Item.To = "" c’est de prendre les contacts à partir de la cellule I15 feuille envoi mail
.Item.Cc = "" c’est de prendre les contacts à partir de la cellule I28 feuille envoi mail
Sachant qu’il y a deux équipes une du matin donc la liste mail EQ A et l’autre de l’après-midi liste mail EQ B c’est listes ne sont pas fixe mais modulable
Merci
Code:
Sub Import()
Cells.ClearContents
For i = 1 To 5
derligne = Range("A65535").End(xlUp).Row + 1
Sheets(i).Range("A2:E" & Sheets(i).Range("A65535").End(xlUp).Row).Copy Destination:=Sheets("Envoil mail").Cells(derligne, 1)
Next i
Sheets("IMPORT").Select
Range("A2:e2").Select
Selection.Copy
Sheets("Envoi mail").Select
Range("A2").Select
ActiveSheet.Paste
End Sub
Code:
Sub EnvoiPlage()
' envoi d'une plage de cellules via Outlook
' Outlook doit être démarré.
Dim Plage As Range
On Error Resume Next
Set Plage = Application.InputBox("Sélectionnez la plage à envoyer", Type:=8)
If Err.Number <> 0 Then
Err.Clear
MsgBox "Aucune plage sélectionnée"
Exit Sub
End If
On Error GoTo 0
Plage.Select
' Affiche le message dans le classeur
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
'"Item" représente un objet Outlook "MailItem".
.Item.To = ""
.Item.Cc = ""
.Item.Subject = " Journée au 05/10/20 15 Eq .A."
.Item.display
End With
End Sub