Lire le presse papier...

[bigbig]

Bonjour à tous,

J'ai des données à importées d'un autre logiciel.
Dans l'autre logiciel, je selectionne les données puis je fait un Copier.
(Y a que le text qui m'interresse de conservé, pas la mise en page)

Je retourne dans excel et là, je lance une macro qui devra relire les données stocké dans le presse papier de windows, le traite un peu et copie les résultats dans un tableau excel.

Mon problème, est de savoir comment accéder en VBA au donnée copier dans le presse papier de windows ?

Question bonus :
Le presse papier d'excel (qui permet plusieurs copier simultané) et de windows sont il les même ou différents ?

Merci de votre aide, A+

 

[bigbig]

Bonjour à tous,

Personne n'as d'idée pour lire le contenu du presse papier ?
Ce doit quand même être possible, non ?

Merci de votre aide ou liens.

A+

 

[Alain CROS]

Bonjour.

Sub RecupTextePP()
Dim Data As New DataObject
Data.GetFromClipboard
MsgBox Data.GetText(1)
Set Data = Nothing
End Sub

Pour la question bonus ...

Il me semble que le dernier élément ajouté au presse papier d'excel correspond au presse papier de Windows...

Alain CROS

 

[bigbig]

Bonjour et merci pour la réponse...

... mais ça ne marche pas chez moi.
(Win98Se et Excel 2000)

J'obtient le message d'erreur suivant sur la ligne Dim

'Erreur de compilation :
Type défini par l'utilisateur non défini'

Y aurait il autre chose à rajouter ?

Merci de votre aide, A+

 

[MichelXld]

bonjour Bigbig , bonjour Alain

Bigbig , as tu activé la référence Microsoft 0ffice x.x Objet Library ?


bonne soiree
MichelXld

 

[bigbig]

MichelXld écrit:

bonjour Bigbig , bonjour Alain

Bigbig , as tu activé la référence Microsoft 0ffice x.x Objet Library ?

bonne soiree
MichelXld

Bonsoir,

Après quelques recherches j'ai bien la référence Microsoft 0ffice 9.0 Objet Library d'activé.

Mais celà ne marche toujours pas...

Autre idée ?

Merci de votre aide, A+

 

[Alain CROS]

Bonjour.

C'est la référence Microsoft Forms 2.0 Object Library.

Pour l'obtenir facilement, insérer un UserForm puis le supprimer.

Alain CROS

 

[bigbig]

Bonjour à tous,

Avec la référence Microsoft Forms 2.0 Object Library, ça marche !

Merci pour cette aide qui m'as été précieuse

A+