anthooooony
XLDnaute Occasionnel
Bonjour,
Je fais beaucoup de Tableau croisé dynamique, lié à Access ou je recupere le code SQL.
Je souhaite envoyer un rapport d'activité à plusieurs agence, et je souhaiterais que si un utilisateur de l'agence paris ait en filtre de rapport Paris, un de Lyon ait sont rapport.
J'ai trouvé un code pour lancer une macro en fonction de son identifiant Windows qui est if environ("username")
et j'ai récupéré le code que je mets dans le tableau croisé dynamique.
Je voulais savoir si ce que j'essaye de faire est possible ou un peu compliqué?
Merci d'avance
Anthoooony
Private Sub Workbook_Open()
If Environ("UserName") = "RC1194" Then
SELECT [2012].[Type pce], Sum([2012].[Montant DI]) AS [SommeDeMontant DI], Agence.[Libellé Agence]
FROM 2012 LEFT JOIN Agence ON [2012].DomA = Agence.DOMAINE
GROUP BY [2012].[Type pce], Agence.[Libellé Agence]
HAVING (((Agence.[Libellé Agence])="AGENCE PARIS"));
Or Environ("UserName") = "IBD496" Then
SELECT [2012].[Type pce], Sum([2012].[Montant DI]) AS [SommeDeMontant DI], Agence.[Libellé Agence]
FROM 2012 LEFT JOIN Agence ON [2012].DomA = Agence.DOMAINE
GROUP BY [2012].[Type pce], Agence.[Libellé Agence]
HAVING (((Agence.[Libellé Agence])="AGENCE LYON"));
Etc
Je fais beaucoup de Tableau croisé dynamique, lié à Access ou je recupere le code SQL.
Je souhaite envoyer un rapport d'activité à plusieurs agence, et je souhaiterais que si un utilisateur de l'agence paris ait en filtre de rapport Paris, un de Lyon ait sont rapport.
J'ai trouvé un code pour lancer une macro en fonction de son identifiant Windows qui est if environ("username")
et j'ai récupéré le code que je mets dans le tableau croisé dynamique.
Je voulais savoir si ce que j'essaye de faire est possible ou un peu compliqué?
Merci d'avance
Anthoooony
Private Sub Workbook_Open()
If Environ("UserName") = "RC1194" Then
SELECT [2012].[Type pce], Sum([2012].[Montant DI]) AS [SommeDeMontant DI], Agence.[Libellé Agence]
FROM 2012 LEFT JOIN Agence ON [2012].DomA = Agence.DOMAINE
GROUP BY [2012].[Type pce], Agence.[Libellé Agence]
HAVING (((Agence.[Libellé Agence])="AGENCE PARIS"));
Or Environ("UserName") = "IBD496" Then
SELECT [2012].[Type pce], Sum([2012].[Montant DI]) AS [SommeDeMontant DI], Agence.[Libellé Agence]
FROM 2012 LEFT JOIN Agence ON [2012].DomA = Agence.DOMAINE
GROUP BY [2012].[Type pce], Agence.[Libellé Agence]
HAVING (((Agence.[Libellé Agence])="AGENCE LYON"));
Etc