je t'aasure que j'ai cherché; j'y ai encore passé la matinée mais je suis totalement novice, je n'y connais rien. j'ai demandé une formation que j'attend avec grande impatience.

j'ai trouvé cette boucle pour dire que chaque onglet commencant par Compte doit etre envoyé par mail.

Dim Ws As Worksheet

For Each Ws In Worksheets

If Ws.Name Like "Compte*" Then

j'avais trouvé cette macro pour enovyer par mail mais je ne sais pas comment l'adapter

Sub EnvoiMail()

Dim MaFeuille As Worksheet

Dim NbLigne As Integer

Set MaFeuille = ThisWorkbook.Sheets("Relevé")

Application.ScreenUpdating = False

NbLigne = MaFeuille.Range("A" & Application.Rows.Count).End(xlUp).Row

MaFeuille.Range("A1:k" & NbLigne).Select

With Selection.Parent.MailEnvelope.Item

.To = MaFeuille.Range("M1").Value

.cc = MaFeuille.Range("M2").Value

.Subject = MaFeuille.Range("M3").Value

.Send

End With

MsgBox "Votre mail a été envoyé.", vbInformation + vbOKOnly, "CONFIRMATION ENVOI MAIL"

Application.ScreenUpdating = True

End Sub

Je voudrais mettre la cellule ou fire le mot total et la somme du tableau en gras et les encadrer comme dans le résultat souhaité

j'avais trouvé ca pour le gras mais ca ne marche pas Range("Total").SelectSelection.Font.Bold = True

Pour ce qui est des PJ différentes, je ne sais pas comment faire.

Enfin, tu m'avais aidé pour mettre l'image en automatique MAIS je voudrais faire en sorte que si la société est B l'image 3 s'affiche et non pas l'image 2

est ce possible ?

je sais que tu m'as énormément aidé.....

mais je suis complètement bloqué et mon projet tombe à l'eau si je ne peux pas faire cela

4relances-multiples-v5.xlsm (572.68 Ko)

Rechercher des sujets similaires à "envoi feuilles mail"