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 Membre Dernière intervention 15 juillet 2011 - 16 juil. 2005 à 01:53
nhervagault Messages postés 6063 Date d'inscription dimanche 13 avril 2003 Statut Membre Dernière intervention 15 juillet 2011 - 16 juil. 2005 à 01:53
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
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
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
nhervagault
Messages postés
6063
Date d'inscription
dimanche 13 avril 2003
Statut
Membre
Dernière intervention
15 juillet 2011
37
16 juil. 2005 à 01:53
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é.
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é.
