LanceAppli => chemin absolu de Word ?

**notar** · 02/05/2013, 12h44

Bonjour,
tout est dans le titre. Je cherche comment faire pour, dans la fonction LanceAppli(), pouvoir lui indiquer le chemin absolu de Word (entre autres). Je dois être stupide mais ça fait un bon moment que je cherche et je ne trouve pas de solution. Et le problème c'est que :
1/ Word n'est pas installé au même endroit en fonction des versions
2/ LanceAppli veut un chemin absolu.

Si vous pouviez me dépanner, je vous en serais très reconnaissant.

**DonkeyPuncher** · 02/05/2013, 13h11

Hello,

Avec Word et office en général le chemin absolu est de la forme :

C:\Program Files\Microsoft Office\OfficeX\WINWORD.EXE

Avec X le numéro de la version.

Tu peux donc à la place du X mettre un entier que tu changes selon la version que tu veux utiliser, comme cela (ici pour 14) :

Code :

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

1
2
nVersion est un entier = 14
LanceAppli("C:\Program Files\Microsoft Office\Office"+nVersion+"\WINWORD.EXE")

Après tu peux même faire saisir si besoin le numéro de version, ou faire une boucle, un SI pour tester laquelle est la bonne etc ...

**mail.spam** · 02/05/2013, 13h39

Bonjour,

Je ne sais plus si la fonction LanceAppliAssociée existe en W7.5 si elle existe tu peux essayé ça

LanceAppliAssociée("Winword.exe")

**notar** · 02/05/2013, 13h57

Merci à tous les deux
1/ DonkeyPuncher
Oui, dans le cas de Microsoft Office ça semble logique mais pour une autre appli je ne sais pas si le chemin serait unique et je ne vois pas comment je pourrai coder une fonction qui me retrouve le chemin absolu comme on peux avoir avec du php par exemple.

2/ mail.spam
Oui, avant j'utilisais LanceAppliAssociée() mais cette fonction n'est pas bloquante et comme sur mon appli je génère de 1 à 28 documents Word de taille très différentes qui vont chercher des infos dans un .ini, je ne peux pas me permettre de mettre un timer unique. Soit mon timer serait beaucoup trop long pour un Word très court, soit il risque d'être trop court pour un Word de plusieurs pages.
Il semblerait que PcSoft dans LanceAppliAssociée() trouve bien le chemin absolu ....mais comment font-ils ??

Si vous avez d'autres idées..................je suis preneur.
Merci encore

**mail.spam** · 02/05/2013, 14h40

On ne sait jamais mais tu peux essayé de faire des recherches à partir de la base de registre.

EDIT :

Par les objets OLE j'ai trouvé une solution.
Il faudra la tester un peu mais chez moi ça marche

Code :

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

1
2
3
4
5
6
7
OLEWord est un objet OLE dynamique
sPath est une chaîne
OLEWord = allouer un objet OLE "Word.Application"
sPath = OLEWord>>path
libérer OLEWord
 
LanceAppli(ComplèteRep(sPath)+"Winword.exe")

**notar** · 02/05/2013, 14h58

Bon sang! je suis très très c......!
elle existe la fonction ; c'est fExtraitChemin()
il suffit de mettre le nom de l'exe et le paramètre ; comme ceci:

Code :

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

NomChemin est une chaîne =fExtraitChemin("winword.exe",fRépertoire)

et cela me renvoie bien

Code :

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

C:\Program Files\Microsoft Office\Office14\WINWORD.EXE

merci de votre aide

**mail.spam** · 02/05/2013, 15h25

Bonjour,

Chez moi (Winows 7 64 bits) ça ne me retourne rien.
si je fais

Code :

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

1
2
NomChemin est une chaîne =fExtraitChemin("winword.exe",fDisque+fRépertoire+fFichier+fExtension)
Trace(NomChemin)

j'obtiens

winword.exe

**notar** · 02/05/2013, 15h37

il est vrai que je suis sous xp.
et j'ai pas les suivants w7 w8 donc je ne peux pas vérifier.
et m...e!
je pensais avoir résolu mon problème................
merci encore

**mail.spam** · 02/05/2013, 15h48

Et avec mon code OLE (voir plus haut) ça ne marche pas?

**laurent30s** · 02/05/2013, 15h54

Quand je reproduit ton code j'obtiens rien

Code :

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

1
2
sNomChemin est une chaîne =fExtraitChemin("winword.exe",fRépertoire)
Info(sNomChemin)

Quand je reproduit celui de Sylvain, comme lui j'obtiens "winword.exe"

Code :

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

1
2
NomChemin est une chaîne =fExtraitChemin("winword.exe",fDisque+fRépertoire+fFichier+fExtension)
Info(NomChemin)

donc je ne pense pas que tu as solutionné ton problème hélas...

j'aurai tendance à penser comme Sylvain que la solution se trouve dans la base de registre...

EDIT :

il y a une contribution sur le sujet
http://www.developpez.net/forums/d11...nsion-fichier/

je n'ai pas tester, mais si ça peut t'aider...

**mail.spam** · 02/05/2013, 16h09

Envoyé par mail.spam

Par les objets OLE j'ai trouvé une solution.
Il faudra la tester un peu mais chez moi ça marche

Code :

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

1
2
3
4
5
6
7
OLEWord est un objet OLE dynamique
sPath est une chaîne
OLEWord = allouer un objet OLE "Word.Application"
sPath = OLEWord>>path
libérer OLEWord
 
LanceAppli(ComplèteRep(sPath)+"Winword.exe")

Est-ce que quelqu'un peux me dire si ça marche?