Tracabilité d'impression

[grego_9]

Bonjour,

Je suis totalement novice en écriture de macro et je suis à la recherche d'une macro qui me permettrait d'établir la tracabilité d'impression d'un document Excel.
Concrètement j'aimerai copier un username et la date et l'heure d'impression dans un autre fichier excel.
Cet autre fichier excel serait une liste qui me permettrait d'établir un historique de l'impression de ce fichier.
J'ai essayé plusieurs macros mais diffusé sur le site mais n'arrive pas à les adapter à mes besoins.
Quelqu'un peut m'aider?


Merci d'avance,

Greg

 

[joss56]

Re : Tracabilité d'impression

Bonjour à tous,

Regarde ce petit fichier...peut-être suffira t-il à te mettre sur la voie!
A+
Jocelyn

 

[grego_9]

Re : Tracabilité d'impression

Voila, après des heures de bataille j'ai réussi à sortir ceci:

Private Sub CommandButton1_Click()



ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Workbooks.Open Filename:="L:\Tracabilité.xlsm"
Windows("Tracabilité.xlsm").Activate
ActiveCell.FormulaR1C1 = Application.username
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = Now
ActiveCell.Offset(1, -1).Range("A1").Select
ActiveWorkbook.Save
Windows("Tracabilité.xlsm").Close


End Sub


Le soucis c'est que j'ai du créer un bouton car quand je place cette série de commande dans l'évenement BeforePrint, cela ne fonctionne pas.
De plus j'ai un gros soucis de compatibilité avec les anciennes versions d'Excel au niveau de la ligne "IgnorePrintAreas:=False"
Quelqu'un peut-il m'aider ?

 

[Efgé]

Re : Tracabilité d'impression

Bonjour grego_9, joss56,_une proposition faites sous 2003_Le code est dans le ThisWorkbook_Cordialement

 

[grego_9]

Re : Tracabilité d'impression

ENOOOOOOOOOOOOORME Merci !!!!!!!
Plus de problème beforeprint et plus de problème de compatibilité...
Merci bon génie du VBA ;-)....