Microsoft 365 Macro export pour plusieurs utilisateurs

raf26

XLDnaute Occasionnel
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

Capture.JPG



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
 

raf26

XLDnaute Occasionnel
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

XLDnaute Barbatruc
Supporter XLD
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- :D 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.
 

Pièces jointes

  • Environ.xlsm
    16.3 KB · Affichages: 4

Staple1600

XLDnaute Barbatruc
Bonsoir le fil, raf26, herve62, Re sylvanu

Si environnement Windows, on peut aussi faire ainsi
VB:
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
 

Staple1600

XLDnaute Barbatruc
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 ;))
VB:
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
 

Discussions similaires