Résultats de la recherche

Re : Charger une ComboBox avec des valeurs dépendants d'OptionBox Une solution que j'ai trouvé. Merci

Bonjour, Je souhaiterai charger une ComboBox en utilisant un filtre par l'intermédiaire d'OptionBox. En réalité, dans ma feuille Excel "Table" j'ai en colonne A le type de profilé et en colonne B le nom du profilé j'ai un certain nombre de type de profilés: IPE, HEA,UPN... Dans mon...

Re : Chaine de caractère pour Email en fonction de la valeur d'une Liste Je travail sur Lotus notes et la virgule marche! Ceci dit, libre à chacun de l'adapter à son cas :-D ++

Re : Chaine de caractère pour Email en fonction de la valeur d'une Liste La liste change et les destinataires doivent s'adapter automatiquement. Voici ce aue j'ai trouvé et qui marche: Private Sub UserForm_Click() Dim TheCell As Range Dim iLigne As Integer Dim ListeMail As String 'Il...

Re : Chaine de caractère pour Email en fonction de la valeur d'une Liste Dans l'exemple de l'image, j'ai dans la Listbox2 les type AE: CAC, AVG et PAC donc je souhaiterai avoir: ListedeMail = "DupP@xxx.com, RichB@yyy.com, TotT@zzz.com

Bonjour le forum. Voici mon problème, j'espère que vous pourrez m'aider. Je souhaite établir un code qui renvoie une chaine de caractère permettant d'envoyer un mail à plusieurs personnes. Vous trouverez une image en pièce jointe pour mieux visualiser ce qui me donne du fil a retordre...

Re : Adaptation code pour envoi d'un message avec Lotus Note 6.5 Voici mon code final qui je pense adapté correctement pourra servir à d'autres personnes. '---------- API ----------- 'pour faire passer au premier plan Private Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As...

Re : Affichage de Mail avant envoi. Je viens de trouver une solution :-) En créant une expression regroupant mes elements de list box :-) For i = 0 To UserFormEMail.ListBox2.ListCount - 1 Textei = UserFormEMail.ListBox2.List(i) & " --- " & UserFormEMail.ListBox3.List(i) & Chr(10) &...

Re : Affichage de Mail avant envoi. Bonjour Dull. Merci pour ta réponse! C'est le premier pas que je fais depuis hier matin!! Tout marche excepté la ListBox qui ne s'affiche pas. Je peux afficher un element de la liste en tapant UserFormEMail.ListBox2.List(1) as tu une solution...

Re : Affichage de Mail avant envoi. Merci d'essayer de m'aider! J'ai déjà essayer tout ca mais rien n'y fait :-( Je ne sais pas ce que représente le FALSE mais les syntaxes: MailDoc.send (True) ou MailDoc.send (False) ou maildoc.send 0, sSendTo Envoi le mail directement sans...

Re : Affichage de Mail avant envoi. Bonjour le Forum, Petite relance car je suis dans une impasse :-( N'importe quelles idées sont les bienvenues! Je suis prêt á tout tester! C'est surement une syntaxe que je ne connais pas! Merci

Re : Affichage de Mail avant envoi. Autre variante pour résoudre ce problème: Voila j'ai un autre code qui lui ouvre bien le message dans Lotus note avant de l'envoyer. Cette solution me conviendrai excepté le corps du message que je n'arrive pas à mettre sous forme: Bientot 8 heure a...

Bonjour, J'aimerai modifier le code suivant: Private Sub CommandButton1_Click() 'Set up the objects required for Automation into lotus notes Dim Maildb As Object 'The mail database Dim UserName As String 'The current users notes name Dim MailDbName As String 'THe current users...

Re : Adaptation code pour envoi d'un message avec Lotus Note 6.5 Bonjour le forum. Bon lundi a tous! Petite relance concerant mon problème :-D Merci, Bruno

Bonjour, Je souhaiterai envoyer un message utilisant une macro à travers LotusNote: Voila mon point de départ: Access - Les Sources j'ai créé un bouton pour lancer la procedure qui possède ce code: Private Sub CommandButton1_Click() SendNotesMail Me!txtSubject...

Re : Envoi EMail Type avec valeur afichées dans Userform Bonjour, après mes recherches, voici le code auquel j'arrive qui effectue à peu pres la fonction que je souhaite. Private Sub CommandButton1_Click() 'Set up the objects required for Automation into lotus notes Dim Maildb As...

Re : Une macro ouvrant la fenêtre " Imprimer " J'ai trouvé une solution à ce probleme. En utilisant le debug pas à pas (touche F8) je me suis rendu compte que le problème ne venait pas du lancement des Userforms mais de leur contenu. En effet, j'ai simplement eu a rajouter des .value...

Re : Run-time error '-2147352571 (80020005)': Merci, c'était pour la lisibilité. Comme ca marchait sans apostrophe je ne me suis pas vraiment posè la question. Comme je n'avait jamais fait d'Excel VBA avant mon stage, je suis sur que mes codes ne sont pas les plus simples. Au moins ils...

Re : Run-time error '-2147352571 (80020005)': C'est bon j'ai trouvé une solution: Metre des .Value apres les .Additem Merci pour votre aide. Bruno

Re : Run-time error '-2147352571 (80020005)': En suivant les etapes de débug utilisant F8, je me suis apercu qu'il n'y avait pas de probleme pour l'ouverture des UserForm. En faite j'ai un probleme dans 2 boucles différentes. Ce que je ne comprends pas, c'est que ces boucles marchent bien...