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
Partager