Copie d'un simple texte en vba sous Access

Résolu/Fermé
picsoin Messages postés 158 Date d'inscription mardi 4 août 2009 Statut Membre Dernière intervention 24 juin 2023 - 3 févr. 2023 à 19:43
picsoin Messages postés 158 Date d'inscription mardi 4 août 2009 Statut Membre Dernière intervention 24 juin 2023 - 5 févr. 2023 à 22:27

Bonjour,

Bonsoir à tous,
Autant je sais sélectionner un contrôle dans un formulaire pour en mettre le contenu dans le presse papier mais la simple copie d'un texte, dans le code, je bloque!!!!!

Le code pour copier le controle est
Me.MONCHAMP.SetFocus
Me.MONCHAMP.SelStart = 0
Me.MONCHAMP.SelLength = Len(MONCHAMP.Text)
 'le texte est sélectionné, il nous reste qu'à le copier.
DoCmd.RunCommand acCmdCopy

Mais je voudrais copier par exemple "heelo world" et le mettre dans le presse papier!!!!!!!
Je n'ai rien de trouvé de tel après des heures de recherche.

Je précise qu'il n'y a aucun contrôle à copier juste un bête texte en cliquant sur un bouton.
Merci à vous

ps: l'objectif étant de copier des phrases toutes faites pour des réponses mails ou Skype à des utilisateurs dans mon boulot. pas de perte de temps !


Windows / Firefox 109.0

2 réponses

yg_be Messages postés 22872 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 13 juin 2024 1 474
3 févr. 2023 à 20:01

bonjour,

peut-être 

Private Sub testhello()
Call wc("heelo world")
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
MsgBox "Le texte suivant a été inséré dans le presse papier: """ + txt + """"
End Sub
1
picsoin Messages postés 158 Date d'inscription mardi 4 août 2009 Statut Membre Dernière intervention 24 juin 2023 5
3 févr. 2023 à 21:32

J'ai oublié de dire que je clic sur un bouton dans un formulaire.

Du coup moi ça commence comme ça

Private Sub Btn_TXT1_Click()

Call wc("heelo world")

End Sub

Et là, quand je compile access me dit Erreur de compilation: sub ou Fonction non défini

0
yg_be Messages postés 22872 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 13 juin 2024 1 474 > picsoin Messages postés 158 Date d'inscription mardi 4 août 2009 Statut Membre Dernière intervention 24 juin 2023
4 févr. 2023 à 14:34

Peux-tu partager ton code adapté?

0
picsoin Messages postés 158 Date d'inscription mardi 4 août 2009 Statut Membre Dernière intervention 24 juin 2023 5 > yg_be Messages postés 22872 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 13 juin 2024
Modifié le 5 févr. 2023 à 22:35

Merci et grâce à toi celui-ci est fonctionnel

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

0
picsoin Messages postés 158 Date d'inscription mardi 4 août 2009 Statut Membre Dernière intervention 24 juin 2023 5
3 févr. 2023 à 20:11

Merci, j'vais essayer ça, mais je n'ai pas besoin de la MsgBox

0