Discussion :

[Nikkos78]

Bonjour,

Lorsque je fais un copié puis que je lance une macro quelconque (par exemple qui fait juste Range("A1").select) , je ne peux pas faire de collé ensuite.

En fait j'ai fait ce simple test ci-dessus car à l'origine, je cherchais à comprendre pourquoi en faisant copié d'une cellule excel remplie du mot essai , puis lancement d'une macro qui commence par collecter le texte copié avec les instructions newdata object, .GetFromClipboard et .GetText j'avais les messages d'erreur qu'on a lorsque le presse papier n'a pas de texte.

J'ai l'impression donc, qu'un copié est annulé lors du lancement d'une macro.
Est-ce toujours le cas ?

Remarque :
Si je fais settext puis putinclipboard pour remplir le clipboard avant .GetFromClipboard et .GetText ca marche donc l'écriture du code et les déclarations ne semblent pas en cause.


Merci d'avance
Nikklos

[patricktoulon]

re
bonjour
fait moi plaisir essaie plutot cette facon d'acceder au clipboard

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
Function Get_presse_papier() As String
    Get_presse_papier = CreateObject("htmlfile").parentwindow.clipboardData.GetData("TEXT")
End Function
'
Function presse_papier(argmt)
    CreateObject("htmlfile").parentwindow.clipboardData.setData "Text", argmt
End Function
'
Function Vide_presse_papier()
    CreateObject("htmlfile").parentwindow.clipboardData.setData "Text", ""
End Function
'copy dans le clipboard .......TESTER LECTURE APRES CA !!!!
S
Sub enregistrement_dans_clipboard_par_copie_de_cellule()
    Range("A1").Copy
End Sub
'inscription par vba dans le clipboard
'
Sub enregistrement_dans_clipboard_par_injection_vba()
    presse_papier "toto"
End Sub
'
Sub vide_le_clipboard()
    Vide_presse_papier
End Sub
 
'lecture du clibborad
Sub lecture()
    Dim texte$
    texte = Get_presse_papier
    MsgBox texte
End Sub

[Nikkos78]

Bonjour,


Yess, c'est vraiment bien. Merci ! Ca fonctionne !