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

Vos Contributions VBScript Discussion :

[FAQ] Copier du texte dans le presse papier (Clipboard)


Sujet :

Vos Contributions VBScript

  1. #1
    Membre du Club
    Homme Profil pro
    Consultant en sécurité
    Inscrit en
    janvier 2014
    Messages
    36
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Gers (Midi Pyrénées)

    Informations professionnelles :
    Activité : Consultant en sécurité
    Secteur : Enseignement

    Informations forums :
    Inscription : janvier 2014
    Messages : 36
    Points : 54
    Points
    54
    Par défaut [FAQ] Copier du texte dans le presse papier (Clipboard)
    Vue qu'on peut pas le faire directement en vbs (il n'existe pas de commande spécial pour cela)

    Alors voici différente technique :

    Avec le CMD :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
     
    a = "Le texte voulu ici" 'Possible de faire une inputbox ou autre celons vos besoin 
    Set objShell = CreateObject("Wscript.Shell")
    strCommand = "CMD /C Echo " & a & "|clip" 'et vous pouvez la remplacer par /K au lieu de /C
    'wscript.echo strCommand  '<---temporairement (pour tester si la ligne de commande est correcte ou non)
    resultat=objShell.Run(strCommand,1,True) '1 pour afficher la console et 0 pour la cacher
    J'ai pris la base d'un script de hackoofr (merci a lui)


    Avec Internet Explorer :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
     
    Sub Copier ()
    With CreateObject("InternetExplorer.Application")
    .Navigate("about:blank")
    With .Document
    While Not .ReadyState="complete":WScript.Sleep 100:Wend
    .ParentWindow.ClipboardData.SetData "Text",quoi
    End With
    End With
    End Sub
     
    Quoi = "Le texte a mettre dans le presse papier ici" 
    Call Copier ()

  2. #2
    Candidat au Club
    Homme Profil pro
    Ingénieur intégration
    Inscrit en
    mai 2018
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Vaucluse (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Ingénieur intégration

    Informations forums :
    Inscription : mai 2018
    Messages : 2
    Points : 2
    Points
    2
    Par défaut question compliquées mais peut-être réponse simple
    Bonjour,

    J'ai été confronté à ce problème, mais l'ai résolu en utilisant InputBox au lieu de MsgBox, en effet InputBox() permet de proposer une chaîne par défaut 'defaut', soit explicite soit implicite (variable) :
    nomquelconque = inputbox("message", "titre", "defaut", placement X, placement Y)

    Il suffit d'instancier une variable quelconque pour faire apparaître la chaîne de caractère qui néanmoins demandera un 'copier/coller' manuel mais pouvant rendre service ici si on restitue le contenu (d'une variable qui plus est).

    pathCopCol=InputBox("copier/coller du chemin à inscrire dans menu ","Menu: Path",PathCible&NomFichNew.Name)


Discussions similaires

  1. [Tkinter] Copier un texte dans le presse-papier
    Par fire.stone dans le forum Tkinter
    Réponses: 3
    Dernier message: 01/05/2018, 11h22
  2. Un script minimal pour copier du texte dans le presse-papier
    Par rambc dans le forum GTK+ avec Python
    Réponses: 1
    Dernier message: 28/04/2009, 02h33
  3. Copier du texte dans le presse-papier-Une solution multi-os
    Par rambc dans le forum Général Python
    Réponses: 8
    Dernier message: 27/04/2009, 21h50
  4. copier du texte dans le presse-papier
    Par zakizaki7 dans le forum C#
    Réponses: 3
    Dernier message: 07/08/2008, 22h19
  5. Copier du texte dans le presse-papier ?
    Par Sylver--- dans le forum Langage
    Réponses: 6
    Dernier message: 03/08/2007, 17h34

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