Macro dans Powerpoint 2019

Bonjour,

J'ai la macro suivante dans Powerpoint 2019 qui ouvre une fichier .exe (d'ailleurs j'en ai des centaines du même genre)

Shell "C:\Users\fourm\Pictures\Cd_Photos\Marilyn.exe", vbMaximizedFocus

J'aimerais utiliser cette macro sur n'importe quel Pc c.a.d. Il faudrait modifier

"C:\Users\fourm pour

"C:\Users\pierre

"C:\Users\jacques

"C:\Users\joblo

etc.

puis-je modifier le libellé de cette macro pour qu'elle puisse fonctionner sur n'importe quel Pc, cela revient à dire qu'il faut remplacer foum par un code universel ...

En espérant être clair dans mes explications et demandes.

Merci bien.

Bonjour et sur le forum,

On peut utiliser la propriété UserName de Application pour connaître le nom de l'utilisateur, si son nom est le même que pour ce qui suit Users, on peut alors écrire:

Shell "C:\Users\" & Application.UserName & "\Pictures\Cd_Photos\Marilyn.exe", vbMaximizedFocus

J'espère que ça pourra t'aider

Si ça ne correspond pas, on peut éventuellement lister sur une feuille les chemins pour les différents noms d'utilisateurs

Bonjour,

On peut aussi récupérer le chemin ainsi :

Function GetUserPath ()
  GetUserPath = Environ("USERPROFILE")
End Function

Shell "C:\Users\" & GetUserPath()  & "\Pictures\Cd_Photos\Marilyn.exe", vbMaximizedFocus
Rechercher des sujets similaires à "macro powerpoint 2019"