Discussion :

[aaristocat]

je récupère dans un logiciel propriétaire des données via "copier"
Je les colle dans une feuille excel afin de les traiter.
existe t-il une solution pour vérifier que le presse papier n'est pas vide avant d'effectuer le "Paste" ?
merci

[Pierrot93]

Bonjour,

si les données à tester dans le presse papier sont de format texte, essaye peut être le code ci-dessous :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
'activer la reference Microsoft Forms 2.0 Object Library
Dim x As New DataObject
x.GetFromClipboard
If x.GetFormat(1) = False Then MsgBox "presse-papier vide !!!"

bon après midi
@+

[aalex_38]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub testpressepapier()
 
Dim iData As DataObject
iData.GetFromClipboard
iData = Clipboard.GetDataObject()
If iData.GetDataPresent(DataFormats.Text) Then
MsgBox "il y a du texte"
End If
 
End Sub

Un lien ici

[chewby79]

merci à toi aalex38

ton code marche parfaitement, attention tout de même sous outlook 2010, il faut retirer la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

iData.GetFromClipboard

cordialement.