Microsoft 365 Macro export pour plusieurs utilisateurs

[raf26]

Bonjour,

J'ai une macro d'export en PDF qui marche nickel sur mon pc.

Je souhaiterais modifier cette macro pour que d'autres utilisateurs l'utilisent sur leurs pc car mon nom est indiqué dans le chemin

Quel est le chemin à indiquer pour que l'enregistrement fonctionne pour d'autres utilisateurs ?

Je bloque sur ce point.

Merci d'avance

Cordialement

Bonne journée

 

[sylvanu]

Bonjour Raf,
Environ(48) me donne "USERPROFILE=C:\Users\PC_PAPA" au quel on peut rajouter Documents s'il s'agit d'un invariant.
Il y a 50 données d'environement. A regarder si celle ci ne réponds pas au besoin.

 

[herve62]

Bonjour
Bin tu mets nom en variable plage d' une liste dans une de tes feuille
et tu boucles exemple :

set tab_nom=range("a1:a10")

for each nom in tab_nom

.... ici ton code avec la variable que tu souhaites affecter

next nom

 

[sylvanu]

Re Bonjour,
J'ai éssayé en utilisant environ, ça à l'air de marcher :

PathPerso = Mid(Environ(48), 13) & "\Documents\"

la réponse est "C:\Users\PC_PAPA\Documents\"

 

[raf26]

Bonsoir,

Merci pour vos différentes réponses, mais je suis un peu perdu

1 :
PathPerso = Mid(Environ(48), 13) & "\Documents\"

Je le mets ou dans mon code ? Et tel quel ?


2:
C:\Users\PC_PAPA\Documents\"

Je remplace PC_PAPA par quoi ?


PS je précise que je suis absolument nul en VBA, je ne l'utilise qu'en copiant des codes existants afin de simplifier des taches.


Merci

 

[sylvanu]

Bonsoir Raf,

1- a- Il vaut mieux utiliser dans votre cas Environ(USERPROFILE) qui remontera directement le nom ce qui évitera le MID :
PathPerso = Environ(USERPROFILE) & "\Documents\"

1-b- Ca se met à la place de votre C:\Users\Raphael\Documents\ où Raphael sera remplacé par le nom du PC de l'utilisateur. C'était le but, non ?

2- 😀 PC_PAPA ... c'est mon PC. regardez dans le fichier joint, la colonne jaune sont les valeurs remontées sur votre PC, en ligne 49 avec Environ(48) vous verrez le nom de votre PC.
Et si vous fouillez dans les 50 valeurs, vous en trouverez sans doute des intéressantes.

 

[Staple1600]

Bonsoir le fil, raf26, herve62, Re sylvanu

Si environnement Windows, on peut aussi faire ainsi

Sub Export_PDF()
Dim objShell, LeNom$, strPath$
Set objShell = CreateObject("Wscript.Shell")
strPath = objShell.SpecialFolders("MyDocuments") & "\"
LeNom = Sheets("controle").[Y1]
ActiveSheet.ExportAsFixedFormat strPath & LeNom & ".pdf"
End Sub

 

[raf26]

Re Sylvanu et Staple1600

Je viens d'essayer vos 2 réponses mais j'ai des erreurs sur les 2.

Pour le code PathPerso de Sylvanu :

et pour le code de Staple1600

 

[Staple1600]

Re

Cela devrait mieux marcher ainsi 😉
(désolé erreur de recopie du code de l'image du premier message
Mais si tu avais copié le texte de la macro plutôt que l'image, il n'y aurait pas eu d'erreur 😉)

Sub Export_PDF()
Dim objShell, LeNom$, strPath$
Set objShell = CreateObject("Wscript.Shell")
strPath = objShell.SpecialFolders("MyDocuments") & "\"
LeNom = Sheets("controle").[Y1]
ActiveSheet.ExportAsFixedFormat xlTypePDF, strPath & LeNom & ".pdf"
End Sub

 

[raf26]

Staple1600

Merci ça marche !!

Merci , merci !!

Et merci également à Sylvanu !

Et merci à tous les 2 pour votre rapidité