Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 Envoyer par mail en fonction d'un UserForm arpés selection

jeromeN95

XLDnaute Impliqué
Bonjour
ci joint fichier pour comprendre.

Je souhaite finir ma procédure mais cela échoue :

1 onglet "Choix" avec un bouton intitulé "Protocole"
Lorsqu'on clique dessus, l'utilisateur à la choix de sélectionner de 1 à 5 Protocoles à choix multiple dans une liste déroulante défini et fixe de 3 protocoles.

Ces protocoles (d'utilisation pour client), sont des feuilles nommés et cachés.

Le code que j'ai fait exécute la procédure (Afficher l'onglet caché, créé un PDF de la feuille dans le même dossier que le classeur, envoie par mail, supprime le PDF crée et re-masque le ou les onglets).

Je n'arrive pas à comprendre comment dans le code rajouter les autres feuilles en fonction de la sélection.

Pourriez vous m'aider svp???
 

Pièces jointes

  • Envoie de protocoles par mail.xlsm
    382.8 KB · Affichages: 4

kingfadhel

XLDnaute Impliqué
Bonsoir tout le monde,
Quant au remplissage des combobox voila un bout de code:

VB:
Private Sub UserForm_Initialize()
For i = 1 To Sheets.Count
If Sheets(i).Name <> "RèglesProto" And Sheets(i).Name <> "choix" Then
    ComboBox1.AddItem (Sheets(i).Name)
    ComboBox2.AddItem (Sheets(i).Name)
    ComboBox3.AddItem (Sheets(i).Name)
End If
Next
End Sub

à modifier selon tes besoins.
 

jeromeN95

XLDnaute Impliqué
Bonsoir [U]kingfadhel,[/U]
en faite, le ComboBox1 ne peux lister que les Proto finissant par 1
Le ComboBox2 pas 2
Le ComboBox3 par 3

Actuellement le code donne accés à tout.

J'ai ajouter le bouton pour valider et lancer la fonction mail.
 

Pièces jointes

  • Envoie de protocoles par mail.xlsm
    387.6 KB · Affichages: 6
Dernière édition:

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…