Copie d'un simple texte en vba sous Access
Résolu
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
- Copie d'un simple texte en vba sous Access
- Copie cachée - Guide
- Texte de chanson gratuit pdf - Télécharger - Vie quotidienne
- Super copie - Télécharger - Gestion de fichiers
- Transcription audio en texte word gratuit - Guide
- Copie écran samsung - Guide
2 réponses
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
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
Peux-tu partager ton code adapté?
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