Macro envoi Mail avec PJ et capture

Bonjour à vous,

je vous sollicite pour m'aider afin de mettre en place une macro comme suit :

  • ouvrir le fichier ( suivi Ventes) qui se trouve sur le bureau
  • faire capture de la plage : "B7:P19" et l'inserer dans le corps du mail
  • envoyer le mail avec le fichier en PJ

j'ai beau essayer plusieurs codes mais je m'y retrouve plus quand je veux les mettre ensemble. HELP PLEASE

merci par avance

21suivi-ventes.xlsm (16.40 Ko)

hello

un an aprés, pas de retour à ce poste.

j'ai pu trouver la solution apres plusieurs test. toutefois, je cherche un moyen pour copier les valeurs de quelques lignes spécifiques seulement. quelqu'uns pourra m'aider

bonjour Cheifram,

Sujet déjà traité sur ce forum et d'autres. Mais comme cela fait 1 an que tu es sans réponse, je t'ai mâché le travail.

Voici le code VBA :

Sub envoimail()

Dim smail As Worksheet
Set smail = ActiveWorkbook.Sheets("Feuil1")

Dim r As Range
Set r = smail.Range("B7:P19")
r.CopyPicture xlScreen, xlBitmap

 On Error Resume Next
        Set OutApp = GetObject(, "Outlook.Application")
        If Err <> 0 Then Set OutApp = CreateObject("Outlook.Application")
        On Error GoTo 0

         Set OutMail = OutApp.CreateItem(0)
        With OutMail
            .BodyFormat = 3
            .To = "destinataire@gmail.com"
            .CC = ""
            .BCC = ""
            .Subject = "Le nombre de ventes"

            Set olInsp = .GetInspector
            Set wdDoc = olInsp.WordEditor
            Set oRng = wdDoc.Range
            oRng.collapse 1
            oRng.Paste
            .Display
        End With

End Sub

Puis je te joins le fichier, avec un bouton en prime ;)

Bonne journée,

Redmine

bonjour @Redmine

en effet, comme mentionné dans mon retour, j'avais deja trouvé la solution pour l'envoi de mail avec la capture. à rpesent je suis devant un nouveau défi. sur un meme tableau, je dois ecraser les formules sur quelques cellules uniquement et garder les autres ( garder les formules sur les lignes 1 à 5). tu as un idée please?

je ne comprends pas quel est ton besoin...

pourrais-tu joindre une capture écran de ce que tu souhaites ? merci par avance

voila un exemple:

sur les 3 feuilles, je souhaite ecraser les formules sur toutes les lignes à l'exception des lignes ( 11 à 14) et (24 à 27)

ensuite enregistrer le fichier ds le meme emplacement.

7test.xlsb (14.52 Ko)

merci pour l'aide

Cherifram,

voici ce qu'il te faut :

Sub EcraseLigne()

Dim feuil As Worksheet

    For Each feuil In ThisWorkbook.Worksheets
            feuil.Activate
            Range("C4:H7").Select
            Selection.ClearContents
            Range("C15:H18").Select
            Selection.ClearContents
    Next feuil

End Sub

Je te joins également un fichier pour tester la solution. Dis moi si oK?

17test-complet.xlsm (22.46 Ko)

c'est parfait. ce code est excatement ce qui me manquait. je l'ai rajouté à mon code et c'est c'est bon

merci Bcp :-)

Rechercher des sujets similaires à "macro envoi mail capture"