Discussion :

[flet le kid]

Bonjour,

Depuis mon application Access, j'exécute une requête et j'exporte le résultat dans Excel. Ensuite pour empêcher l'utilisateur de copier j'utilise le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Comment vider le presse papier ? [haut]  
 
auteur : SilkyRoad 
Utilisez cette procédure pour vider le contenu du presse papier. 


Vba 

Sub ViderPressePapier()
'Nécéssite d'activer la référence "Microsoft Forms 2.0 Object Library."
Dim Cible As dataObject

Set Cible = New dataObject
Cible.setText ""
Cible.putInClipboard

Set Cible = Nothing
End Sub

Malheureusement, Malgré la référence activée, en compilant j'ai une erreur au niveau de la syntaxe en rouge. L'erreur est la suivante!:

Erreur de compilation:
Utilisation incorrecte du mot clé New

J'ai même regardé dans l'aide sur le presse papier et j'ai utilisé le code fournit (qui d'ailleurs est semblable à celui que j'ai mis là haut) mais j'ai la même erreur.

Comment faire donc pour vider le presse papier depuis ACCESS?

NB: Je ne savais pas si je devais poster depuis le forum Excel ou celui d'Access. j'ai choisi Excel car le code que j'ai pris provient de la faq de ce forum. Je m'excuse auprès de tous si je me suis trompé, surtout auprès des modérateurs qui vont bien vouloir m'envoyer un message privé en cas d'erreur

[scully2501]

As tu activé la référence comme dite?
Nécéssite d'activer la référence "Microsoft Forms 2.0 Object Library."

[flet le kid]

Oui, j'ai activé la référence.

[aalex_38]

bonjour,

Code :

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

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

Je viens de tester ce code et il fonctionne parfaitement avec 3 références :
visual basic For Application
Microsoft Excel xx.x Object Library
Microsoft Form xx.x Object Library

[flet le kid]

Ben, je dois avoir un gros soucis alors, parce je viens de tester et ça ne passe pas quand je compile. Pourtant j'ai les mêmes références activées chez moi.

[flet le kid]

OK, je vais laisser cette possibilité et chercher une autre méthode que je mettrai dans un nouveau post. Merci

[aalex_38]

Tu mets résolu, mais apparemment ça ne l'est pas !

As-tu essayé ce que je t'avais dis ?

Et si tu mets seulement en place ce code dans un nouveau classeur, que se passe-t-il ?

Code :

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

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

[flet le kid]

Comme je l'ai signifié plus haut, je suis sous ACCESS. J'avais plutôt essayé de mettre ce code dans un nouveau module en vain.

[aalex_38]

Comme je l'ai signifié plus haut, je suis sous ACCESS

Peut être peux-tu ouvrir un post sous VBA Access ?

[aalex_38]

Ensuite pour empêcher l'utilisateur de copier

C'est plutôt pour l'empecher de coller non ?
Une solution de contournement, serait de copier quelque chose d'autre ou même ( a tester) d'utiliser :

Code :

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

Application.cutcopymode = false

?

[flet le kid]

Sous Access ce code ne fonctionne pas chez moi. mais en le mettant sous Excel, je n'ai eu aucun soucis. Et la finalité pour moi était d'empêcher depuis Access, un copier coller sous Excel. Finalement, j'utilise un fichier Excel préalablement crée. Donc, j'ai mis le code directement dans ce fichier. Je n'ai donc plus de soucis car ce code fonctionne.
Je marque donc résolu ce sujet même si je me demande toujours pourquoi ce code ne fonctionne pas sous Access.

Merci encore et à bientôt.