chemin relatif , VBA ACCESS

Bonjour tout le monde,

j'ai cette commande sous VBA access et j'aimerai bien que le chemin soit relatif comme il pourra lancer Excel quelque soit le chemin

Code:

---

Call Shell("C:\Program Files\Microsoft Office\Office\excel.exe """ & chemin_macro, 1)

---

Merci d'avance

Bonjour,
tu peux essayer en utilisant la variable d'environnement des programmes :

Code:

---

1 2 3 4 5 6

Dim stShell As String Dim stProg As String   stShell = Environ("ProgramFiles") stProg = "\Microsoft Office\Office\excel.exe" Call Shell(stShell & stProg & " " & chemin_macro, 1)

---

Merci Beaucoup, ça marche sur XP mais est ce qu'il va marché sur Win7 sachant que ProgramFiles sur Win7 porte comme nom "ProgramFiles (86)" ?

Citation:

---

Envoyé par tee_grandbois

Bonjour,
tu peux essayer en utilisant la variable d'environnement des programmes :

Code:

---

1 2 3 4 5 6

Dim stShell As String Dim stProg As String   stShell = Environ("ProgramFiles") stProg = "\Microsoft Office\Office\excel.exe" Call Shell(stShell & stProg & " " & chemin_macro, 1)

---

---

Bonsoir,

Jamais testé, mais regarde également du côté de l'API ShellExecute, cela doit être jouable.

L'avantage, c'est que c'est totalement indépendant de l'endroit où se trouve l'exécutable.

Domi2

Bonjour,

Citation:

---

Envoyé par dounia.er

Merci Beaucoup, ça marche sur XP mais est ce qu'il va marché sur Win7 sachant que ProgramFiles sur Win7 porte comme nom "ProgramFiles (86)" ?

---

Le meilleur moyen est d'essayer ;)

La réponse de Domi me semble la plus judicieuse, cette API utilise le programme par défaut pour l'extension du fichier que tu veux ouvrir.

@+