Inkedit

Résolu
JSCH19 Messages postés 128 Date d'inscription   Statut Membre Dernière intervention   -  
JSCH19 Messages postés 128 Date d'inscription   Statut Membre Dernière intervention   -
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 128 Date d'inscription   Statut Membre Dernière intervention  
 
Voici un lien pour avoir acces au fichier
https://drive.google.com/file/d/1ABCmk1vzdOqXmjlnLpK5wX2mPvSBPWYT/view?usp=sharing
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 
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 128 Date d'inscription   Statut Membre Dernière intervention   > yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention  
  
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