Presse Papier Office

[mamour60]

Bonjour a tous,

Est-il possible par macro de coller le presse papier d'office dés que
vba detecte que l'on a 24 entrées dans le presse papier. (ou 10 ou toute au chiffre).

Merci

@+

Bruno

 

[STephane]

Re : Presse Papier Office

Bonjour,

Le code ci-dessous pourra peut-être t'aider, la procédure DEMO te permet de savoir combien de lignes sont présentes dans le presse-papiers.

Function Clipboard_Get()
0: ' Original name : getClipboard
1: 'http://www.vbaexpress.com/forum/showthread.php?t=37045
2: 'Add Reference:   'Reference: Microsoft Forms xx Object
Dim MyData As DataObject

On Error Resume Next
Set MyData = New DataObject
MyData.GetFromClipboard
getClipboard = MyData.GetText
End Function
Sub Clipboard_Get_DEMO()
0: 'http://www.vbaexpress.com/forum/showthread.php?t=37045
Dim s As String, lineCount As Long

If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then
   MsgBox "Row Count: " & Selection.Rows.count
   Exit Sub
End If

s = getClipboard
lineCount = UBound(Split(s, vbCrLf)) + 1
MsgBox s, vbInformation, "Line Count: " & lineCount
End Sub

 

[mamour60]

Re : Presse Papier Office

Bonjour STephane,

Je viens de tester ton code mais cela ne fonctione pas.
Je te remercie qu'en même.

@+

Bruno

 

[job75]

Re : Presse Papier Office

Bonjour,

STephane n'a pas dû voir ce fil :

https://www.excel-downloads.com/threads/presse-papier-office.196916/

[Edit] ni cet autre :

https://www.excel-downloads.com/threads/detection-presse-papier.196846/

A+

 

[STephane]

Re : Presse Papier Office

Merci job75, je n'étais effectivement pas sûr de ce qui était souhaité.