Téléchargement
illégal
Posez votre question Signaler

[vba access] copier table > presse-papier [Résolu]

Gaunts 1048Messages postés 10 août 2010Date d'inscription 18 mars 2012Dernière intervention - Dernière réponse le 1 sept. 2010 à 10:36
Bonjour,
Après de nombreuses recherches, je ne trouve pas de solution à mon problème.
Sous Access 2007, je dispose d'un formulaire sur lequel se trouve un bouton.
Le rôle de ce bouton serait de copier le contenu d'une table(ou d'un sous formulaire, quoi que ce soit qui ressemble à un tableau) dans le presse papier, ceci ayant pour but de pouvoir copier ce tableau dans une présentation Powerpoint.
Je n'ai pas réussi à trouver de macro pouvant m'aider, et en vba, je n'arrive qu'à copier ma table vers une autre table ou un autre document(excel par exemple), impossible de la laisser uniquement dans le presse-papier.
Merci d'avance pour votre aide,
Cordialement.
Lire la suite 

[vba access] copier table > presse-papier »

2 réponses
Réponse
+1
moins plus
Gaunts 1048Messages postés 10 août 2010Date d'inscription 18 mars 2012Dernière intervention 1 sept. 2010 à 10:36
Problème résolu, pour ceux que ça intéresserait je poste ma solution.
Plutôt que de copier une table, j'ai décidé de copier le tableau présent dans le formulaire grâce aux SendKeys.
Un petit
Private Sub cmdExport_Click()

    SendKeys "^a"
    SendKeys "^c"

End Sub
suffit, en vidant le presse papier à la fermeture du formulaire: 
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long

Private Sub Form_Close()

    OpenClipboard 0
    EmptyClipboard
    CloseClipboard

End Sub

 Ajouter un commentaire
Ajouter un commentaire
Posez votre question
Ce document intitulé « [vba access] copier table > presse-papier » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
Passage au tout numérique : quel coût pour les particuliers ?