copier le contenu d'une textbox dans le presse papier...

copier le contenu d'une textbox dans le presse papier... - VB/VBA/VBS - Programmation

Marsh Posté le 20-04-2005 à 11:05:22    

bonjour,  
 
Voilà, je voudrai copier le contenu d'une textbox dans le presse papier en cliquant sur un bouton, quelqu'un a une idée de comment faire ?
 
 
Merci

Reply

Marsh Posté le 20-04-2005 à 11:05:22   

Reply

Marsh Posté le 20-04-2005 à 11:38:28    

Salut,
 
Il te suffit de sélectionner le contenu de la textbox et ensuite d'exécuter l'option du menu "Edition/Copier".
 
Pour la sélection, soit tu obliges l'utilisateur a le faire avec la souris, soit tu le fais par code avec:

Code :
  1. TextBox.SelStart = 0
  2. TextBox.SelLength = Len(TextBox.Value)


 
Et pour copier la valeur dans le presse papier tu fais:

Code :
  1. DoCmd.DoMenuItem acFormBar, acEditMenu, acCopy, , acMenuVer70


 
Voilà...

Reply

Marsh Posté le 20-04-2005 à 11:42:26    

merci beacoup pour la clarté et la rapidité de ta réponse, je vais essayer

Reply

Marsh Posté le 20-04-2005 à 11:48:30    

arf ça a pas l'air de marcher
il me dit objet requis à la ligne  
 
1. DoCmd.DoMenuItem acFormBar, acEditMenu, acCopy, , acMenuVer70
 
faut il ajouter quelque chose ?
 
Merci

Reply

Marsh Posté le 20-04-2005 à 12:11:13    

Tu utilises quoi comme application?  
Acccess?
Word?
Excel?
Outlook?
 
Le code que j'ai donné fonctionne sous Access en tous les cas
 
A+

Reply

Marsh Posté le 20-04-2005 à 12:15:00    

j'ai trouvé une autre solution
 
link = "*************"
Clipboard.SetText link
 
ça foctionne bien
 
merci tout de meme
 

Reply

Marsh Posté le 27-11-2008 à 14:51:53    

Bonjour,
J'ai un souci sur l'ecriture d'un petit code VB me permettant de faire un transfert de quelques données de Excel vers un fichier TXT.
 voici le code:
Sub Générer_PAT()
'
' Générer_PAT Macro
'
' Touche de raccourci du clavier: Ctrl+Maj+M
 
 ' '  Declaration variables
    Dim FileName, t As Integer
 
'Selection de la zone à copier
   
ActiveSheet.Range("K2" ).CurrentRegion.Select
Selection.Copy
 
 
 
 '  Demande fichier de sauvegarde
     FileName = Application.GetSaveAsFilename(Nom_Fichier, "Text Files (*.txt), *.txt" )
 
 '  Ouverture fichier
     Open FileName For Output As #1
     
         
         t = Sendkeys "^v"
         
'          Ecriture de la ligne dans le fichier si non vide
           Print #1, t
           
 '  Fermeture fichier
 
Close #1
End Sub
 
Merci par avance aux gens qui pourront m'aider.
 

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed