=> DEMO UseForm d'envoi d'un feuille (ou plusieurs d'un classeur) par email
Bonsoir Roulies, Arnaud
Bon je me suis lancé rapidos dans un truc un peu barbatruc, car en fait c'est sur la base d'une démo déjà existante... (Voir Lien supprimé où ma copine Celeda réclamait déjà d'en faire une XLA...
Donc voici une nouvelle démo qui va :
Lister les Classeurs Ouverts
Copie des feuilles sélectionnées vers un Nouveau Classeur avec Boite de Dialogue pour le sauver.
Cette dernière option va permettre de faire dans la foulée :
Option pour envoyer directement en Email ces feuilles ainsi sauvées.
Copie des feuilles sélectionnées vers classeur existant.
Cette dernière option va permettre de faire "deux/trois petites choses" :
; Proposer une boite de dialogue "GetOpenFileName" pour sélectionner un classeur existant.
; Vérifier si les feuilles existent déjà dans ce classeur sélectionné, auquel cas elles seront supprimées.
; Intégrer en fin de d'index des feuilles existantes dans ce classeurs les nouvelles à importer
; Proposer en fin de traitement de sauver et fermer directement le classeur ayant reçu l'import de feuilles...
Voilà...
En prime j'ai mis une Option pour Convertir ce Classeur automatiquement en XLA (et vice / versa) ... çà fera plaisir à ma copine Celeda, et ce devrait convenir aussi à notre amie Roulies.
Pour la méthode SendMail, par contre, il faut renseigner d'avance VBA pour les récipients, ici ils sont inscrits sur une plage de cellule...
Voilà... Attention toutefois j'ai fait ce truc hyper à la bourre, alors il doit sûrement persister des Bugs par ci par là... Mais je dois filer du bureau pour ne pas y rester enfermé 3 jours !!! (tenez moi au courant)
Dim BonWeekEnd As Long !!!
@+Thierry