Discussion :

[patmicro]

Bonjour à tous les lecteurs : Dans Outlook 2019 j'ai créé un Userform avec une liste déroulante pour insérer des choix de formules de politesse. L'affichage de la liste s'effectue correctement. Le problème c'est que l'enregistreur de macro n'est pas disponible. J'ai cherché sans résultat le code correspondant pour coller le texte sélectionné dans mon Userform (ici en jaune ) pour le coller dans le corps de mon message à envoyer.
La syntaxe coller (en jaune ) n'est pas conforme et il est impossible de simuler avec l'enregistreur de macros.

Quelqu'un aurait-il une idée ?

Par avance je vous remercie.

Ci-joint copies d'écran et du code

[ChristianBosch]

Bonjour, alors déjà la ligne

combobox1.copy

n'est pas bonne car vous tentez de copier l'objet complet (combobox) et non la valeur de l'objet (ce que je pense que vous désirez) il serait préférable d'utiliser quelque chose du genre

combobox1.selecteditem.copy

En suite vous utilisez

selection.paste

mais vous n'avez rien sélectionné d’où le message d'erreur.

Je sais comment ecrire un nouveau mail avec un corps,expéditeur et sujet déjà prédéfini mais je ne sais pas comment écrire dans un mail deja ouvert...

[patmicro]

Bonsoir Christian : Merci pour votre participation. J'ai bien essayé votre code mais malheureusement sans succès.

Votre code "combobox1.selecteditem.copy" ne fonctionne pas ni même et renvoi le message suivant Erreur de compilation Membre de méthode ou données introuvables.
Selection paste renvoi le message suivant Erreur d'exécution 424 Objet requis. j'en déduit que l'objet correspond à la feuille nouveau message.

Je suis sur que la fonction "ComboBox1.Copy" Copier fonctionne. A mon avis c'est la fonction de sélection du corps de message qui manque pour pouvoir copier l'Item sélectionné dans la combo.

[ChristianBosch]

Oui vous avez raison ça fonctionne sur outlook, vous copiez bien dans le presse papier le texte sélectionné dans votre combobox.

J'ai trouvé comment écrire dans le mail actif (fenetre active) mais ca remplace tout le corps du mail, il faut donc le faire en premier.

Sur l'USF

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Private Sub CommandButton1_Click()
formule = ComboBox1.Value
Unload Me
End Sub
 
Private Sub UserForm_Initialize()
ComboBox1.AddItem "Cdt"
End Sub

Dans le module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Public formule As String
Sub test()
UserForm1.Show
ActiveWindow.CurrentItem.HTMLBody (formule)
End Sub

Je sais pas si ça réponds à ce que tu veux mais j'ai trouvé que ça pour le moment...

Si quelqu'un a une autre technique qu'il se manifeste !

[ChristianBosch]

ok je pense avoir trouvé comment faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Public formule As String
Sub test()
UserForm1.Show
ActiveWindow.CurrentItem.Body = ActiveWindow.CurrentItem.Body & Chr(13) & Chr(10) & Chr(13) & Chr(10) & formule
End Sub

On réinjecte le corps du mail avant d'y ajouter 2 sauts de ligne + la formule

[patmicro]

Bonsoir Christian : Désolé mais cela ne fonctionne toujours pas. Je précise que c'est mon bouton Valider " Private Sub CommandButton2_Click() " non visible dans la copie d'écran qui doit déclencher le copier coller du texte de la combo.