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

[Fermé]
Signaler
Messages postés
19
Date d'inscription
mardi 11 mars 2014
Statut
Membre
Dernière intervention
22 janvier 2016
-
Messages postés
210
Date d'inscription
mercredi 25 février 2015
Statut
Membre
Dernière intervention
6 mai 2018
-
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

Messages postés
210
Date d'inscription
mercredi 25 février 2015
Statut
Membre
Dernière intervention
6 mai 2018

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
Messages postés
19
Date d'inscription
mardi 11 mars 2014
Statut
Membre
Dernière intervention
22 janvier 2016
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
Messages postés
210
Date d'inscription
mercredi 25 février 2015
Statut
Membre
Dernière intervention
6 mai 2018

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
Messages postés
210
Date d'inscription
mercredi 25 février 2015
Statut
Membre
Dernière intervention
6 mai 2018