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

A voir également:

Copie d'un simple texte en vba sous Access
Copie cachée - Guide
Transcription audio en texte word gratuit - Guide
Iphone 14 simple - Guide
Copie écran samsung - Guide
Mettre un texte en majuscule - Guide

2 réponses

Réponse 1 / 2

yg_be Messages postés 23526 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 14 avril 2025 Ambassadeur 1 577
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

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

yg_be Messages postés 23526 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 14 avril 2025 1 577 > 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é?

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 23526 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 14 avril 2025
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

Réponse 2 / 2

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

Discussions similaires

lien copié

copie de texte

copie d'un lien dans le navigateur internet