Bonjour,

Je travaille sur un projet VBA, dans lequel selon un nombre d’itérations je copie colle un ole object transparent et le positionne sur un shape. Le but est d'afficher une info bulle quand je parcours la souris sur le shape.
Voici un bout du code pour chaque iteration.

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
ActiveSheet.Shapes.Range(Array("Ole_1234")).Select
'Permet d activer mode copier/couper
Application.CutCopyMode = True
Selection.Copy
DoEvents
ActiveSheet.Paste
Application.CutCopyMode = False
'vider le presse papier
Call Module4.Vider_Presse_Papier
 
 
-----------------------------------
Option Explicit
 
Private Declare PtrSafe Function OpenClipboard Lib "user32" (ByVal hWnd As Long) As Long
Private Declare PtrSafe Function CloseClipboard Lib "user32" () As Long
Private Declare PtrSafe Function EmptyClipboard Lib "user32" () As Long
 
Sub Vider_Presse_Papier()
OpenClipboard 0
EmptyClipboard
CloseClipboard
End Sub
--------------------------------------------------------------
Quelqu'un pourrait m'aider à résoudre ce pb d erreur 1004. ?!!

Merci d'avance!! Je galère depuis une semaine sur ça !!

Bonne journée
FK_1509