Sujet Précédent Sujet Suivant

Inkedit

Résolu/Fermé
JSCH19 Messages postés 129 Date d'inscription mercredi 30 octobre 2019 Statut Membre Dernière intervention 22 juin 2023 - 14 oct. 2021 à 03:28
JSCH19 Messages postés 129 Date d'inscription mercredi 30 octobre 2019 Statut Membre Dernière intervention 22 juin 2023 - 24 oct. 2021 à 04:38
Bonjour ,
depuis un certain temps j'essaie de copier les données d'une feuille excel dans mon Inkedit mais a chaque fois que je copie une plage de cellules cela apparait dans le Inkedit comme un tableau. Il y a-t-il un moyen de copier un ensemble de cellules et de les coller dans inkedit sans et que celles-ci n'apparaient pas comme un tableau.

1 réponse

Réponse 1 / 1
JSCH19 Messages postés 129 Date d'inscription mercredi 30 octobre 2019 Statut Membre Dernière intervention 22 juin 2023
14 oct. 2021 à 03:36
Voici un lien pour avoir acces au fichier
https://drive.google.com/file/d/1ABCmk1vzdOqXmjlnLpK5wX2mPvSBPWYT/view?usp=sharing
0
yg_be Messages postés 22696 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 17 avril 2024 1 471
Modifié le 14 oct. 2021 à 08:16
bonjour,
je n'ai pas testé, et j'essaierais de remplacer 
Worksheets("Fiche1").Range("A10").Copy

par 
SetClipboard Worksheets("Fiche1").Range("A10")
0
JSCH19 Messages postés 129 Date d'inscription mercredi 30 octobre 2019 Statut Membre Dernière intervention 22 juin 2023 > yg_be Messages postés 22696 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 17 avril 2024
24 oct. 2021 à 04:38 
InkEdit2.text = vbCrLf

PutInClipBoard vbCrLf & ""
Worksheets("Fiche1").Shapes("Monimage").Copy
PasteToControl InkEdit2.hWnd
'Application.CutCopyMode = False

'SetClipboard vbNewLine & " "
'PasteToObj InkEdit2.hWnd

Worksheets("Fiche1").Range("B7:F1048575").CopyPicture
PasteToObj InkEdit2.hWnd
Application.CutCopyMode = False

SetClipboard vbNewLine & " "
PasteToObj InkEdit2.hWnd

Je l'ai trouver la solution,merci yg_be
0