Copier dans le presse papier le contenu d'un Select

**androo** · 15/02/2012, 18h53

Bonjour à tous,

Est il possible de copier dans le presse papier le contenu d'un Select :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

<SELECT name="LstSerial" Id="LstSerial" disabled="disabled" SIZE=3  onclick="????.PutInClipboard"> </SELECT>

un peu dans ce genre. Sauf que je ne sais pas quoi mettre à la place des ???

Merci d avance pour votre aide

**ProgElecT** · 15/02/2012, 21h46

Un exemple de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
<HTML>
	<HEAD>
	<TITLE> Manipuler le presse papier </TITLE>
		<HTA:APPLICATION
         ApplicationName = "ClipBoardHTA"
         Id="ClipBoardHTA"
		>
	</HEAD>
	<SCRIPT language="VBScript" type="text/VBScript" >
'----------------------------------------------------------------------------------------------------------------------
		Sub LstChoix_onchange()
			'copier dans le presse papier
			dim Ret
			Ret = CreateObject("htmlfile").ParentWindow.ClipboardData.setData("text",LstChoix.VALUE)
		End Sub
'----------------------------------------------------------------------------------------------------------------------
		Sub GoRecup_OnClick()
			'Recuperer le presse papier
			dim MsG
			MsG = CreateObject("htmlfile").ParentWindow.clipboardData.Getdata("text")
			If IsNull(MsG) = True then MsG = "Le presse papier est vide de texte"
			MsgBox MsG
		End Sub
'----------------------------------------------------------------------------------------------------------------------
		Sub GoVide_OnClick()
			'Vider le presse papier
			dim Ret
			Ret = CreateObject("htmlfile").ParentWindow.clipboardData.ClearData("text")
		End Sub
'----------------------------------------------------------------------------------------------------------------------
	</SCRIPT>
	<Body>
		votre choix sera collé dans le presse papier ---->
		<SELECT name="LstChoix">
			<OPTION VALUE="Premier choix">Premier choix
			<OPTION VALUE="Deuxiéme choix">Deuxiéme choix
			<OPTION VALUE="Un autre encore">Un autre encore
			<OPTION VALUE="Aller, le dernier choix">Aller, le dernier choix
		</SELECT>
		<INPUT Type="button" name="GoRecup" value="Recuperer le presse papier">
		<INPUT Type="button" name="GoVide" value="Vider le presse papier">
	</Body>
</HTML>

**androo** · 16/02/2012, 17h56

Merci Francis pour ta réponse,
cependant j'aurai souhaiter l'ajouter a mon précédent code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Dim oOption, V 
    
    For V = LstImpr.length To 0 Step -1: LstImpr.Remove (V): Next
    V=0
	While Not Sqlresult.EOF
		'ajoute les noms à la liste 
		Set oOption = window.Document.createElement("OPTION")
		oOption.Text = Sqlresult.fields("NOM_IMPRIMANTE")
		oOption.Value = "Option " & V
		LstImpr.Add (oOption)
        V = V + 1
Ret=CreateObject("htmlfile").ParentWindow.ClipboardData.setData("text",oOption.text)
		Sqlresult.MoveNext
		
    Wend
	
	Sqlresult.Close: Set Sqlresult = Nothing
	Connect.Close: Set Connect = Nothing
    If V = 0 Then
        Set oOption = window.Document.createElement("OPTION")
        oOption.Text = "Auncune IMPRIMANTE disponnible"
        oOption.Value = V
        LstImpr.Add (oOption)
		LstImpr.disabled = "disabled"
		
        Else
        LstImpr.disabled = ""
		
	End If
	
		
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
<Body>
		votre choix sera collé dans le presse papier ---->
		<SELECT name="LstImpr" Id="LstImpr" disabled="disabled"> </SELECT>
		<INPUT Type="button" name="GoRecup" value="Recuperer le presse papier">
		<INPUT Type="button" name="GoVide" value="Vider le presse papier">
	</Body>

J'ai pensé le faire comme ça mais le problème c'est qu'il me ressort en presse papier la dernière imprimante et non celle que je choisi. Je pense que je m'y prend mal

**ProgElecT** · 16/02/2012, 18h09

Salut

Il faut mettre la capture de l'information ailleurs

Dans le <BODY>

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

		<SELECT name="LstImpr" Id="LstImpr" disabled="disabled"  onchange="CopierPP"> </SELECT>

Dans la partie <SCRIPT>

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
		Sub CopierPP()
			Dim Ret
			'copier du texte dans le presse papier
			Ret=CreateObject("htmlfile").ParentWindow.ClipboardData.setData("text",LstImpr.Value)
		End Sub