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