> Tous les forumsBureautique

 Touche de raccourciSujet résolu
Statut du sujet : RESOLU Imprimer
 THIERRY65
  Posté le 07/10/2007 @ 15:06  
 Petit astucien

148 Messages

Bonjour à toutes et tous, dans le cadre de mon travail, j'ai besoin d'imprimer environ toutes les 5 mn une feuille Excel.

Jusqu'ici rien d'extraordinaire, oui mais je me travail debout et sur le côté du clavier, pour éviter de faire un Ctrl + P, je veux simplement faire une macro "Imprimer", avec un raccourci d'une seule touche qui serait par exemple la touche X ou autre.

Il me semble que sait impossible mais sait on jamais ???

Je sais ça parait idiot !!! mais pour le travail que je réalise ça me serait trés pratique.

 Afficher le profil de THIERRY65Envoyer un message privé à THIERRY65
 
 
Publicité
 galopin01  Posté le 07/10/2007 à 16:09  
Astucien

4315 Messages

Bonjour,

Imaginons que tu as fait une Sub TaMacro() qui réalise ton impression.

Pour affecter une touche unique [F8] à cette macro dans ce classeur...

Aller dans le Module This Workbook et y coller la macro suivante :
Private Sub Workbook_Open()
Application.OnKey "{F8}", "TaMacro"
End Sub

Nota : S'il existe déjà une Private Sub Workbook_Open() on se contentera de rajouter la ligne en rouge (en premier)

Nota2 : Rajouter également cette macro pour désactiver le raccourci en sortie du classeur :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "{F8}"
End Sub

Nota3 : Si tu utilises plusieurs classeurs simultanément il peut être utile de désactiver temporairement ce raccouci tant que tu n'es pas revenu sur ton classeur préféré :

Dans ce cas rajouter (toujours dans ThisWorkbook) les deux macros suivantes :

Private Sub Workbook_Activate()
Application.OnKey "{F8}", "TaMacro"
End Sub

et...
Private Sub Workbook_Deactivate()
Application.OnKey "{F8}"
End Sub

Dans le cas ou les Sub existent déjà on se contentera de rajouter les lignes en rouge...

A+



Modifié par galopin01 le 07/10/2007 16:11
Afficher le profil de galopin01 Voir la configuration de galopin01Envoyer un message privé à galopin01
 Revenir en haut de la page
 sourisdeservice  Posté le 07/10/2007 à 16:15  
  Maîtresse astucienne


19671 Messages
Bonjour à tous,
C'est fou ! On fait vraiment tout ce qu'on veut ici
Afficher le profil de sourisdeservice Voir la configuration de sourisdeserviceEnvoyer un message privé à sourisdeservice
 Revenir en haut de la page
 THIERRY65  Posté le 07/10/2007 à 17:58  
Petit astucien

148 Messages

Merci beaucoup galopin01 ça marche.

Bonne fin de week-end

Afficher le profil de THIERRY65Envoyer un message privé à THIERRY65
 Revenir en haut de la page
Haut de la page 
Inscrivez-vous !
- Posez vos questions

- Résolvez vos problèmes

- Aidez les autres

- Participez et créez vos discussions

- Dialoguez en privé avec d'autres membres

- Suivez vos sujets préférés

- Affichez les signatures des membres

TOUT EST GRATUIT !

Je crée mon compte



Vous avez besoin d'aide ?
Des centaines d'experts sont à votre disposition sur les forums PC Astuces pour vous aider gratuitement, 24h/24, 7j/7.

Les derniers sujets résolus !
 

 > Tous les forumsBureautique

 
Forum PC Astuces© 1997-2008 WebastucesAller en haut de la page