Discussion :

[patricktoulon]

bonjour a tous
j'ai un petit souci avec un copy paste

voila mon souci
je prend un cliché de l'userform avec l'api adequate
'capturer l'écran

Code :

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

1
2
3
4
5
6
 Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
private sub bouton_click()
keybd_event vbKeySnapshot, 1&, 0&, 0& ' fenêtre active
        DoEvents
Sheets(1).Paste
end sub

sa sa fonctionne
le problème c'est que je peut le faire plusieurs fois après avoir apporté des modification a l'userform

et a chaque fois c'est l'image de la précédente capture qui se colle dans le sheets
je suis obligé de faire 2 a trois fois la capture pour que la capture soit bien la dernière comme ceci

Code :

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

1
2
3
4
5
6
private sub bouton_click()
for i = 1 to 3
keybd_event vbKeySnapshot, 1&, 0&, 0& ' Capture de la fenêtre active
next
        Sheets(1).Paste
end sub

quelqu'un a une idée pourquoi je suis obligé de faire ca ??

merci pour le retour

au plaisir

[enernaej]

Bonjour,

J'ai juste ajouté une ligne à la première version de votre code. Je n'ai pas testé avec un userform mais avec la fenêtre "Microsoft Visual Basic" en changeant les fichiers déployés dans la fenêtre projets ... et ça marche chez moi avec Excel 2007.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
  Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
 
Private Sub bouton_click()
 
  keybd_event vbKeySnapshot, 1&, 0&, 0& ' fenêtre active
  DoEvents
  Sheets(1).Paste
  Application.CutCopyMode = False
 
End Sub

A voir.

[patricktoulon]

bonjour
et merci pour le retour
cependant tu aurais du essayer avec un userform tu aurais constaté qu'il n'y avais pas de changement

et pour vider le presse papier j'utilise les api ce qui reviens au meme cela dit

une autre idée???

au plaisir

[PMO2017]

Bonjour,

J'ai reproduit la situation décrite en créant un UserForm avec une TextBox, une ComboBox et un CommandButton. J'ai appliqué le code suivant au UserForm

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
 
Private Sub CommandButton1_Click()
keybd_event vbKeySnapshot, 1&, 0&, 0& ' fenêtre active
DoEvents
Sheets(1).Paste
End Sub
 
Private Sub UserForm_Initialize()
Dim Jours
Jours = Array("lundi", "mardi", "mercredi", "jeudi", "vendredi", "samedi", "dimanche")
ComboBox1.List = Jours
End Sub

Je lance le UserForm à partir d'un CommandButton (OLEObject) situé sur Feuil1 dont le code est le suivant

Code :

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

1
2
3
Private Sub CommandButton1_Click()
UserForm1.Show vbModeless
End Sub

J'utilise vbModeless pour pouvoir cliquer sur une cellule de la feuille pendant l'exécution du UserForm afin que les différentes copies ne se superposent pas.
************************
J'ai fait plusieurs essais de prendre plusieurs copies tout en changeant les valeurs de la TexBox et de la ComboBox
1) à partir de la même instance du UserForm,
2) en ouvrant et fermant successivement le UserForm
Tout fonctionne parfaitement sur ma machine aussi bien sous Excel2003 qu'Excel2007

A part le changement de déclaration de l'API (Private dans mon code), le code est identique au tien. Par conséquent, je ne vois pas d'où vient l'anomalie et si j'ai apporté de l'eau au moulin.

[patricktoulon]

bonjour et merci pour l'intérêt que tu porte a mon souci

mais je viens d'essayer ton fichier et le problème reste identique chez moi

je l'affiche
je change la combo
je prend un cliché
déjà au départ j'ai un bug' le presse papier semble etre vide
ensuite je re affiche le userform
je change la combo
je prend le cliché
et l'image est collée dans la feuille
je rechange la combo
je reprend un cliché
et la l'image et la meme que la première
je rechange une 3 eme fois
et c'est le cliché n°2 qui se colle dans le sheets

je suis en train de me rendre dingue avec ce truc

merci pour le retour

au plaisir

[PMO2017]

Bonjour,

J'avais fait les essais sur ma machine dont l'OS est XP.
Suite à la persistance de ton problème, je me suis mis sur la machine du fiston qui est sous Seven. Sur cet OS, je constate les mêmes problèmes que ceux que tu rencontres.

Je te proposes le code suivant qui semble tout solutionner :

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
Private Declare Sub keybd_event Lib "user32.dll" ( _
  ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function CloseClipboard& Lib "User32" ()
Private Declare Function OpenClipboard& Lib "User32" (ByVal hwnd As Long)
Private Declare Function EmptyClipboard& Lib "User32" ()
 
Private Sub CommandButton1_Click()
Dim retour&
'--- Le presse-papiers ---
retour& = OpenClipboard(0&) 'Ouvre
If retour& = 0 Then
  MsgBox "Impossible d'ouvrir le presse papier."
  Exit Sub
End If
retour& = EmptyClipboard    'Efface
retour& = CloseClipboard    'Ferme
If retour& = 0 Then
  MsgBox "Impossible de fermer le presse papier."
  Exit Sub
End If
'--------------------------
keybd_event vbKeySnapshot, 1&, 0&, 0& ' fenêtre active
On Error Resume Next
Do
  Err.Clear
  DoEvents
  Sheets(1).Paste
Loop Until Err = 0
On Error GoTo 0
End Sub
 
Private Sub UserForm_Initialize()
Dim Jours
Jours = Array("lundi", "mardi", "mercredi", "jeudi", "vendredi", "samedi", "dimanche")
ComboBox1.List = Jours
End Sub

Est-ce mieux ?