Créer 1 macro pour mettre à jour 1 TabDynCr + l'envoyer par mail

Question

Bonjour, 

J'ai lu beaucoup de posts concernant les macros d'envois par mail, mais elles étaient toutes sous condition, ce qui n'est pas mon cas : je dois juste envoyer l'image de quelques cellules tous les soirs, avant de fermer le fichier.

Tous les jours, nous répertorions des produits en retours clients.

A la fin de la journée, on doit juste envoyer à des collègues la liste des retours traités (client + n° de retour), sans les détails. Pour ce faire, j'ai ajouté un onglet dans lequel j'ai créé un tableau dynamique croisé qui me renvoie exactement ces informations. C'est l'image de ce tableau que je voudrais envoyer sans faire "à la mimine" la copie, l'ouverture d'un message dans Lotus, le collage et toutes les autres étapes nécessaires à cet envoi.

D'habitude, quand j'ai besoin d'une macro, j'utilise la fonction "Enregistrer une macro" et je fais les opérations que je souhaite automatiser. Malheureusement, je ne sais pas du tout faire celles-ci.

Pourriez-vous SVP m'aider à créer une macro qui :
  - actualiserait mon tableau, pour prendre en compte les saisies du jour ?
  - mettrait la date du jour dans le filtre de rapport ?
  - copierait les cellules du tableau et les enverrait par mail à la liste des destinataires ?

Merci d'avance pour votre aide et

BONNE ANNEE !

cedric0715 · Answer

peut tu envoyer ton fichier afin d’essayé de te crée ce que tu désire

dépose le fichier sur ce site 
https://www.cjoint.com/
et copie le lien  qui te donneront et envoie le moi

cedric0715 · Answer

bonjour
trouve ci joint une partit de ta demande 
envoie mail et actualisation 
attention dans visual basic  il faut rentré une adresse mail 

Sub Envoi_jpp()
    Dim Dest As String, Sujet As String
    'affiche
    Sheets("Liste quotidienne").Visible = True
    Sheets("Tableau récapitulatif").Visible = True
    ' copie des 2 feuilles sur un nouveau classeur temporaire           2 feuilles avec 3 dans le tableau ??????????????????
    Sheets(Array("Liste quotidienne", "Tableau récapitulatif")).Copy
    claprov = "details retours"
    Workbooks(ActiveWorkbook.Name).SaveAs claprov
 Dest = "                     " 'Saisir l'adresse mail
    Sujet = "detail retour"
    Application.DisplayAlerts = False
    ' attention : si ReturnReceipt  = False ---> envoi direct  si True -->est prêt dans boîte d'envoi
    ActiveWorkbook.SendMail Recipients:=Dest, Subject:=Sujet, ReturnReceipt:=True ' voir explication ligne au dessus
    ' récupérer répertoire et chemin complet du classeur temporaire
    claprov = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
    ActiveWorkbook.Close ' Fermer le classeur temporaire créé pour le courriel
    Kill claprov ' Supprimer le classeur temporaire
    Application.DisplayAlerts = True
   
je reste a disposition

Créer 1 macro pour mettre à jour 1 TabDynCr + l'envoyer par mail

2 réponses

Votre réponse

Discussions similaires

Newsletters