Discussion :

[juju05]

Je cherche à remplir une feuille d'un classeur à partir de l'agrégation de tableaux présents dans d'autres feuilles d'un autre classeur.

Pour cela, je:

- me positionne sur le classeur qui doit recevoir la totalité des tableaux,
- j'efface toute la feuille
- j'ouvre le classeur qui contient tous les tableaux à copier,
- je me place sur la première feuille
- je me place sur la cellule A1
- je recopie l'ensemble du tableau (par un équivalent d'un CTRL + Maj + Fin)
- je me place sur la feuille suivante et je fais copie ajout etc ...

Mes questions:

- je souhaiterai effacer le contenu du presse-papier avant de faire mes copiers (j'ai pourtant essayé pas mal de chose vu sur le NET)

- je ne sais pas comment vider l'intégralité du presse-papier dans ma feuille cible.

Merci d'avance.

[Didier Gonard]

Bonjour,

Si tu es sous 2000, il se peut que :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.CutCopyMode = False

pour les versions suivantes avec l'apparition du volet office et de plusieurs couche de presse-papier, ça se complique notablement

note :
plutot que :

(j'ai pourtant essayé pas mal de chose vu sur le NET)

tu mettrais ce qui ne marche déjà pas, ça éviterait des réponses inutiles voir un "sans réponse"...

cordialement,

Didier

[juju05]

La solution proposée ne vide pas le presse-papier.

Puis-je utiliser ce morceau de code ajoutant une librairie sur Excel 2000 ?

J'ai une erreur "Type de variable non définie" sur Dim oDataObject As DataObject

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub ClearClipboard()
Dim oDataObject As DataObject
 
Set oDataObject = New DataObject
oDataObject.SetText ""
oDataObject.PutInClipboard
 
Set oDataObject = Nothing
End Sub

[laetitia]

bonjour juju05 Didier le forum cette methode

'Nécéssite d'activer la référence "Microsoft Forms 2.0 Object Library"
'Dans l'editeur de macros:
'Menu Outils
'Références
'Coche le ligne "Microsoft Forms 2.0 Object Library"
'Clique sur OK pour valider

autrement tu peus essaye

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Option Explicit
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Sub Commande0_Click()
    OpenClipboard 0
    EmptyClipboard
    CloseClipboard
End Sub

'ou encore simplement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub es()
  On Error Resume Next
    Application.CommandBars("clipboard").Controls(4).Execute
End Sub

[juju05]

bonjour juju05 Didier le forum cette methode

'Nécéssite d'activer la référence "Microsoft Forms 2.0 Object Library"
'Dans l'editeur de macros:
'Menu Outils
'Références
'Coche le ligne "Microsoft Forms 2.0 Object Library"
'Clique sur OK pour valider

autrement tu peus essaye

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Option Explicit
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Sub Commande0_Click()
    OpenClipboard 0
    EmptyClipboard
    CloseClipboard
End Sub

'ou encore simplement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub es()
  On Error Resume Next
    Application.CommandBars("clipboard").Controls(4).Execute
End Sub

- Je ne vois pas la librairie que tu cites.

- Si je fais copier/coller de ta 2ème solution sous l'éditeur de macro et que je lance la procédure, il ne se passe rien.

- la 3ème solution ne fonctionne pas si le presse-papier est vide(la méthode a échoué).

[Didier Gonard]

bonjour,

c'est depuis 2000 qu'Excel contient plusieurs presse-papiers, on en revient là :

http://www.developpez.net/forums/d82...-excel-office/

cordialement,

Didier

[juju05]

J'ai peut-être la solution sous les yeux. A quel moment le presse-papier est t-il vidé automatiquement ?