Ajouter qq chose déjà présent au Presse-papiers

Tu n'as expliqué ni comment ni quand tu ajouterais cela.

Ma suggestion, c'est de l'ajouter après que le bouton ait été cliqué.

Le plus simple n'est-il pas d'ajouter un contrôle (une "case") au formulaire, et, après le clic, modifier le contenu de ce contrôle, puis de copier ce contenu?

Bon la vous m'avez vraiment perdue lol 

mais j'ai quand même tenté de travailler avec toutes vos idées

-j'ai voulu ajouter un vrai faux a chaque case 
RDPRM_quel_menu <> "Toutes les demandes"  ajouter le # de client.. 
mais oups refusé car je suis arrivé au max de caractères de ma formule, oui plus de 1000 caractères lol

-la case a coché était vraiment a proscrire , je déteste ajouter des étapes pour arriver à la même chose
mais ca m'a quand même donné ma piste finale.

j'ai rajouter  3 vrai faux au début de ma case RDPRM_FinalGroup pour pour y mettre selon mon choix RDPRM_quel_menu seulement le texte de 

RDPRM_Final1 & "- Ref. C/E : " & [#_de_client]

ou

RDPRM_Final2 & "- Ref. C/E : " & [#_de_client]

ou

RDPRM_Final3 & "- Ref. C/E : " & [#_de_client]

 mais si on choisi le "Toutes les demandes"  la c'est les 3 case et le # de client juste a la fin et en toute circonstance le texte que je met dans presspapier c'est RDPRM_FinalGroup 

tout marche! :)

Merci encore pour votre patience, vos idées et votre aide en général :)
 

Pour continuer sur ton idée "est-ce possible d'envoyer ce qu'il y a dans une variable dans le clipbord', tu pourrais sans doute faire ainsi:

Private Sub RDPRM_quel_menu_Click()
dim RDPRM_variable as string
If RDPRM_quel_menu = "demande 1" And Form1 <> "" And Not IsNull([Form1]) Then
RDPRM_variable = RDPRM_Final1 & "- Ref. C/E : " & [#_de_client]
call wc(RDPRM_variable)
End If

If RDPRM_quel_menu = "demande 2" And Form2 <> "" And Not IsNull([Form2]) Then
RDPRM_variable = RDPRM_Final2 & "- Ref. C/E : " & [#_de_client]
call wc(RDPRM_variable)
End If

If RDPRM_quel_menu = "demande 3" And Form3 <> "" And Not IsNull([Form3]) Then
RDPRM_variable = RDPRM_Final3 & "- Ref. C/E : " & [#_de_client]
call wc(RDPRM_variable)
End If

If RDPRM_quel_menu = "Toutes les demandes" And [Combien_enr] > 0 Then
RDPRM_variable = RDPRM_FinalGroup & "- Ref. C/E : " & [#_de_client]
call wc(RDPRM_variable)
End If

End Sub

Private Sub wc(txt)
Dim x As Variant, hf
x = txt
Set hf = CreateObject("htmlfile")
hf.parentWindow.clipboardData.setData "text", x
End Sub

​
Comme dis j'en ai plus vraiment besoin mais j'ai quand même testé car ca va surement  être  utile plus tard dans mon projet, je l'ai testé sur plus simple juste un choix, mais ca ne met rien dans le press papier :(

Private Sub RDPRM_quel_menu_Click()
Dim RDPRM_variable As String
If RDPRM_quel_menu = "demande 1" And Form1 <> "" And Not IsNull([Form1]) Then
RDPRM_variable = RDPRM_Final1 & - Ref. C/E : " & [#_de_client]
Call wc(RDPRM_variable)
End If
End Sub

Private Sub wc(txt)
Dim x As Variant, hf
x = txt
Set hf = CreateObject("htmlfile")
hf.parentWindow.clipboardData.setData "text", x
End Sub

j'ai testé encore plus simple :

Private Sub RDPRM_quel_menu_Click()
Dim RDPRM_variable As String
If RDPRM_quel_menu = "Demande 1" Then
RDPRM_variable = Me.RDPRM_Final1
Call wc(RDPRM_variable)
End If
End Sub

Private Sub wc(txt)
Dim x As Variant, hf
x = txt
Set hf = CreateObject("htmlfile")
hf.parentWindow.clipboardData.setData "text", x
End Sub

Mais vraiment rien dans le press papier

ce qui me questionne beaucoup c'est le CreateObject("htmlfile")

je vois pas le lien entre un fichier HTML "htmlfile" et ajouter qq chose dans le press papier

mais comme dis, si vous avez d'autre personne a aider ne perdez pas de temps avec ceci, je vais  le laisser ouvert, si plus tard j'en ai encore de besoin je vais y revenir..

je continue a suivre vos réponses au cas :)

merci encore:)

​

Et ainsi?

Private Sub RDPRM_quel_menu_Click()
Call wc("mis dans presse papier")
End Sub

Private Sub wc(txt As String)
Dim x As Variant, hf
x = txt
Set hf = CreateObject("htmlfile")
hf.parentWindow.clipboardData.setData "text", x
End Sub