OVH Cloud OVH Cloud

exécuter un fichier quelconque à partir d'une macro

6 réponses
Avatar
coco le bo
Bonjour,

je voulais savoir s'il était possible, ou du moins quelle commande faut-il
lancer pour exécuter un fichier quelconque à partir d'une macro. En fait, je
voudrai juste imiter le double clique de la souris sur ledit fichier (si
c'est un fichier .doc, le fichier s'ouvre avec world, si c'est un xls, c'est
excel qui s'ouvre etc..), et le poste client se charge d'ouvrir le fichier
avec l'appli qu'il faut.

Voilà, je pense qu'il doit y avoir un truc du genre
execute(chemin_du_fichier).

Merci d'avance

6 réponses

Avatar
Michel HOLDERITH
Salut,
Veux-tu passer par l'ouverture d'excel ?
si oui
lors de l'ouverture du fichier il faut mettre des conditions et tester
toutes les extentions du fichier ouvert et passer par la commande shell.
@+
Michel.

"coco le bo" wrote in message
news:boares$mml$
Bonjour,

je voulais savoir s'il était possible, ou du moins quelle commande faut-il
lancer pour exécuter un fichier quelconque à partir d'une macro. En fait,
je

voudrai juste imiter le double clique de la souris sur ledit fichier (si
c'est un fichier .doc, le fichier s'ouvre avec world, si c'est un xls,
c'est

excel qui s'ouvre etc..), et le poste client se charge d'ouvrir le fichier
avec l'appli qu'il faut.

Voilà, je pense qu'il doit y avoir un truc du genre
execute(chemin_du_fichier).

Merci d'avance




Avatar
coco le bo
non je ne pas passer par l'ouverture d'excel

en fait j'utilise la commande dans ma macro

retval = Shell("c:tempessai.bat", 1)

ici ça marche nickel, il me lance une fenetre dos, et m'exécute mon fichier
bat

Maintenant si j'utilise
retval = Shell("c:tempessai.ppt", 1)
j'ai une une erreur 'Argument ou appel de procédure incorrect'

en fait la commande 'shell' exécute la commande sous dos non??


"Michel HOLDERITH" <#nospam# a écrit dans le message news:
#
Salut,
Veux-tu passer par l'ouverture d'excel ?
si oui
lors de l'ouverture du fichier il faut mettre des conditions et tester
toutes les extentions du fichier ouvert et passer par la commande shell.
@+
Michel.

"coco le bo" wrote in message
news:boares$mml$
Bonjour,

je voulais savoir s'il était possible, ou du moins quelle commande
faut-il


lancer pour exécuter un fichier quelconque à partir d'une macro. En
fait,


je
voudrai juste imiter le double clique de la souris sur ledit fichier (si
c'est un fichier .doc, le fichier s'ouvre avec world, si c'est un xls,
c'est

excel qui s'ouvre etc..), et le poste client se charge d'ouvrir le
fichier


avec l'appli qu'il faut.

Voilà, je pense qu'il doit y avoir un truc du genre
execute(chemin_du_fichier).

Merci d'avance








Avatar
Michel HOLDERITH
oui t'as raison. il faut d'abord faire un shell avec l'executable qui va
etre capable d'ouvrir ton fichier.
@+
Michel.

"coco le bo" wrote in message
news:bob2jh$rd2$
non je ne pas passer par l'ouverture d'excel

en fait j'utilise la commande dans ma macro

retval = Shell("c:tempessai.bat", 1)

ici ça marche nickel, il me lance une fenetre dos, et m'exécute mon
fichier

bat

Maintenant si j'utilise
retval = Shell("c:tempessai.ppt", 1)
j'ai une une erreur 'Argument ou appel de procédure incorrect'

en fait la commande 'shell' exécute la commande sous dos non??


"Michel HOLDERITH" <#nospam# a écrit dans le message news:
#
Salut,
Veux-tu passer par l'ouverture d'excel ?
si oui
lors de l'ouverture du fichier il faut mettre des conditions et tester
toutes les extentions du fichier ouvert et passer par la commande shell.
@+
Michel.

"coco le bo" wrote in message
news:boares$mml$
Bonjour,

je voulais savoir s'il était possible, ou du moins quelle commande
faut-il


lancer pour exécuter un fichier quelconque à partir d'une macro. En
fait,


je
voudrai juste imiter le double clique de la souris sur ledit fichier
(si



c'est un fichier .doc, le fichier s'ouvre avec world, si c'est un xls,
c'est

excel qui s'ouvre etc..), et le poste client se charge d'ouvrir le
fichier


avec l'appli qu'il faut.

Voilà, je pense qu'il doit y avoir un truc du genre
execute(chemin_du_fichier).

Merci d'avance












Avatar
coco le bo
super ça marche bien, même sur 97.

Grand merci



"Hervé" a écrit dans le message news:

Salut,
Et avec ShellExecute ? il recherche le programme associé au fichier.
Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hWnd As Long, ByVal lpszOp As _
String, ByVal lpszFile As String, ByVal lpszParams As String, _
ByVal lpszDir As String, ByVal FsShowCmd As Long) As Long

Sub Ouvrir()
ShellExecute 0, "open", "D:Mon document.doc", _
vbNullString, vbNullString, 1
End Sub
Hervé.

"coco le bo" a écrit dans le message news:
bob2jh$rd2$
non je ne pas passer par l'ouverture d'excel

en fait j'utilise la commande dans ma macro

retval = Shell("c:tempessai.bat", 1)

ici ça marche nickel, il me lance une fenetre dos, et m'exécute mon
fichier

bat

Maintenant si j'utilise
retval = Shell("c:tempessai.ppt", 1)
j'ai une une erreur 'Argument ou appel de procédure incorrect'

en fait la commande 'shell' exécute la commande sous dos non??


"Michel HOLDERITH" <#nospam# a écrit dans le message news:
#
Salut,
Veux-tu passer par l'ouverture d'excel ?
si oui
lors de l'ouverture du fichier il faut mettre des conditions et tester
toutes les extentions du fichier ouvert et passer par la commande
shell.



@+
Michel.

"coco le bo" wrote in message
news:boares$mml$
Bonjour,

je voulais savoir s'il était possible, ou du moins quelle commande
faut-il


lancer pour exécuter un fichier quelconque à partir d'une macro. En
fait,


je
voudrai juste imiter le double clique de la souris sur ledit fichier
(si



c'est un fichier .doc, le fichier s'ouvre avec world, si c'est un
xls,




c'est
excel qui s'ouvre etc..), et le poste client se charge d'ouvrir le
fichier


avec l'appli qu'il faut.

Voilà, je pense qu'il doit y avoir un truc du genre
execute(chemin_du_fichier).

Merci d'avance
















Avatar
Hervé
Salut,
Et avec ShellExecute ? il recherche le programme associé au fichier.
Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hWnd As Long, ByVal lpszOp As _
String, ByVal lpszFile As String, ByVal lpszParams As String, _
ByVal lpszDir As String, ByVal FsShowCmd As Long) As Long

Sub Ouvrir()
ShellExecute 0, "open", "D:Mon document.doc", _
vbNullString, vbNullString, 1
End Sub
Hervé.

"coco le bo" a écrit dans le message news:
bob2jh$rd2$
non je ne pas passer par l'ouverture d'excel

en fait j'utilise la commande dans ma macro

retval = Shell("c:tempessai.bat", 1)

ici ça marche nickel, il me lance une fenetre dos, et m'exécute mon
fichier

bat

Maintenant si j'utilise
retval = Shell("c:tempessai.ppt", 1)
j'ai une une erreur 'Argument ou appel de procédure incorrect'

en fait la commande 'shell' exécute la commande sous dos non??


"Michel HOLDERITH" <#nospam# a écrit dans le message news:
#
Salut,
Veux-tu passer par l'ouverture d'excel ?
si oui
lors de l'ouverture du fichier il faut mettre des conditions et tester
toutes les extentions du fichier ouvert et passer par la commande shell.
@+
Michel.

"coco le bo" wrote in message
news:boares$mml$
Bonjour,

je voulais savoir s'il était possible, ou du moins quelle commande
faut-il


lancer pour exécuter un fichier quelconque à partir d'une macro. En
fait,


je
voudrai juste imiter le double clique de la souris sur ledit fichier
(si



c'est un fichier .doc, le fichier s'ouvre avec world, si c'est un xls,
c'est

excel qui s'ouvre etc..), et le poste client se charge d'ouvrir le
fichier


avec l'appli qu'il faut.

Voilà, je pense qu'il doit y avoir un truc du genre
execute(chemin_du_fichier).

Merci d'avance












Avatar
Denis Michon
Bonjour Coco le bo,

Voici un exemple avec un fichier word tu fais la même chose mais avec powerpoint

Sub OuvreFichier()
Shell "C:Program FilesMicrosoft OfficeOffice10WINWORD.EXE C:exceltest1.doc", vbMaximizedFocus
AppActivate "Microsoft Word"
End Sub



Salutations!


"coco le bo" a écrit dans le message de news:bob2jh$rd2$
non je ne pas passer par l'ouverture d'excel

en fait j'utilise la commande dans ma macro

retval = Shell("c:tempessai.bat", 1)

ici ça marche nickel, il me lance une fenetre dos, et m'exécute mon fichier
bat

Maintenant si j'utilise
retval = Shell("c:tempessai.ppt", 1)
j'ai une une erreur 'Argument ou appel de procédure incorrect'

en fait la commande 'shell' exécute la commande sous dos non??


"Michel HOLDERITH" <#nospam# a écrit dans le message news:
#
Salut,
Veux-tu passer par l'ouverture d'excel ?
si oui
lors de l'ouverture du fichier il faut mettre des conditions et tester
toutes les extentions du fichier ouvert et passer par la commande shell.
@+
Michel.

"coco le bo" wrote in message
news:boares$mml$
Bonjour,

je voulais savoir s'il était possible, ou du moins quelle commande
faut-il


lancer pour exécuter un fichier quelconque à partir d'une macro. En
fait,


je
voudrai juste imiter le double clique de la souris sur ledit fichier (si
c'est un fichier .doc, le fichier s'ouvre avec world, si c'est un xls,
c'est

excel qui s'ouvre etc..), et le poste client se charge d'ouvrir le
fichier


avec l'appli qu'il faut.

Voilà, je pense qu'il doit y avoir un truc du genre
execute(chemin_du_fichier).

Merci d'avance