Copie d'un simple texte en vba sous Access

Résolu
picsoin Messages postés 172 Statut Membre -  
picsoin Messages postés 172 Statut Membre -

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

  1.
    yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 588
     

    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
    1. picsoin Messages postés 172 Statut Membre 5
       

      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
      1. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   1 588 > picsoin Messages postés 172 Statut Membre
         

        Peux-tu partager ton code adapté?

        0
      2. picsoin Messages postés 172 Statut Membre 5 > yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention  
         

        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
  2. picsoin Messages postés 172 Statut Membre 5
     

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

    0

Discussions similaires

Copier un lien instagram
alaurore -
LEFEUVRE -

7 réponses
Retrouver liens copiés sur le téléphone
SAMA -
Lylou -

2 réponses
copie d'un lien dans le navigateur internet
Ulysse Orseau -
diamantnoir -

4 réponses
Avast HNS-SELF-WAN-ACCESS-IPV6
Astafor99 -
Astafor99 -

4 réponses
Quick Access service
alain_1949 -
billmaxime -

4 réponses