Problème de Collage depuis le press papier
BassQR
Messages postés
5
Date d'inscription
Statut
Membre
Dernière intervention
-
BassQR Messages postés 5 Date d'inscription Statut Membre Dernière intervention -
BassQR Messages postés 5 Date d'inscription Statut Membre Dernière intervention -
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,
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
- Presse-papier - Guide
- Presse papier huawei - Forum Huawei
- Presse papier iphone ou le trouver ✓ - Forum Réseaux sociaux
- Enreg. cap. écran ds presse-papier ✓ - Forum Windows 10
1 réponse
Bonjour,
Essaie ceci:
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
J'ai essayé ce code, mais il bug à la ligne 5/6 en m'affichant : "La méthode PasteSpecial de la classe Range à échoué..."
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
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...