Macro ? :Est ce possible

[J and B]

bonsoir au forum, voila jai cette macro:
Sub Explorateur()

Racine = ('D:\\Nouveau dossier\\Readme.doc')

Call Shell('explorer /e,/root,' + Racine, vbNormalFocus)

End Sub

elle ouvre automatiquement ce fichier, je voudrais savoir si une macro peut faire la meme chose mais en ouvrant une application, un fichier de musique par exemple avec VLC ou media player ou une application acces ect ect
merci d'avance pour le renseignement

 

[Staple1600]

Bonsoir

Vu dans l'aide VBA

Dim RetVal
' Exécute la calculatrice.
RetVal = Shell('C:\\WINDOWS\\CALC.EXE', 1)

Donc je suppose qu'en indiquant le nom et l'emplacement de l'exe ca doit fonctionner

Par contre, je ne sais pas si on peut indiquer un nom de fichier en parametre.

 

[J and B]

oui effectivement ca marche, mais pouurait tu me dire comment faire avec cette macro si l'application me demande un code utilisateur

Sub CALCULETTE()
Dim RetVal
' Exécute la calculatrice.
RetVal = Shell('C:\\Program Files\\BO513\\BusinessObjects 5.0\\BUSOBJ.EXE', 1)

End Sub

 

[Staple1600]

Bonsoir


Sub CALCULETTE()
Dim RetVal
' Exécute la calculatrice.
RetVal = Shell('Crogram FilesBO513BusinessObjects 5.0BUSOBJ.EXE MetrreCode ici', 1)

End Sub

Est-ce que cela marche?

 

[J and B]

Nan ca ne marche pas , en faite je pence qu'il fodrais que la macro fasse un copier coller du code placé dans unde cellule de la feuille et le colle dans la case de l'aplication
par exemple en
A1
JANDB1
macro:
Sub BO()

Dim RetVal

RetVal = Shell('C:\\Applis\\Niveau1v12\\bonata2.cmd OP', 1) + COPIER COLLER A1

End Sub