Discussion :

[bowi1418]

Bonjour,

Je cherche comment récupérer automatiquement le nom de l'auteur d'un document dans une celleule excel.

Merci de votre aide et j'ai cherché pendant des heures mais rien trouvé.

[fring]

Bonjour,

via un petit bout de code en VBA

Code :

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

1
2
3
Sub auteur_doc()
sheets("NomFeuille").Range("A1") = ThisWorkbook.BuiltinDocumentProperties("author").Value
End Sub

[bowi1418]

Merci. Je vais essayer ça ce soir.

[bowi1418]

Je n'ai pas pu attendre jusqu'à ce soir

Ca marche nickel!!

Encore Merci.

[bowi1418]

Encore une question :
A la place de l'auteur, j'aimerais faire afficher le nom de l'utilisateur.

Merci d'avance

PS: le nom de l'utilisateur se trouve dans Outil/Options/général

[fring]

Pour ce qui se trouve dans Outils/Options/Générale (où finalement on inscrit ce que l'on veut et ne reflète pas forcément la réalité)

Code :

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

Application.UserName

Pour connaître le login de l'utilisateur du pc

Code :

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

Environ("UserName")

[bowi1418]

C'est exactement ce que je recherche depuis des heures..

Merci beaucoup.