VBA et presse papier

Le
Christian.L
Bonjour à tous et bon dimanche

Quelqu'un peut t'il m'indiquer comment vider le presse papier en VBA

Merci d'avance

Christian
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Anacoluthe
Le #1590970
Bonjour !

'Christian.L' nous a écrit ...
Quelqu'un peut t'il m'indiquer comment vider le presse papier en VBA


Le plus simple est d'y copier ... rien

Anacoluthe
« Pourquoi faire simple quand on peut faire compliqué ? »
- Jacques ROUXEL

Denis Liégeois
Le #1590968
"Anacoluthe" message news:

'Christian.L' nous a écrit ...

Quelqu'un peut t'il m'indiquer comment vider le presse
papier en VBA


Le plus simple est d'y copier ... rien


Ça ne marche pas. Une tentative de copier un objet range
vide ou une sélection nulle donne un message d'erreur.


Circé
Le #1590967
Bonjour anacoluthe,

Anacoluthe a couché sur son écran :
Bonjour !

'Christian.L' nous a écrit ...
Quelqu'un peut t'il m'indiquer comment vider le presse papier en VBA


Le plus simple est d'y copier ... rien


Ta réponse me laisse perplexe...;)
Car il y a deux presse-papiers... Le presse papier Windows et le pp
Office, ce dernier pouvant contenir jusqu'à 24 éléments...

Euh... On a le droit de faire compliqué ?... :D

Circé

Anacoluthe
« Pourquoi faire simple quand on peut faire compliqué ? »
- Jacques ROUXEL



AB
Le #1590964
Bonjour,
Avec ce code, ça m'a l'air de marcher :
Sub vidage()
Set Vide= New DataObject
Vide.SetText ""
Vide.PutInClipboard
End Sub

AB

"Denis Liégeois" news:
"Anacoluthe" message news:

'Christian.L' nous a écrit ...

Quelqu'un peut t'il m'indiquer comment vider le presse
papier en VBA


Le plus simple est d'y copier ... rien


Ça ne marche pas. Une tentative de copier un objet range
vide ou une sélection nulle donne un message d'erreur.





Anacoluthe
Le #1590962
Bonjour Circé !

'Circé' nous a écrit ...
Bonjour anacoluthe,
Le plus simple est d'y copier ... rien
Ta réponse me laisse perplexe...;)

Car il y a deux presse-papiers... Le presse papier Windows et le pp
Office, ce dernier pouvant contenir jusqu'à 24 éléments...
Euh... On a le droit de faire compliqué ?... :D


Ouahhh t'es sans pitié le dimanche toi !!! :-D )

Primo quand on veut vider le PP c'est en principe celui de Oui-une-dose
et André a répondu parfaitement à la question
(précision toutefois : un DataObject demande la référence de MS Forms
sinon le compilateur VBA va hurler )

Deuxio le presse-papiers d'Office aussi curieux que ça puisse paraître
n'a PAS de modèle objet dans VBA !!!
Pour vider le PP-Office, c'était assez facile dans WD2000 : il suffisait
d'exécuter le bouton de la barre d'outils du PP. Depuis WD2002 c'est
plus compliqué : il faut exécuter le bouton 'Effacer tout' du volet PP.
Si tu y tiens VRAIMENT, je peux essayer d'en retrouver l'ID ... :-)

Bon dimanche !

Anacoluthe
« Je n’oublie pas les presse-papiers massifs
en verre de couleur, riches objets que personne
jusque là ne s’avisait d’appeler sulfures. »
- COLETTE


Circ
Le #1590958
Hello anacoluthe !

Anacoluthe a utilisé son clavier pour écrire :
Bonjour Circé !

'Circé' nous a écrit ...
Bonjour anacoluthe,
Le plus simple est d'y copier ... rien
Ta réponse me laisse perplexe...;)

Car il y a deux presse-papiers... Le presse papier Windows et le pp Office,
ce dernier pouvant contenir jusqu'à 24 éléments...


Ouahhh t'es sans pitié le dimanche toi !!! :-D )


Y a pas de dimanche pour les braves !!! :D
.
Si tu y tiens VRAIMENT, je peux essayer d'en retrouver l'ID ... :-)


Personnellement, non je n'y tiens pas, et même que je m'en fiche
totalement !! :D
C'était juste pour ajouter un grain de sel ! :D))

Circé

Bon dimanche !

Anacoluthe
« Je n’oublie pas les presse-papiers massifs
en verre de couleur, riches objets que personne
jusque là ne s’avisait d’appeler sulfures. »
- COLETTE




Daniel.j
Le #1592225
Bonjour
Avec Excel j'utilise ceci est çà marche bien
Maintenant avec Word ... pourquoi pas ?

Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As
Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function CloseClipboard Lib "user32" () As Long

Sub VidePP()
OpenClipboard 0
EmptyClipboard
CloseClipboard
End Sub
Daniel

--
FAQ MPFE
FAQ du forum microsoft.public.fr.excel
http://dj.joss.free.fr/faq.htm

"Christian.L"
Bonjour à tous et bon dimanche

Quelqu'un peut t'il m'indiquer comment vider le presse papier en VBA

Merci d'avance

Christian





Christian.Bernard
Le #1592220
Bonjour Daniel

J'ai récupéré ta réponse sur le forum Excel, et cela fonctionne très bien

Je remercie les autres intervenants pour leur attention

Christian
Publicité
Poster une réponse
Anonyme