Discussion :

[gangsterus]

Bonjour,

J'ai un fichier excel pour lequel je souhaite mettre en place une petite macro:

L'utilisateur a un formulaire avec des cases à cocher, des zones texte,...
Je souhaite que lorsqu'il renseigne ces éléments et qu'il clique sur un bouton, une phrase soit créée à partir des éléments renseignés. Jusque là, j'y arrive.
C'est pour la suite que j'ai besoin d'aide...
Je souhaite que la macro fasse un "copier" de la phrase.
L'utilisateur pourra ensuite faire un clic droit et "coller" pour coller la phrase dans une autre application interne.
Je précise que si on fait un copier coller à la main depuis une cellule excel vers cette application, ça fonctionne.

Voici le bout de code que j'utilise et l'endroit où je bloque:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
If ChkInfos = True Then
 
vInfosDos="Demande d'infos sur le produit"
 
End If
 
If ChkDevis = True Then
 
vDevisDos="Envoi devis"
 
End If
 
vDos = vInfosDos + vDevisDos

A la suite de ça, je suis tenté de mettre:

Code :

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

1
2
 
vDos.Copy

Mais, bien entendu, ça ne fonctionne pas!!

Si quelqu'un a une petite astuce, ou bien tout justement le bout de code qui me permettra d'avancer, ce serait top.

Merci d'avance.

[fring]

Bonjour,

Si je comprend bien, tu veux coller la variable dans le "presse papier"

Essaye ceci :
Il faut au préalable activer la référence Microsoft Forms x.x Object Library

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test_clipboard()
Dim vInfosDos As String, vDevisDos As String, vDos As String
Dim MyData As New DataObject
 
vInfosDos = "Demande d'infos sur le produit"
vDevisDos = "Envoi devis"
 
vDos = vInfosDos & " - " & vDevisDos
 
MyData.SetText vDos
MyData.PutInClipboard
 
End Sub

Petite remarque, pour concaténer plusieurs chaînes de caractères, il faut utiliser le signe & et non le signe +

[gangsterus]

Merci pour cette réponse.
Je vais essayer ça. Une petite question tout de même.
Si j'active cette référence. Si je change de poste ou de d'utilisateur, donc de préférence, ma macro fonctionnera-t-elle toujours?

Merci beaucoup

[fring]

Je ne peux pas l'affirmer à 100% mais je pense que oui, à essayer.

[gangsterus]

Je viens de tester, et CA MARCHE!!

Merci, t'es un chef! Avec la rapidité en plus.