Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 sélection et mise en page avant envoie mail

J

julie44

XLDnaute Nouveau
bonjour
j' ai modifié un code vba pour mon projet

j'aimerais réussir a ne sélectionner que les lignes remplis de la première colonne(attention pour le moment j'ai retire les formules du tableau mais en prendre en compte
et que la mise en page avant l'envoie par email se termine a la colonne J

dans un second temps si possible:
ajouter une signature sur le bas du mail exemple julie h***** secretaire medicale pole nord
ajouter les lignes M3,M4 et M5 comme texte corp du message avant le tableau

voici mon code actuel
Sub envoyermail()
Dim Mafeuille As Worksheet
Dim NbLigne As Long
Dim Plage As Range
ActiveWorkbook.EnvelopeVisible = True
Set Mafeuille = ThisWorkbook.Sheets("Feuil1")
Application.ScreenUpdating = False
NbLigne = 3267
NbLigne = Mafeuille.Range("A" & Application.Rows.Count).End(xlUp).Row
Set Plage = Range("A1:J" & NbLigne)
With Range("A1:J" & NbLigne).Parent.MailEnvelope.Item
.To = Mafeuille.Range("M1").Value & Mafeuille.Range("M2").Value
.Subject = Mafeuille.Range("L2").Value
.Display
.send
End With
MsgBox "votre mail a été envoyé", vbInformation + vbOKOnly, "confirmation d'envoi"
Range("A4:J34" & NbLigne).ClearContents
Application.ScreenUpdating = True
End Sub

merci pour votre aide les amis
Julie et Marc
 

Pièces jointes

  • Classeur1.xlsm
    25.4 KB · Affichages: 4
Trier par date Trier par votes

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Julie, et bienvenue sur XLD,
Pour le premier point, regardez ce fil :

XL 2019 - sélection ligne avec texte

bonjour je cherche a faire une sélection de toute les lignes contenant du texte dans une feuille ou tableau avec mise en forme par couleur actuellement j utilise ce code qui lui prend toutes les lignes non vides(mais il prend la mise en forme par couleur comme non vide ) Dim NbLigne As Integer...
excel-downloads.com
Il ressemble étrangement au votre, y compris dans le code.
La solution pourrait être du genre :
VB: 
NbLigne = Mafeuille.Application.CountIf([Tableau1], "><")
Mafeuille.Range("A1:J" & NbLigne + 4).Select
 
Vote positif 0 Vote négatif
J

julie44

XLDnaute Nouveau
bonjour sylvanu
merci d'avoir regarder mon post
est ce que tu l'a teste ce code il ne fonctionne pas chez moi?
j'ai survolé le post que tu as dit
merci
j'essaye encore de regarder
julie

Sub envoyermail()
Dim Mafeuille As Worksheet
Dim NbLigne As Long
Dim Plage As Range
ActiveWorkbook.EnvelopeVisible = True
Set Mafeuille = ThisWorkbook.Sheets("Feuil1")
Application.ScreenUpdating = False
NbLigne = 3267
NbLigne = Mafeuille.Range("A" & Application.Rows.Count).End(xlUp).Row
Set Plage = Range("A1:J" & NbLigne)
With Range("A1:J" & NbLigne).Parent.MailEnvelope.Item
.To = Mafeuille.Range("M1").Value & Mafeuille.Range("M2").Value
.Subject = Mafeuille.Range("L2").Value
.Display
.send
End With
MsgBox "votre mail a été envoyé", vbInformation + vbOKOnly, "confirmation d'envoi"
Range("A4:J34" & NbLigne).ClearContents
Application.ScreenUpdating = True
End Sub

comment les intégrer dans mon code je suis perdue
NbLigne = Mafeuille.Range("A" & Application.Rows.Count).End(xlUp).Row
NbLigne = Mafeuille.Application.CountIf([Tableau1], "><")
 

Pièces jointes

  • Classeur1.xlsm
    25.4 KB · Affichages: 1
Dernière édition:
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
Re,
Il faut adapter à votre contexte :
VB: 
Sub envoyermail()
Dim Mafeuille As Worksheet, NbLigne%, Plage As Range
NbLigne = Sheets("Feuil1").Application.CountIf([Tableau1[Type Pay/Grat]], "><")
Set Plage = Sheets("Feuil1").Range("A3:J" & NbLigne + 3)
Plage.Select
End Sub
Je rappelle que c'est juste pour le point 1.
 

Pièces jointes

  • Classeur1 (3).xlsm
    23.1 KB · Affichages: 4
Vote positif 0 Vote négatif
J

julie44

XLDnaute Nouveau
ok merci c'est parfait
je vais ajouter le reste du code pour l'envoie d'email
il me reste a voir pour ajouter les lignes M3,M4 et M5 comme texte corp du message avant le tableau
je ne sais pas si c est
.body = "nnnn"
ou autre chose
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

D
  • Question
XL 2019 assemblage 2 petits code vba message erreur
Réponses
3
Affichages
450
David62800
D
D
  • Question
XL 2013 envoie tableau dans corp du mail vba
2
Réponses
26
Affichages
2 K
David62800
D
Y
  • Résolu(e)
XL 2019 Double attachement dans mail
Réponses
2
Affichages
662
YAP32
Y
D
  • Question
XL 2019 envoie sélection par mail bloquer
Réponses
2
Affichages
349
David62800
D
G
  • Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
18
Affichages
1 K
GClaire
G
S
  • Question
XL 2013 recherche intuitif semi automatique dans Combobox (trié et avec valeur unique) inseré en UserForm VBA
2
Réponses
18
Affichages
972
Sghaier Chafaa
S
M
  • Résolu(e)
XL 2016 envoi de mail en automatique en fonction de plusieurs menus deroulants
2
Réponses
26
Affichages
2 K
mathieu20
M
Z
  • Question
Microsoft 365 code VBA envoie de mail
Réponses
2
Affichages
898
kiki29
M
  • Résolu(e)
XL 2016 mail en automatique dans excel destinataire en fonction de la valeur d une cellule
Réponses
11
Affichages
1 K
mathieu20
M
F
  • Question
XL 2010 Envoyer Mail Outlook
Réponses
2
Affichages
2 K
Francky79
F
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…