Insertion Date impression VBA

cs_delma Messages postés 8 Date d'inscription jeudi 16 juin 2005 Statut Membre Dernière intervention 28 août 2006 - 14 juil. 2005 à 16:28
nhervagault Messages postés 6063 Date d'inscription dimanche 13 avril 2003 Statut Modérateur Dernière intervention 15 juillet 2011 - 16 juil. 2005 à 01:53
Hello,

Comment faire pour inserer dans une entête la derniere date d'impression et la nom de la personne qui a effectuer l'impression?
Sur VBA pour excel
Merci d'avance!!

2 réponses

jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 27
14 juil. 2005 à 17:41
Bonjour,

A part récupérer la date de création, de la dernière modification et la
dernière date d'accès d'un fichiers.xls où autres. Je ne connais aucun
code pour faire ce que tu demandes.



jpleroisse
0
nhervagault Messages postés 6063 Date d'inscription dimanche 13 avril 2003 Statut Modérateur Dernière intervention 15 juillet 2011 37
16 juil. 2005 à 01:53
Pour l'utilsateur courant tu as les API

Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal
lpBuffer As String, nSize As Long) As Long



' get UserName
Public Function GetWinUser() As String
Dim Buffer As String
Dim Length As Long
Dim Dummy As Integer



Buffer$ = Space$(255)
Length = Len(Buffer$)
Dummy = GetUserName(Buffer$, Length)
GetWinUser = Left$(Buffer$, Length)
End Function



Pour la date d'impression le maintenant ou now doit suffir.

Pour les mettres dans l'entete, je ne connais pas.

Tu peux regarder du coté des champs de formulaires.

Comme les autres champs



Mais je ne sais pas comment ca fonctionne apres est ce personnalisable.

-----------------------------------

En regardant excel dans les mise en page tu peux personnalisés

Police

texte fixe

Pages

fichier

nom utilisateur et dates

sur la v2000

en 2003 j'ai pas regardé.
0