Copy et paste imcomprehensible

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:

---

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:

---

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

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:

---

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.

bonjour
et merci pour le retour:ccool:
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

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:

---

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:

---

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.

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

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:

---

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 ?

bonsoir

ton dernier code semble fonctionner

je te remercie je vais etudier ca pour en comprendre le code et je reviens

merci pour ta perseverence :ccool:

a plus tard

au plaisir

bonsoir
Après de nombreuse recherches je n'ai pas trouver de meilleurs solutions
Je clos donc le sujet

Merci encore a toi

Au plaisir