Presse papier

Question

Bonjour,

J'utilise Excel 2003.
J'ai programmé une macro qui m'envoie des données text dans le presse papier Excel (maxi 24 objets).
Mon problème est que je perd les infos lorsque le presse papier excel est plein (>24 objets maxi).
Ma question:
Comment puis je faire pour recuperer le contenu du presse papier excel lorsqu'il est plein puis de vider le presse papier . cette operation devrait se faire 4 ou 5 fois, ça devrait suffire.
Si vous avez la réponse, ça m'interesse !

Merci

mortalino · Answer

Salut,

vu que c'est des données textes, pourquoi ne stockes-tu pas les valeurs dans des cellules ?
Ce serait facile à stocker / récupérer, et tu aurais donc 65536 x 255 possibilités de stockage par feuille.

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>

cs_nul en info · Answer

"Mortalino", effectivement, ce doit être plus simple !
Le contexte : 
Je suis "nul en info"
Je suis arrivé à récupérer des données à partir de la cellule A1 (excel).
Le soucis étant qu'à chaque nouvelles données, ça m'écrasait les précédentes.
J'ai essayé de faire une boucle pour incrémenter et passer à la cellule suivante, ça marchait, je ne perdais plus d'info par contre, j'avais 10 ou 20 cellules identiques dans la première colonne du classeur. 
Je ne suis pas arrivé à :
- effacer le presse papier,
- comparer le contenu des cellules collées dans excel par rapport au contenu du presse papier

peut être sais tu faire cela ?

mortalino · Answer

Pour effacer le presse papier : ClipBoard.Clear en VB6, mais n'existe pas en VBA, passe par cette classe de PCPT : http://www.vbfrance.com/codes/PRESSE-PAPIER-TEXTE-POUR-VBA-MODULE-CLASSE_39692.aspx Sinon, pour tes comparaisons, en utilisant la classe cité juste avant : Dim PLV As Integer, i As Integer PLV = Columns(1).Find("", Range("A1"), , , xlByRows, xlNext).Row - 1 ' le 1 de Columns doit correspondre à la cellule de départ, donc de la colonne A) For i = 1 To PLV If Cells(PLV, 1).Text = TextClipBoard.GetText Then MsgBox "La cellule " &Cells(PLV, 1).Address & " possède la valeur du Presse-Papier" Exit For ' ça c'est pour arrêter la boucle End If Next i ~ [code.aspx?ID=39466 Mortalino] ~ @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois"

cs_ZANUS · Answer

Salut

Je ne sais pas si j'ai bien compris mais pour vider le presse papier en vba:
OpenClipboard 0&
EmptyClipboard
CloseClipboard

cs_nul en info · Answer

Bon, j'arrive pas à faire fonctionner...
Au lancement, message "objet requis"

mortalino · Answer

Regarde la source ^^
il faut déclarer un objet DataObject. (cf. aide vba)

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

cs_nul en info · Answer

bonjour et bonne année à tous !

"Mortalino", j'ai essayé de déclarer un objet DataObjet mais bon, rien de concluant...
Peux tu STP compléter la comparaison ci dessus, en y ajoutant les declarations de variables et tout ce qu'il faut pour que cela  fonctionne !
Rq: je pensais pouvoir faire ça tout seul, mais je n'y arrive pas.

D'avance merci pour la contribution

Presse papier

7 réponses

Votre réponse

Discussions similaires