Sujet Précédent Sujet Suivant

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

Résolu/Fermé
Fethi51 Messages postés 4 Date d'inscription dimanche 15 décembre 2013 Statut Membre Dernière intervention 16 décembre 2013 - 15 déc. 2013 à 19:39
Fethi51 Messages postés 4 Date d'inscription dimanche 15 décembre 2013 Statut Membre Dernière intervention 16 décembre 2013 - 16 déc. 2013 à 13:41
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 jeudi 19 septembre 2013 Statut Membre Dernière intervention 26 décembre 2018 64
Modifié par Boisgontierjacques le 15/12/2013 à 21:06
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 jeudi 19 septembre 2013 Statut Membre Dernière intervention 26 décembre 2018 64
15 déc. 2013 à 23:05
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 jeudi 19 septembre 2013 Statut Membre Dernière intervention 26 décembre 2018 64
Modifié par Boisgontierjacques le 16/12/2013 à 11:59
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 dimanche 15 décembre 2013 Statut Membre Dernière intervention 16 décembre 2013
15 déc. 2013 à 22:03
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 dimanche 15 décembre 2013 Statut Membre Dernière intervention 16 décembre 2013
16 déc. 2013 à 10:39
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 dimanche 15 décembre 2013 Statut Membre Dernière intervention 16 décembre 2013
16 déc. 2013 à 13:41
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