IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Discussion :

VBA - Vider le presse-papier


Sujet :

VBA

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Septembre 2006
    Messages
    32
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2006
    Messages : 32
    Par défaut VBA - Vider le presse-papier
    Bonjour,

    Je suis en Word2003, et je voudrai "effacer-tout" le presse-papier.

    En parcourant la FAQ et le forum j'ai trouvé le code suivant (qui à l'air de mettre tout le monde d'accord), mais mon presse papier est toujours plein !!!

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Private Declare Function CloseClipboard Lib "user32" () As Long
    Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
    Private Declare Function EmptyClipboard Lib "user32" () As Long
     
    Private Sub Commande0_Click()
        OpenClipboard 0
        EmptyClipboard
        CloseClipboard
    End Sub
    J'utilise les références suivantes dans VBA :
    Visual BAsic for application
    Microsoft Word 11.0 Object library
    OLE Automation
    Normal
    Microsoft Office 11.0 Object library
    Microsoft Forms 2.0 Object library

    Merci d'avance

  2. #2
    Expert confirmé

    Homme Profil pro
    Inscrit en
    Août 2005
    Messages
    3 317
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Isère (Rhône Alpes)

    Informations professionnelles :
    Secteur : Industrie

    Informations forums :
    Inscription : Août 2005
    Messages : 3 317
    Par défaut
    bonjour

    j'espère que ce lien pourra t'aider

    http://www.developpez.net/forums/sho...27&postcount=4


    michel

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    Septembre 2006
    Messages
    32
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2006
    Messages : 32
    Par défaut
    j'espère que ce lien pourra t'aider
    J'avais essayé aussi, mais ça ne marche pas plus !!!

  4. #4
    Membre averti
    Profil pro
    Inscrit en
    Septembre 2006
    Messages
    32
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2006
    Messages : 32
    Par défaut
    Mon problème n'est toujours pas résolu et je me prends vraiment la tête !!!!

    J'ai essayer en mettant en référence d'autres librairie, mais j'ai pas trouver la bonne s'il y en a une !!!

    J'ai réessayer le code de SilkyRoad
    Ca me rajoute des éléments dans le presse-papier, mais ça ne fait "Effacer-tout"

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    Sub viderPressePapier()
    'Nécéssite d'activer la référence "Microsoft Forms 2.0 Object Library"
        'Dans l'editeur de macros:
        'Menu Outils
        'Références
        'Coche le ligne "Microsoft Forms 2.0 Object Library"
        'Clique sur OK pour valider
     
    Dim Cible As DataObject
     
    Set Cible = New DataObject
    Cible.SetText "toto"
    Cible.PutInClipboard
     
    Set Cible = Nothing
    End Sub
    Si une bonne âme à une idée merci !!

  5. #5
    Expert confirmé
    Avatar de ThierryAIM
    Homme Profil pro
    Inscrit en
    Septembre 2002
    Messages
    3 673
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Secteur : Industrie

    Informations forums :
    Inscription : Septembre 2002
    Messages : 3 673
    Par défaut
    Question bête, mais on ne sait jamais : ton bouton de commande s'appelle bien Commande0 ?
    Parce que je n'ai pas de soucis avec W2003

  6. #6
    Membre averti
    Profil pro
    Inscrit en
    Septembre 2006
    Messages
    32
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2006
    Messages : 32
    Par défaut
    Question bête
    Pour te rassurer il n'y a rarement des questions bêtes !!!

    Oui, j'ai bien un bouton et mon code est dans "ThisDocument"...
    Ca marche pas si on le met dans un module.


    J'ai essayer aussi en mettant un nom de procédure : pas plus de résultats.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Vider le presse papier en VBA
    Par knecmotet dans le forum Général VBA
    Réponses: 17
    Dernier message: 05/03/2022, 20h50
  2. vider le presse papier avant utilisation en vba
    Par oscar.cesar dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 15/04/2009, 07h43
  3. [VBA] Vider le presse papier
    Par Kelyane dans le forum VBA Access
    Réponses: 7
    Dernier message: 07/10/2003, 12h05
  4. [VBA-E] Vider le presse-papier
    Par tinej dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 12/12/2002, 09h33
  5. [Système] Vider le Presse Papier
    Par babe dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 04/09/2002, 17h46

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo