lancer un application a partir d excel

[bob]

bonjour
je souhaite que lorsque je click sur un bouton excel lance (ou click sur) un fichier .bat qui se trouve dans le meme repertoir que ma spreadsheet.
ciao ciao

 

[ERIC S]

Bonjour

je ne sais pas si cela pourra t'aider mais code si dessous permet d'ouvrir un fichier word (après sélection) dans sous-répertoire

'Sélection de la lettre type utilisée pour le mailing
'ouverture de fichier .doc
ChDir (répertoire & '\\LETTRES TYPE')

Ouvrir = Application.GetOpenFilename(filefilter:='Lettres type (*.doc),*.doc', Title:='Sélection d'une lettre type')
If Ouvrir = False Then
MsgBox 'aucun fichier sélectionné', vbOKOnly + vbCritical, 'fin de procédure '
Sheets('Accueil').Select
Exit Sub
End If
ThisWorkbook.FollowHyperlink Ouvrir

Application.ScreenUpdating = False

A+

 

[Jam]

Salut bob, ERIC,

'Lance Filezilla (FTP)
Sub Bouton_Quandclick()
shell 'c:/program files/filezilla/filezilla.exe'
End sub

Bon courage

Message édité par: jam, à: 12/04/2006 15:25

 

[bob]

salu
j fais ca
Shell (ActiveWorkbook.Path + '\\test.bat')

le .bat que j veux ouvrir et ma spreadsheet sont dans le meme dossier et pourtant rien ne se passe je ne recois meme pas de message d erreur

que dois j faire :S

 

[Bernard_XLD]

Bonjour Bob, ericS, Jam

fais plutôt comme cela
le bat s'exécutera mais ne restera pas ouvert
pour vérifier l'exécution, tu peux par exemple mettre
start notepad
dans ton bat, cela lancera le bloc notes

A+

Shell ActiveWorkbook.Path & '\\test.bat'