Discussion :

[jmfmarques]

Ce n'est pas ce que l'on trouve dans l'aide en ligne, précisément pour ouvrir Word.
Alors : une seule question et une seule réponse : As-tu ou non l'aide en ligne ?
Si oui : montre-nous l'exemple que tu trouves dans AppActivate
Si non : dis-nous pourquoi tu ne l'as pas ?

[misterbenj]

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim MyAppID, ReturnValue
AppActivate "Microsoft Word"	' Active Microsoft 
										' Word.
 
' Vous pouvez également utiliser la valeur renvoyée 
' par la fonction Shell.
' Exécute Microsoft Excel.
ReturnValue = Shell("c:\EXCEL\EXCEL.EXE",1)
AppActivate ReturnValue	' Active Microsoft 
								' Excel.

[jmfmarques]

1)

ReturnValue = Shell("c:\EXCEL\EXCEL.EXE",1)

qui ne figurait pas dans ton message précédent, est important.

2) il convient, chez toi, de remplacer le chemin "c:\EXCEL\EXCEL.EXE" par celui qui prévaut sur ta machine.

EDIT : Je m'aperçois de ce que, dans ce même sujet, Silky Road t'a déjà fourni 3 syntaxes possibles de lancement d'une application...

[misterbenj]

je te remerci et désolé mai g un peu de mal pour cella je sui novice et appren par moi meme ce qui est pas tjs evident en plus je n'ai pas bcp le tps sur mon pc a cause de mes etudes

merci

[misterbenj]

Donc pour etre sur c bien sa

Code :

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

1
2
3
4
5
Private Sub Command1_Click()
Dim MyAppID, ReturnValue
AppActivate "Microsoft Word"
ReturnValue = Shell("C:\Program Files\Microsoft Office\Office10", 1)
End Sub

[jmfmarques]

C:\Program Files\Microsoft Office\Office10

?
Mets ça dans Démarrer ===>> exécuter et lance :
Si ça marche, c'est ça... si ça ne marche pas, ce n'est plus un problème VB mais ... le tien... et c'est sur l'étude de Windows que tu devras te pencher un peu.

[misterbenj]

sorry g oublie de mettre la fin \winwor.exe

[jmfmarques]

Et, pendant que nous y sommes :

Code :

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

1
2
3
4
5
Private Sub Command1_Click() 
Dim MyAppID, ReturnValue 
AppActivate "Microsoft Word" 
ReturnValue = Shell("C:\Program Files\Microsoft Office\Office10", 1) 
End Sub

ne veut pas dire grand chose... et doit s'écrire ainsi :

Code :

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

1
2
3
4
5
Private Sub Command1_Click() 
  Dim MyAppID
  MyAppID = Shell("................................................")
  AppActivate MyAppId 
End Sub

si tu as besoin, plus loin, de travailler en invoquant MyAppId, sinon, tu peux carément supprimer la ligne :
AppActivate MyAppId