AppActivate "microsoft excel" Probleme

[Jeremyy]

bonjour a tous,

j'ai un probleme sur cette ligne :

AppActivate "microsoft excel"

Cela fonctionne sous Windows 2000 mais pas sous VISTA !

Je ne comprend pas pourquoi??

Merci d'avance a tous

 

[skoobi]

Re : AppActivate "microsoft excel" Probleme

Bonjour Jeremyy,

Je n'ais pas VISTA mais test ceci dans la fenêtre execution (Ctrl+G dans VBE):

?application.Name

Et récupère le résultat dans le code.
Sans garantie.

 

[vbacrumble]

Re : AppActivate "microsoft excel" Probleme

Bonsoir tous

Issu de l'aide d'Excel 2000

Sub test()
Dim ReturnValue

' Vous pouvez également utiliser la valeur renvoyée par la
' fonction Shell.
ReturnValue = Shell("C:\Program Files\Microsoft Office\Office\EXCEL.EXE", 1)   ' Exécute Microsoft Excel.
AppActivate ReturnValue    ' Active Microsoft Excel.

End Sub

Test OK sur un PC équipé de Vista.