Access Enregistrer fichier sur le bureau (tout utilisateur)

[anthonydu62]

Bonjour à toute et tous.
J'ai une base de donnée access, qui peut exporter un état en format pdf.
Actuellement, j'arrive à l'enregistrer sur le bureau.

Chemin actuel: DoCmd.OutputTo acOutputReport, , "PDF", "C:\Users\Anthony\Desktop\test.pdf"

Je voudrais:
Que si cette base de donnée est installé sur un autre pc, qu'il enregistre le fichier sur le bureau également.
MAIS... que cela se face sans que je sois obligé de modifier mon VBA.

Un truc du genre: DoCmd.OutputTo acOutputReport, , "PDF", "C:\Users\*\Desktop\test.pdf

Est-ce possible?
-----

[umfred]

il faut passer par les variables d'environnement
%username% => c:\users\%username%\desktop\te st.pdf
%userprofile% => %userprofile%\desktop\test.pdf
(on peut les retrouver en tapant set dans une invite de commande, ou dans les paramètres système avancés > bouton variable d'environnement)

[Ikhar84]

Attention de quels bureaux parles-tu ?
Les bureaux des différentes session sur un même pc, ou des pc "distants" ?

Si on parles du même pc, tu as un utilisateur qui regroupe tous les comptes utilisateurs, le profile "Public" dans lequel il y a un "Bureau public" (caché par défaut), accessible via :

C:\Users\Public\Desktop

Tout ce qui y est mis est accessible à tous les comptes, sans être dupmiqié !

[anthonydu62]

il faut passer par les variables d'environnement
%username% => c:\users\%username%\desktop\te st.pdf
%userprofile% => %userprofile%\desktop\test.pdf
(on peut les retrouver en tapant set dans une invite de commande, ou dans les paramètres système avancés > bouton variable d'environnement)

Umfed, peux tu être un peut plus préci car je suis pas une flèche sur Access

Attention de quels bureaux parles-tu ?
Les bureaux des différentes session sur un même pc, ou des pc "distants" ?

Si on parles du même pc, tu as un utilisateur qui regroupe tous les comptes utilisateurs, le profile "Public" dans lequel il y a un "Bureau public" (caché par défaut), accessible via :

C:\Users\Public\Desktop

Tout ce qui y est mis est accessible à tous les comptes, sans être dupmiqié !

Ikhar84, j'ai donc essayé:

DoCmd.OutputTo acOutputReport, , "PDF", "C:\Users\Public\Desktop\test. pdf"

ça ne fonctionne pas: erreur 2501. L'action OutputTo a été annulée.

[A voir en vidéo sur Futura]

[Ikhar84]

(...) dupmiqié !

Maudit smartphone !
Je ne suis pas bourré, il fallait lire "ne sera pas dupliqué !"

Pour le reste:
(Re)attention, il faut avoir les droits admin pour écrire dans ce dossier, il faut donc lancer Access en mode Administrateur (clic droit) !

Edit (avec croisement):
Quant au message d'Umfred, il voulait sûrement dire que l'on pouvait "manipuler" les dossier d'un compte utilisateur sans forcément connaître son "nom", via la variable d'environnement %userProfile%, mais je ne penses pas que l'on puisse parcourir ainsi tous les profiles, plutôt en parcourant le dossier Users, mais là encore avec des droits admins...
Pour être plus clair, tu n'as pas besoin de savoir que le compte utilisateur est "Anthony"...

[umfred]

bah tu remplaces ton chemin par un des 2 que j'ai indiqué (le 2nd qui est plus générique je pense)

 DoCmd.OutputTo acOutReport, , "PDF", "%userprofile%\desktop\test.pdf"

[anthonydu62]

Bon en cherchant un peut, j'ai trouvé la solution.
Je l'a donne cela peut servir à toutes et tous.

A = Environ("UserName")
B = "C:\Users\" & A & "\Desktop\test.pdf"
DoCmd.OutputTo acOutputReport, , "PDF", B

Cordialement

[anthonydu62]

DoCmd.OutputTo acOutReport, , "PDF", "%userprofile%\desktop\test.pd f"
Donne une erreur

[umfred]

Bon en cherchant un peut, j'ai trouvé la solution.
Je l'a donne cela peut servir à toutes et tous.

A = Environ("UserName")
B = "C:\Users\" & A & "\Desktop\test.pdf"
DoCmd.OutputTo acOutputReport, , "PDF", B

Cordialement

C'est comme ma méthode, sauf que tu récupères la variable d'environnement %username% via l'appel à la fonction environ("UserName")
Du coup, tu peux aussi faire

A=Environ("userprofile")
B=A & "\dektop\test.pdf"
DoCmd.OutputTo acOutputReport, , "PDF", B

[umfred]

DoCmd.OutputTo acOutReport, , "PDF", "%userprofile%\desktop\test.pd f"
Donne une erreur

Je n'avais pas testé sous vba, je pensais que ça aurait marché directement (comme dans une invite de commande ou dans l'explorateur) mais non, il faut passer par la fonction Environ() pour utiliser/récupérer les variables d'environnement