Ouvrir fichier xls dans un shell

Signaler
Messages postés
3
Date d'inscription
vendredi 15 novembre 2002
Statut
Membre
Dernière intervention
19 mai 2005
-
Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
30 juin 2009
-
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\toto.xls")
ou
Shell ("excel G:\Tempo\toto.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\toto.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.

1 réponse

Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
30 juin 2009
8
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@