Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

fonction Shell

7 réponses
Avatar
Nicolas
bonjour,
lorsque j'utilise le code suivant:
SourceFile = "D:\Appli\GRGE 2009.xls"
Call Shell("Explorer.exe /n,/e," & SourceFile & "", 1)
le fichier s'ouvre mais pas dans Excel.

lorsque je remplace Explorer.exe par Excel.exe j'ai des messages
d'erreur m'empêchant d'ouvrir mon fichier.

que dois-je modifier pour arriver à ouvrir ce fichier .xls avec Excel

d'avance merci

7 réponses

Avatar
3stone
Salut,

Nicolas wrote:
bonjour,
lorsque j'utilise le code suivant:
SourceFile = "D:AppliGRGE 2009.xls"
Call Shell("Explorer.exe /n,/e," & SourceFile & "", 1)
le fichier s'ouvre mais pas dans Excel.

lorsque je remplace Explorer.exe par Excel.exe j'ai des messages
d'erreur m'empêchant d'ouvrir mon fichier.

que dois-je modifier pour arriver à ouvrir ce fichier .xls avec Excel

d'avance merci



Regarde ceci :
http://www.mvps.org/accessfr/apis/api0018.htm

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
Avatar
Nicolas
salut 3Stone,
merci pour ta réponse
désolé, cette page (http://www.mvps.org/accessfr/apis/api0018.htm)
n'indique rien
je suis allé sur l'autre page
(http://www.3stone.be/access/articles.php?lng=fr&pg0) indiquée mais
la procédure écrite est compliquée.
n'y a t-il pas un code plus facile pour régler mon pb ci-dessous??
merci

3stone a écrit :
Salut,

Nicolas wrote:
bonjour,
lorsque j'utilise le code suivant:
SourceFile = "D:AppliGRGE 2009.xls"
Call Shell("Explorer.exe /n,/e," & SourceFile & "", 1)
le fichier s'ouvre mais pas dans Excel.

lorsque je remplace Explorer.exe par Excel.exe j'ai des messages
d'erreur m'empêchant d'ouvrir mon fichier.

que dois-je modifier pour arriver à ouvrir ce fichier .xls avec Excel

d'avance merci



Regarde ceci :
http://www.mvps.org/accessfr/apis/api0018.htm



Avatar
Michel__D
Bonjour,

Essaye avec ce qui suit :

Dim oSh AS Object
Dim SourceFile AS String

SourceFile = "D:AppliGRGE 2009.xls"
Set oSh = CreateObject("WScript.Shell")
oSh.Run SourceFile
Set oSh = Nothing


PS:Il faut bien entendu que l'extension .xls soit associé à excel.

Nicolas a écrit :
salut 3Stone,
merci pour ta réponse
désolé, cette page (http://www.mvps.org/accessfr/apis/api0018.htm)
n'indique rien
je suis allé sur l'autre page
(http://www.3stone.be/access/articles.php?lng=fr&pg0) indiquée mais
la procédure écrite est compliquée.
n'y a t-il pas un code plus facile pour régler mon pb ci-dessous??
merci

3stone a écrit :
Salut,

Nicolas wrote:
bonjour,
lorsque j'utilise le code suivant:
SourceFile = "D:AppliGRGE 2009.xls"
Call Shell("Explorer.exe /n,/e," & SourceFile & "", 1)
le fichier s'ouvre mais pas dans Excel.

lorsque je remplace Explorer.exe par Excel.exe j'ai des messages
d'erreur m'empêchant d'ouvrir mon fichier.

que dois-je modifier pour arriver à ouvrir ce fichier .xls avec Excel

d'avance merci



Regarde ceci :
http://www.mvps.org/accessfr/apis/api0018.htm





Avatar
Michel__D
Re,

Et comme il y a un espace dans le nom de fichier, il faut utiliser ceci :

SourceFile = """D:AppliGRGE 2009.xls"""


Michel__D a écrit :
Bonjour,

Essaye avec ce qui suit :

Dim oSh AS Object
Dim SourceFile AS String

SourceFile = "D:AppliGRGE 2009.xls"
Set oSh = CreateObject("WScript.Shell")
oSh.Run SourceFile
Set oSh = Nothing


PS:Il faut bien entendu que l'extension .xls soit associé à excel.

Nicolas a écrit :
salut 3Stone,
merci pour ta réponse
désolé, cette page (http://www.mvps.org/accessfr/apis/api0018.htm)
n'indique rien
je suis allé sur l'autre page
(http://www.3stone.be/access/articles.php?lng=fr&pg0) indiquée mais
la procédure écrite est compliquée.
n'y a t-il pas un code plus facile pour régler mon pb ci-dessous??
merci

3stone a écrit :
Salut,

Nicolas wrote:
bonjour,
lorsque j'utilise le code suivant:
SourceFile = "D:AppliGRGE 2009.xls"
Call Shell("Explorer.exe /n,/e," & SourceFile & "", 1)
le fichier s'ouvre mais pas dans Excel.

lorsque je remplace Explorer.exe par Excel.exe j'ai des messages
d'erreur m'empêchant d'ouvrir mon fichier.

que dois-je modifier pour arriver à ouvrir ce fichier .xls avec Excel

d'avance merci



Regarde ceci :
http://www.mvps.org/accessfr/apis/api0018.htm







Avatar
3stone
Salut,

Nicolas wrote:
salut 3Stone,
merci pour ta réponse
désolé, cette page (http://www.mvps.org/accessfr/apis/api0018.htm)
n'indique rien




Si, mais elle est "optimisée" Internet Explorer :-((
Si tu utilise FF, installe l'extention "IE Tab".


je suis allé sur l'autre page
(http://www.3stone.be/access/articles.php?lng=fr&pg0) indiquée mais
la procédure écrite est compliquée.
n'y a t-il pas un code plus facile pour régler mon pb ci-dessous??



Ce n'est pas "compliqué" ;-)
Il suffit de coller cela dans un module et tu l'appelles d'où tu veux.
Et cela à le mérite de fonctionner sur toutes les versions.

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
Avatar
Nicolas
3stone a écrit :
Salut,

Nicolas wrote:
salut 3Stone,
merci pour ta réponse
désolé, cette page (http://www.mvps.org/accessfr/apis/api0018.htm)
n'indique rien




Si, mais elle est "optimisée" Internet Explorer :-((
Si tu utilise FF, installe l'extention "IE Tab".


je suis allé sur l'autre page
(http://www.3stone.be/access/articles.php?lng=fr&pg0) indiquée mais
la procédure écrite est compliquée.
n'y a t-il pas un code plus facile pour régler mon pb ci-dessous??



Ce n'est pas "compliqué" ;-)
Il suffit de coller cela dans un module et tu l'appelles d'où tu veux.
Et cela à le mérite de fonctionner sur toutes les versions.



effectivement, merci pour ces conseils
Avatar
Nicolas
Michel__D a écrit :
Re,

Et comme il y a un espace dans le nom de fichier, il faut utiliser ceci :

SourceFile = """D:AppliGRGE 2009.xls"""


Michel__D a écrit :
Bonjour,

Essaye avec ce qui suit :

Dim oSh AS Object
Dim SourceFile AS String

SourceFile = "D:AppliGRGE 2009.xls"
Set oSh = CreateObject("WScript.Shell")
oSh.Run SourceFile
Set oSh = Nothing


PS:Il faut bien entendu que l'extension .xls soit associé à excel.

Nicolas a écrit :
salut 3Stone,
merci pour ta réponse
désolé, cette page (http://www.mvps.org/accessfr/apis/api0018.htm)
n'indique rien
je suis allé sur l'autre page
(http://www.3stone.be/access/articles.php?lng=fr&pg0) indiquée
mais la procédure écrite est compliquée.
n'y a t-il pas un code plus facile pour régler mon pb ci-dessous??
merci

3stone a écrit :
Salut,

Nicolas wrote:
bonjour,
lorsque j'utilise le code suivant:
SourceFile = "D:AppliGRGE 2009.xls"
Call Shell("Explorer.exe /n,/e," & SourceFile & "", 1)
le fichier s'ouvre mais pas dans Excel.

lorsque je remplace Explorer.exe par Excel.exe j'ai des messages
d'erreur m'empêchant d'ouvrir mon fichier.

que dois-je modifier pour arriver à ouvrir ce fichier .xls avec Excel

d'avance merci



Regarde ceci :
http://www.mvps.org/accessfr/apis/api0018.htm









merci pour ces conseils