Ouverture d'un fichier excel en fonction de l'utilisateur

Résolu
Fethi51 Messages postés 4 Date d'inscription   Statut Membre Dernière intervention   -  
Fethi51 Messages postés 4 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je souhaiterai faire une macro sur un fichier pour qu'à chaque ouverture et qu'en fonction de l'utilisateur (Nom de l'auteur sur excel) le fichier s'ouvre avec un filtre sur cette personne.

Merci d'avance pour votre aide.
A voir également:

6 réponses

Réponse 1 / 6
Boisgontierjacques Messages postés 175 Date d'inscription   Statut Membre Dernière intervention   64
 
Bonsoir,

Private Sub Workbook_Open()
nom = Environ("username")
Sheets(1).Cells.AutoFilter Field:=1, Criteria1:=nom
End Sub

https://www.cjoint.com/c/CLpvfEfhcEO

Jacques Boisgontier
2
Réponse 2 / 6
Boisgontierjacques Messages postés 175 Date d'inscription   Statut Membre Dernière intervention   64
 
Private Sub Workbook_Open()
nom = Environ("username") ' nom réseau
Sheets(1).Cells.AutoFilter Field:=1, Criteria1:=nom
End Sub

ou

Private Sub Workbook_Open()
nom = Application.UserName ' user office
Sheets(1).Cells.AutoFilter Field:=1, Criteria1:=nom
End Sub

ou

Private Sub Workbook_Open()
nom = Application.UserName
initiales = Application.VLookup(nom, [utilisateurs], 2, False) ' table correspondance
If Not IsError(initiales) Then
Sheets(1).Cells.AutoFilter Field:=1, Criteria1:=initiales
End If
End Sub

https://www.cjoint.com/c/CLpxft99txX

Jacques Boisgontier
1
Réponse 3 / 6
Boisgontierjacques Messages postés 175 Date d'inscription   Statut Membre Dernière intervention   64
 
Bonjour,

Mettre la table de correspondance sur une autre feuille et nommer cette tableutilisateurs.

Jacques Boisgontier
1
Réponse 4 / 6
Fethi51 Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 
Merci de votre réponse

mais le "nom" est le nom de session ou autres, comment faire avec le nom dans Office plutôt ?

https://www.cjoint.com/c/CLpwaWFjcFB

si possible avec des initiales en fonction des noms
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 6
Fethi51 Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,

Merci beaucoup

je n'arrive juste pas à faire une table de correspondance et pour éviter de l'utiliser car il y aura des insertions de ligne et de colonnes et que cela risque de se décaler, est-il possible de mettre les correspondance entre prénom/nom et initiales directement dans la macro ?



Private Sub Workbook_Open()
nom = Application.UserName
initiales = Application.VLookup(nom, [utilisateurs], 2, False) ' table correspondance
If Not IsError(initiales) Then
Sheets(1).Cells.AutoFilter Field:=1, Criteria1:=initiales
End If
End Sub
0
Réponse 6 / 6
Fethi51 Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 
J'ai pas su comment identifier une table de correspondance donc je me suis débrouillé comme ça :

nom = Application.UserName
initiales = Application.VLookup(nom, Range("CO3:CP8"), 2, False) 'table correspondance
If Not IsError(initiales) Then
Sheets(1).Cells.AutoFilter Field:=13, Criteria1:=initiales
End If

En tout un énorme MERCI ça marche très bien ...

A bientôt.
0