Ouvrir fichier xls dans un shell

Question

Salut,

Dans un programme VB, je souhaite automatiser l'ouverture d'un fichier xls le plus simplement possible. Pour cela je pensais écrire une commande shell:

Shell ("G:\Tempo	oto.xls")
ou
Shell ("excel G:\Tempo	oto.xls")

mais je me suis rendu compte qu'il fallait mettre le chemin complet et en dur de l'exécutable excel.exe:

Shell ("C:\Program Files\Microsoft Office\Office10\excel.exe G:\Tempo	oto.xls")

Le problème est que mon VB doit tourner sur des postes hétérogènes en terme d'installation et par conséquent le chemin du fichier excel.exe n'est pas toujours le même.
Est-ce que quelqu'un aurait une solution simple à me proposer?

Merci par avance.

cs_ITALIA · Answer

je ne fais pas comme ca :

avant tous dans Projet...Références cocher la case Microsoft excel 8.0  Object Library ou une autre plus récentes...

ensuite dans ton code :

Dim xlBook As Excel.Workbook
Dim xlApp As Excel.Application

CheminFichier="C:\Italia\Italia.xls"

Set xlApp = New Excel.Application
With xlApp
xlBook = .Workbooks.Open(FileName:=CheminFichier, ReadOnly:=False, Editable:=True) ' Français
End With
xlApp.Visible = True

It@li@

Ouvrir fichier xls dans un shell

1 réponse

Discussions similaires