Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1705 connectés 

  FORUM HardWare.fr
  Programmation

  VBA / Access /clipboard

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

VBA / Access /clipboard

n°90466
ricoco
Posté le 17-01-2002 à 22:17:00  profilanswer
 

en VBA sous Access
j'ai une variable nommée sqlstring qui contient une chaine de caractères
j'aimerais récupérer cette chaine de caractère dans le presse papier connaissez-vous la procédure en VBA ?
 
:jap:

mood
Publicité
Posté le 17-01-2002 à 22:17:00  profilanswer
 

n°90474
cerdoc
Comment l'AK47 à changé ma vie
Posté le 17-01-2002 à 22:34:38  profilanswer
 

pour mettre dans le clipboard:
 
Clipboard.SetText "glut?", vbCFText
 
pour récuperer cette chaine

dim sqlstring as string
sqlstring = Clipboard.GetText(vbCFText)

n°90480
ricoco
Posté le 17-01-2002 à 22:47:09  profilanswer
 

:sweat:
t'as réussi à faire marché ton exemple sous Access ? (j'ai la verison 97 SR2)

n°90481
cerdoc
Comment l'AK47 à changé ma vie
Posté le 17-01-2002 à 22:51:50  profilanswer
 

m**** moi c'est en VB et pas VBA , wait j'installe office

n°90483
ricoco
Posté le 17-01-2002 à 22:59:37  profilanswer
 

:)

n°90489
cerdoc
Comment l'AK47 à changé ma vie
Posté le 17-01-2002 à 23:29:48  profilanswer
 

bon désoled j'ai pas trouved , enfin ça marche pas
 
j'ai esayer ça :

Private Declare Function SetClipboardData Lib "user32" Alias "SetClipboardDataA" (ByVal wFormat As Long, ByVal hMem As Long) As Long
Private Declare Function GetClipboardData Lib "user32" Alias "GetClipboardDataA" (ByVal wFormat As Long) As Long
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
 
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function LocalAlloc Lib "kernel32" (ByVal wFlags As Long, ByVal wBytes As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
 
Private Sub main()
 
 
Dim ptrS As Long
 
 
Dim f As String
f = "glut?"
ptrS = LocalAlloc(0, Len(f))
CopyMemory ptrS, f, Len(f)
 
 
OpenClipboard vbNull
 
SetClipboardData 1, ptrS
 
MsgBox GetClipboardData(1)
 
CloseClipboard
 
End Sub
 

 
l'utilisation des API windows est la voie vers la solution a ton probleme car VBA ne connait pas l'objet clipboard.
 
par contre mon prog marche pas , il me dit qui trouve pas la déclaration SetClipboarddata dans user32.dd
 
bon courage

n°90490
ricoco
Posté le 17-01-2002 à 23:34:41  profilanswer
 

merci de m'avoir montré la voie  
je continue mon bonhomme de chemin avec le clipboard !
:hello:
 
je cherche tjs  sur le net au cas ou ... des liens interessants
 
http://www.cathyastuce.com/index.htm
http://www.namani.net/
 
http://www.excel-vba-access.com/access/index.htm
http://www.barasch.com/excel/xlvba.htm


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation

  VBA / Access /clipboard

 

Sujets relatifs
[ASP ACCESS] Problème de requête![ASP] Acces à une base access en chemin absolu sur un serveur distant
[ACCESS] Obtenir l'heure d'y a 5 minutes ?[VBA] Pb avec ma boucle while .... Synthaxe sans doute
[Access ] envoie d'email au format HTMLexiste-t-il un soft pour passer d'une BD sous Access en mySQL ?
[VB] Utilisation d'une base Access 2000[ACCESS] Pb d'ajout dans un formulaire avec une requete
Acces VBA supprimer une BD via le code...[VBA] macro d'initialisation dans un modèle xl
Plus de sujets relatifs à : VBA / Access /clipboard


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR