Discussion :

[Boubas1]

Bonjour cette fois-çi,

Je voulais savoir s'il est possible de rajouter le nom du propriétaire ou créateur du fichier excel dans l'entête de page defaçon automatique tout comme on peut rajouter la date du jour ou le chemin du fichier. En fait je voudrais éviter à chaque fois de taper le nom de la personne.mERCI.

[Tdeny]

Bonjour,
à part l'écrire à la main dans entête personnalisé ou nommer le fichier avec le nom du créateur dedans puis cliquer sur &[Fichier], je ne vois pas.

[fring]

Bonjour,

C'est éventuellement faisable via un ptit bout de code en VBA
Pour les entête et pied de page c'est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
With ActiveSheet.PageSetup
.LeftHeader = "...." '<-- Entete gauche
.CenterHeader = "...." '<-- Entete centre
.RightHeader = "...." '<-- Entete droite
.LeftFooter = "...." '<-- Pied gauche
.CenterFooter = "...." '<-- Pied centre
.RightFooter = "...." '<-- Pied droite
End With

Et dans un de ces "...." on colle
soit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.UserName

soit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Environ("username")

[random]

username renvoie l'utilisateur
le créateur sera obtenu par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Function litprop() As String
Dim u As Workbook
Dim v As Variant
Set u = ActiveWorkbook
'For Each v In u.BuiltinDocumentProperties
'Debug.Print v.Name
Next v
litprop = u.BuiltinDocumentProperties("Author")
End Function

en supprimant les commentaires on pourra se faire une idée des propriétés en dur
nb il existe aussi des propriétés personnalisées auxquelles on peut avoir accès

[OtObOx]

username renvoie l'utilisateur
le créateur sera obtenu par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Function litprop() As String
Dim u As Workbook
Dim v As Variant
Set u = ActiveWorkbook
'For Each v In u.BuiltinDocumentProperties
'Debug.Print v.Name
'Next v
litprop = u.BuiltinDocumentProperties("Author")
End Function

Je sais, c'est pinailler mais ça marchera mieux comme ça !

En tout cas merci pour ce code, je ne savais pas comment on faisait ça sous excel !

Je rebondis sur ce post : dans les en-tête et pieds de page, on peut insérer la date, la page, le nombre de page etc. à l'aide des variables Excel. Il n'y a vraiment pas d'autres moyens que le VBA pour aller récupérer l'auteur ? Je suis surpris de ça !

JM

[vduvernet]

Je viens de tomber sur cet article qui peut aider aussi :

http://support.microsoft.com/kb/273028

++
Vince