Detection presse papier

[mamour60]

Bonsoir a tous,

Je voudrais récupérer le contenu du presse papier dans une feuille excel
dés que je fais un copier avec la souris (une info d'internet ou tout autre logiciel)

Par exemple : je copie mon texte est automatiquement je le retrouve dans mon fichier excel.

Merci a tous et bonne soirée

@+

Bruno

 

[Dranreb]

Re : Detection presse papier

Bonjour.
Ctrl+V dans la barre de formule y colle du texte présent dans le presse papier.
S'il faut quelque chose de plus sophistiqué, il est possible aussi de le récupérer par VBA.
À +

 

[mamour60]

Re : Detection presse papier

Bonsoir Dranreb,

Je voudrais que vba detecte l'entrée dans le presse papier est le colle dans la cellule par exemple A1
tout en restant sur internet sans que je sois obliger de retourner sous excel mais en laissant le fichier ouvert.

@+

 

[Dranreb]

Re : Detection presse papier

If faudrait interroger le presse papier périodiquement dans une boucle alors, avec des DoEvents.
Ceci à mettre dans un module ordinaire permet de considérer PressePapier comme une variable String qui copie ou qui colle selon qu'on lui affecte une valeur ou qu'on récupère sa valeur:

Property Get PressePapier() As String
Dim DOb As New DataObject
On Error Resume Next
DOb.GetFromClipboard: PressePapier = DOb.GetText
If Err Then MsgBox "Pas de données récupérées", vbCritical, "PressePapier"
End Property
Property Let PressePapier(Z As String)
Dim DOb As New DataObject
DOb.SetText Z: DOb.PutInClipboard
End Property

À +

 

[mamour60]

Re : Detection presse papier

Bonsoir Dranreb,

Je viens de tester mais cela ne marche pas...

Je joins un fichier pour le cas ou vous avez une idée.

@+

Bruno

 

[Dranreb]

Re : Detection presse papier

Il faudrait que vous ajoutiez la référence "Microsoft Forms 2.0 Object Library" à votre projet VBA.
Ensuite lancez cette procédure:

Sub TEST()
If PressePapier <> "" Then
   Feuil1.[A1].Value = PressePapier
   PressePapier = ""
Else
   Application.OnTime Now + 1 / 86400, "TEST"
   End If
End Sub

Elle se ré-exécutera jusqu'à ce qu'elle trouvera quelque chose dans le presse papier.
À +

 

[mamour60]

Re : Detection presse papier

Bonjour Dranreb,

Merci de votre aide je viens de le test est cela fonctionne.

Bonne journée.

Bruno