Discussion :

[dounia.er]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci d'avance

[tee_grandbois]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[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)" ?

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[Domi2]

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

[Dolphy35]

Bonjour,

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.

@+