Discussion :

[PadawanInPerl]

Bonjour,

je souhaiterais lancer des progammes présent sur mon pc depuis mon interface TK...du type word, excel ou openoffice, winanp etc...

si j'ai un bout de code comme cela, que dois-je dire à mon paramètre command ?? (si c'est bien là...)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
$fen->Button (
    -text => 'Ecrire - word',
    -command => sub { exit; },
    -background => 'blue',
    -foreground => 'white',
    -width => '20',
    -height=> '5'
)->grid()

Merci

[djibril]

Tel que ton code est écrit, un clique sur le bouton appel exit et ferme l'application. C'est à toi de mettre dans ton sub ce qu'il faut pour appeler le programme externe.

Exemple, sous windows.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
my $fichier_word = 'C:/toto.doc';
$fen->Button (
    -text => 'Ecrire - word',
    -command => [\&LancerWord, $fichier_word],
    -background => 'blue',
    -foreground => 'white',
    -width => '20',
    -height=> '5'
)->grid();
 
sub LancerWord {
  my $fichier = shift;
  system("start \"$fichier\"");
 
return;
}

[PadawanInPerl]

Merci beaucoup pour ta rapidité

je test ça, de suite !!!

merci a+

[PadawanInPerl]

pour le moment ça ne m'affiche qu'une fenêtre DOS...

Mais j'y travaille...Je reviendrais plus tard si vraiment je n'y arrive pas...

A+

[djibril]

Ou bien, fais ceci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

system("\"C:/Program Files/Microsoft Office/OFFICE11/WINWORD.exe\" toto.doc");

Tu localises les exécutables de word, excel etc et tu lances en dure comme dans l'exemple donné ci-dessus.

[PadawanInPerl]

Ou bien, fais ceci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

system("\"C:/Program Files/Microsoft Office/OFFICE11/WINWORD.exe\" toto.doc");

Tu localises les exécutables de word, excel etc et tu lances en dure comme dans l'exemple donné ci-dessus.

C'est tout bon...Merci beaucoup pour ton aide

[djibril]

N'oublie pas de mettre ton post en résolu la prochaine fois.