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:

Problème de Collage depuis le press papier
Presse papier - Guide
Press papier - Guide
Presse papier facebook ✓ - Forum Samsung
???????????????? Où est le PRESSE-PAPIER ✓ - Forum Matériel & Système
Presse papier iphone - Forum iPhone

1 réponse

Réponse 1 / 1

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
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

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é..."

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
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

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...

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
15 déc. 2017 à 11:49

Essaie dans Une UserForm pour voir si ça fonctionne!

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..

Discussions similaires

Comment retrouver le presse papier sur iPhone ?

Les presses-papier de facebook ??

Comment ouvrir le presse papier et retrouver tous les copiers

Où se trouve le presse papier dans Huawei P30 ?

ou trouver le presse papier!!