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

Glen27 Messages postés 20 Statut Membre -  
cedric0715 Messages postés 265 Statut Membre -
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 !

2 réponses

  1.
    cedric0715 Messages postés 265 Statut Membre
     
    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
    0
    1. Glen27 Messages postés 20 Statut Membre 1
       
      Bonjour Cédric,

      J'ai réduit mon fichier à l'onglet de données et à l'onglet avec le tableau. Voici le lien :
      https://www.cjoint.com/c/FAhmLUsnjMb

      Merci d'avance,
      Cdt
      0
  2. cedric0715 Messages postés 265 Statut Membre
     
    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
    0