Autres Automatiser envoi onglet

Dudu2

XLDnaute Barbatruc

• 24 Décembre 2019

• #2

Bonjour,
1 - Utilises-tu Outlook ?
2 - Le contenu à exporter doit-il être sous forme de fichier Excel ou de fichier PDF ?
D.

 

Vote positif 0 Vote négatif

F

francky77

XLDnaute Nouveau

• 24 Décembre 2019

• #3

Dudu2 à dit:

Bonjour,
1 - Utilises-tu Outlook ?
2 - Le contenu à exporter doit-il être sous forme de fichier Excel ou de fichier PDF ?
D.

Cliquez pour agrandir...

Bonjour,
Oui, j'utilise Outlook!!
Est-ce qu'il est possible de mettre le contenu directement dans le corps du mail comme une "photo"? Sinon, plutôt en PDF.
Merci
Franck

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 24 Décembre 2019

• #4

Personnellement, je ne vois pas comment transformer simplement la sélection A1:O39 en image.
L'enregistrement de la feuille sélectionnée pour l'envoi dans un fichier Excel temporaire lui même enregistré en PDF est de mon point de vue la seule solution "simple".
Je vais essayer de faire une Macro en enrobant les modules d'envoi de mail que j'ai déjà utilisés dans une application précédente.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 25 Décembre 2019

• #5

L’utilisation de l’objet Outlook nécessite d’ajouter une référence dans le projet VBA.
Cet ajout se fait par le menu « Outils / Références... » puis sélectionner "Microsoft Outlook xx.0 Object Library (où xx.0 représente la version d'Office).
ATTENTION: ce fichier contient initialement la version 16.0 de Microsoft Outlook Object Library qui n'est pas forcément la version installée sur le PC utilisé !
Faire la correction nécessaire.

J'ai mis un raccourci <Ctrl> + m pour activer la Macro d'envoi de mail plutôt que d'ajouter un bouton sur chaque feuille.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 25 Décembre 2019

• #6

Bonjour,
Erreur sur la Reference à ajouter... Pas "Office" mais "Outlook" ça suffit et c'est en ligne avec les commentaires.

S'il faut faire plusieurs envois (par exemple toutes les feuilles) lors de l'exécution de la Macro, laisse-moi savoir.

 

Pièces jointes

• AUTOMATISATION ENVOI ONGLET.xlsm

  104.5 KB · Affichages: 12

Dernière édition: 25 Décembre 2019

Vote positif 0 Vote négatif

F

francky77

XLDnaute Nouveau

• 26 Décembre 2019

• #7

Dudu2 à dit:

Bonjour,
Erreur sur la Reference à ajouter... Pas "Office" mais "Outlook" ça suffit et c'est en ligne avec les commentaires.

S'il faut faire plusieurs envois (par exemple toutes les feuilles) lors de l'exécution de la Macro, laisse-moi savoir.

Cliquez pour agrandir...

Bonjour Dudu,
Merci beaucoup pour le développement hélas je suis bien trop novice dans le vba pour comprendre les modifications à apporter. Peux-tu être plus précis dans la manière à faire ces modifications?
Franck

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 26 Décembre 2019

• #8

Bonjour,
Le problème est l'intégration dans le VBA de la référence à la bibliothèque Outlook. C'est indispensable.
Il y a déjà une référence incluse, celle que j'utilise avec Office 2013.
Dans un 1er temps essaie sans rien modifier.
Pour envoyer un message taper Ctrl + m sur la feuille en ayant d'abord vérifié que le mail du destinataire est correct ce qui n'est pas le cas dans le fichier fourni.
Si ça ne marche pas j'essaierai d'expliquer la suite...
Quelle et ta version d'Office ?

 

Vote positif 0 Vote négatif

F

francky77

XLDnaute Nouveau

• 26 Décembre 2019

• #9

Dudu2 à dit:

Bonjour,
Le problème est l'intégration dans le VBA de la référence à la bibliothèque Outlook. C'est indispensable.
Il y a déjà une référence incluse, celle que j'utilise avec Office 2013.
Dans un 1er temps essaie sans rien modifier.
Pour envoyer un message taper Ctrl + m sur la feuille en ayant d'abord vérifié que le mail du destinataire est correct ce qui n'est pas le cas dans le fichier fourni.
Si ça ne marche pas j'essaierai d'expliquer la suite...
Quelle et ta version d'Office ?

Cliquez pour agrandir...

J'ai bien modifié dans chaque onglet l'adresse mail avec ma propre adresse mail. Puis Ctrl + m et j'ai le message ci-joint

 

Pièces jointes

• indic.pptx

  87.4 KB · Affichages: 8

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 26 Décembre 2019

• #10

Il faut régler une option d'Excel.
- Ouvrir le fichier
- Cliquer sur l'onglet Fichier (en haut à gauche)
- Options
- Centre de gestion de la confidentialité
- Paramètre du Centre de gestion de la confidentialité
- Paramètres des macros
- Cocher la case Accès approuvé au modèle d'objet du projet VBA
- OK
- OK

 

Vote positif 0 Vote négatif

F

francky77

XLDnaute Nouveau

• 30 Décembre 2019

• #11

Bonjour,
Merci ça fonctionne super!!!

J'abuse un peu, as-tu regardé pour tout envoyer en une seules fois?
Franck

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 30 Décembre 2019

• #12

Bonjour
Ça ne présente pas de difficulté.
Je vais regarder dans la soirée.
JP

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 30 Décembre 2019

• #13

Combien y a-t-il de feuilles à envoyer en 1 fois ? Pour savoir si l'affichage du résultat final peut se faire avec 1 seul message.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 30 Décembre 2019

• #14

Bon... peu importe j'ai découpé la notification finale par groupe de 16 feuilles.
Voilà le fichier.
Si tu as plusieurs comptes Outlook, pour éviter d'être prompté au moment de l'envoi du message pour le choix du compte Outlook à utiliser pour l'expéditeur, j'ai ajouté une constante dans le Module1_Paramètres à valoriser du numéro d'ordre du compte Outlook expéditeur (ici le n° 1 dans l'exemple)
Public Const OutlookAccountNumber = 1

 

Pièces jointes

• AUTOMATISATION ENVOI ONGLET.xlsm

  109.2 KB · Affichages: 12

Vote positif 0 Vote négatif

F

francky77

XLDnaute Nouveau

• 31 Décembre 2019

• #15

Bonjour Dudu,
C'est impeccable, l'année 2020 n'a plus qu'à bien se tenir!!

Merci pour tout et je te souhaite tous mes vœux pour 2020.
Franck

 

Vote positif 0 Vote négatif