Problème de Collage depuis le press papier
BassQR
Messages postés
5
Statut
Membre
-
BassQR Messages postés 5 Statut Membre -
BassQR Messages postés 5 Statut Membre -
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
- Press del to enter setup ✓ - Forum Windows
- Presse papier huawei - Forum Huawei
- 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...