sos_overture d'un fichier x.exe à l'aide de VBA

[elhich]

salut forum
je suis bloqué j'arrive pas à appeller un fichier exucutable c'est à dire un fichier possède l'extension ".exe" à l'aide de vba
merci pour tous le monde!

 

[Sebb]

Salut
je pensais qu'on pouvoir créer un hyperlien par exemple pour ouvrir un fichier exe mais ca ne marche pas ...

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"C:\WINNT\TASKMAN.EXE"

désolé de t'apporter quelque chose qui ne marche pas en fait ...
je post quand même pour savoir si on peut tout de même faire quelque chose à partir de ça
a+

 

[@Christophe@]

Bonjour,

Voici pour toi,

Voici la syntax:
Shell(pathname[,windowstyle])
Shell "Chemin\fichier", Style de la fenetre


Le paramètre Style de la fenetre est optionnel.

Exemple : Shell "C:\WINDOWS\NOTEPAD.EXE", vbMaximizedFocus

@Christophe@
Bonne journée

 

[Sebb]

Re

bien vu @Christophe@ !
simple et efficace

 

[elhich]

merci
ça fonctionne correctement
mais ce fichier est excutable sur le DOS et necessite des parametres ,comment je procède pour introduire les parametre à partir des cellules excel?

 

[Sebb]

je vais rajouter les options d'ouverture :

vbMaximizedFocus : agrandi
vbMinimizedFocus : réduit mais est active
vbMinimizedNoFocus : réduit et non active
vbNormalFocus : taille normale et active
vbNormalNoFocus : taille normale non active

 

[Sebb]

Pour introduire les paramètres à partir d'excel, tu utilises une variable pour prendre le chemin

Sub MaKro()
chemin = ThisWorkbook.Sheets("feuil1").Range("a1").Value
Shell chemin, vbNormalFocus
End Sub

 

[elhich]

merci Sebbnon c'est pas ça

voila ,je cherche à zipper des fichiers à l'aide de PKzip.exe
mais cette application possède comme parametre non_fichier_zip et la liste des fichiers à zipper
comment peux -je les introduire à l'aide de VBA?
merci

 

[yeahou]

Salut elhich, @christophe@, sebb, le forum

elhich, cette macro fonctionne, cela devrait te guider

Sub essai()
Dim Pkzip As String, FichZip As String, FichOri As String
Pkzip = "c:\windows\pkzip.exe" 'exe avec chemin
FichZip = "c:\windows\Test.zip" 'zip avec chemin
FichOri = "c:\windows\aoc.bmp" 'fichiers à zipper, génériques possibles
Shell Pkzip & " " & FichZip & " " & FichOri, vbNormalFocus
End Sub

Cordialement, A+