Discussion :

[flet le kid]

Bonjour,

je veux ouvrir un fichier Excel et ne permettre à l'utilisateur que d'imprimer le contenu. Je voudrais même si possible avant qu'il n'imprime ajouter des éléments en pied de page. Est ce possible?

Merci

[flet le kid]

Bonsoir,

ma requête est confuse ou compliqué à résoudre. Je vais revoir mes prétentions à la baisse en espérant avoir des solutions.

Finalement, après avoir avancé dans le travail, j'ai maintenant besoin de supprimer les barres de menus, d'empêcher le copier coller et vider le presse papier.

J'ai réussi à supprimer la barre de menus mais il reste les petites barres (détachables) qui ne veulent pas s'en aller. Et puis, je ne sais pas annulé le copier coller et le vider le presse papier depuis Access vers Excel. C'est à dire, comment depuis Access dire à Excel d'empêcher le copier coller et vider le presse papier.

Merci

[=JBO=]

Bonsoir,

Finalement, après avoir avancé dans le travail, j'ai maintenant besoin de supprimer les barres de menus, d'empêcher le copier coller et vider le presse papier.

J'ai réussi à supprimer la barre de menus mais il reste les petites barres (détachables) qui ne veulent pas s'en aller. Et puis, je ne sais pas annulé le copier coller et le vider le presse papier depuis Access vers Excel. C'est à dire, comment depuis Access dire à Excel d'empêcher le copier coller et vider le presse papier.

Avec Excel, il est possible d'associer certaines combinaisons de touches à l'exécution d'une procédure.
L'objet Application possède la méthode OnKey qui réalise cela.

Supposons que ton projet Excel contient un module de code avec les procédures suivantes:

Code VBA :

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

1
2
3
4
5
6
7
8
9
Option Explicit
 
Public Sub Ctrl_C()
    MsgBox "Ctrl + C"
End Sub
 
Public Sub Ctrl_V()
    MsgBox "Ctrl + V"
End Sub

Il te suffit d'exécuter les lignes suivantes pour détourner les frappes de touches contrôle+C et contrôle+V:

Code VBA :

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

1
2
3
4
Application.OnKey "^C", "Ctrl_C" 
Application.OnKey "^c", "Ctrl_C"
Application.OnKey "^V", "Ctrl_V" 
Application.OnKey "^v", "Ctrl_V"

Maintenant que tu connais le principe, à toi d'adapter (sans oublier de lire l'aide en ligne).


Pour vide le presse-papiers, le plus simple est d'y copier le contenu d'une cellule vide (si tu es dans Excel).
Par exemple, en faisant l'hypothèse que la cellule A1 est vide:

Code :

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

Range("A1").Copy

Seulement, il se trouve que les applications Office sont capables de mémoriser jusqu'à 12 opérations Copier (cf. presse-papiers Office).
Si tu veux effacer tout ça, je ne vois qu'une possibilité qui consiste à utiliser la barre d'outils Presse-Papiers sur laquelle on trouve un bouton de commande qui efface tous les éléments du presse-papiers Office.

Heureusement, si on connaît l'identifiant de cette commande, il est possible de l'exécuter directement en VBA:

Code :

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

Application.CommandBars.FindControl(id:=3634).Execute

Ce code est valable pour toutes les applications Office, testé avec Office 2000.


Pour ce qui est des barres d'outils que tu veux cacher, on y accède par Application.CommandBars.
Je sais que le forum contient de nombreux messages à ce propos. Bonne recherche !
_

[flet le kid]

Merci pour toutes ces astuces que je vais regarder de très près

[flet le kid]

Tes astuces m'ont aidé. Seulement le problème central n'a pas été résolu. Je le mettrai dans un nouveau post avec une nouvelle reformulation.

Merci encore