Inkedit

Résolu
JSCH19 Messages postés 134 Statut Membre -  
JSCH19 Messages postés 134 Statut Membre -
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

  1.
    JSCH19 Messages postés 134 Statut Membre
     
    Voici un lien pour avoir acces au fichier
    https://drive.google.com/file/d/1ABCmk1vzdOqXmjlnLpK5wX2mPvSBPWYT/view?usp=sharing
    0
    1. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   1 588
       
      bonjour,
      je n'ai pas testé, et j'essaierais de remplacer 
      Worksheets("Fiche1").Range("A10").Copy

      par 
      SetClipboard Worksheets("Fiche1").Range("A10")
      0
      1. JSCH19 Messages postés 134 Statut Membre > yg_be Messages postés 23437 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