Sujet Précédent Sujet Suivant

Problème de Collage depuis le press papier

Fermé
BassQR Messages postés 5 Date d'inscription jeudi 14 décembre 2017 Statut Membre Dernière intervention 15 décembre 2017 - 15 déc. 2017 à 09:28
BassQR Messages postés 5 Date d'inscription jeudi 14 décembre 2017 Statut Membre Dernière intervention 15 décembre 2017 - 15 déc. 2017 à 13:32
Bonjour,

Je me tourne vers vous car je suis débutant autodidacte sur VBA.

J'ai actuellement un problème:

Je souhaite créer une macro qui traite automatiquement des données de mesures issues d'une autre logiciel.
Cet autre logiciel à l'avant que en faisnant un simple copier coller de la mesure vers Excel, le collage se fait directement sous la forme d'un tableau dans un format précis.

Je souhaite donc, pour gagner du temps copier depuis le logiciel, et en appuyant sur un bouton que les données contenues dans le presse papier se collent dans mon classeur (la suite de la macro traitant automatiquement ces données).

Pour coller ces données j'utilise le code suivant:

Dim Presspp As New DataObject
Presspp.GetFromClipboard
Range("AE1") = Presspp.GetText

Le problème est que ce code, ne colle pas sous la forme d'un tableau comme le copier coller classique (Ctrl+C / Ctrl +V) mais place l'intégralité des données dans la seule cellule AE1...

Quelqu'un saurait-il résoudre mon problème ?

Merci par avance pour votre retour,


A voir également:

1 réponse

Réponse 1 / 1
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
15 déc. 2017 à 11:22
Bonjour,

Essaie ceci: 

Dim Presspp As New DataObject
Presspp.GetFromClipboard
 Range("AE1") = Presspp.GetText
  Range("AE1").Select
 Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
0
BassQR Messages postés 5 Date d'inscription jeudi 14 décembre 2017 Statut Membre Dernière intervention 15 décembre 2017
15 déc. 2017 à 11:26
Bonjour, merci pour ce retour.

J'ai essayé ce code, mais il bug à la ligne 5/6 en m'affichant : "La méthode PasteSpecial de la classe Range à échoué..."
0
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
15 déc. 2017 à 11:44
chez moi cela fonctionne à partir d'un bouton dans une UserForm

Regarde si cette référence est cochée

https://codes-sources.commentcamarche.net/forum/affich-10081060-macro-pour-coller-le-contenu-du-presse-papier#8
0
BassQR Messages postés 5 Date d'inscription jeudi 14 décembre 2017 Statut Membre Dernière intervention 15 décembre 2017
15 déc. 2017 à 11:48
Oui, j'avais déjà coché cette case.
En revanche, mon bouton n'est pas contenu dans une UserForme. Je lance la macro directement depuis la fenêtre VBA. Je ne sais pas si cela peut avoir un impact...
0
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
15 déc. 2017 à 11:49
Essaie dans Une UserForm pour voir si ça fonctionne!
0
BassQR Messages postés 5 Date d'inscription jeudi 14 décembre 2017 Statut Membre Dernière intervention 15 décembre 2017
15 déc. 2017 à 12:01
Non... Avec le UserForm j'ai le même problème..
0

Discussions similaires

Comment retrouver le presse papier sur iPhone ?
Slilluu -
Ascaris -

6 réponses
Où se trouve le presse papier dans Huawei P30 ?
Virginie -
Lily -

2 réponses
Comment ouvrir le presse papier et retrouver tous les copiers
JusDeCoco02 -
madmyke -

9 réponses
Les presses-papier de facebook ??
GamlerZ -
Utilisateur anonyme -

3 réponses
presse papier sur huawei P8
madodanmado -
Liladeroma -

8 réponses