Salut a tous,
J'ai un petit probleme dont j'espere grace a vous trouver la solution.
Je dispose d'une PVTable ( objet du style tableau ) et je veux pouvoir faire une selection de son contenu et le copier dans le clipboard.
En utilisant Ctrl+c on ne peut copier qu'une partie de ce tableau et on ne peut pas copier le tableau dans son integralité.
D'ou l'idee de coder une fonction qui recupere l'objet de la selection et qui la copie dans le presse papier.
J'ai bien trouvé la fonction clipboard.setText qui permet de copier un texte dans le clipboard mais je n'arrive pas a trouver la fonction qui permet de recuperer l'ensemble des elements de ma selection.
Vu que mon objet a copier n'est pas une textbox je ne peux pas utiliser la fonction seltext.
Pouvez vous me dire avec quels outils je pourrait faire la copie de mon tableau?
J'espere avoir ete assez clair.
Je vous remercie pour vos reponses.
Strasha

Bonjour,
Peux tu nous dire ce qu'est exactement ta PVTable?(datagrid, mshflexgrid etc...)
Merci

S.L.B.

---

-- Le règlement tu liras -- Des recherches tu feras -- Le style SMS tu banniras --
-- De la validation pertinente tu feras -- Du respect tu auras --<

Bonjour, au pire tu peux faire une copie par balayage de ton 'tableau' avec un bout de code dans le style suivant (à adapter car je ne connais pas les propriétés de ton PVTable.

for i&=1 to max_lignes
    for j&=1 to max_colonnes
        montexte=montexte & PVTable(i&,j&).text & chr$(9) 'ou vbtab = saut de colonne
    next j&
    montexte=montexte & chr$(13) 'ou vbcr ou vbcrlf = saut de ligne
next i&
clipboard.clear
clipboard.settext montexte

Salut,

alors PVTable cela veut dire Pivot Table qui en Francais donne tableau croisé dynamique. Autrement dit c'est de l'excel et pas du VB6 ! Donc ici on est pas dans e bon theme.

Strasha je suis pas d'accord avec toi ! il ne faut pas faire d'une ignorance une impossiblité ! un TCD peut parfaitement etre selectionné puis copier et coller.
Seulement pour que cela marche il faut utiliser les methodes specifiques au TCD en l'occurence ici la methode PivotSelect et l'option xlDataAndLabel

    ActiveSheet.PivotTables(1).PivotSelect "", xlDataAndLabel, True
    Selection.Copy
    With Range("E20") 'e20 est la cellule de destination
        .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        .PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    End With

A bientot (car je sens que tu ne nous as pas tout dit)