ouvrir un fichier exel avec un vbScript

Question

Bonjour a tous

Je cherche à faire apparaitre un explorateur pour que mes utilisateurs puissent choisir l'emplacement du fichier exel qui va etre traité par mon scripte.
Pour l'instant, je sais faire apparaitre une boite de dialogue et mes utilisateurs doivent entrer le chemin complet de l'emplacement du fichier exel a traité.
Es ce possible en VBS?

D'avance merci de vos réponces.
Nico

cs_JMO · Answer

Bonjour,

L'objet CommonDialog pourrait être une solution.

Exemple:
Option Explicit
Dim objDialog, objExcel, intResult

Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "Selectionner un fichier Excel|*.xls"
objDialog.FilterIndex = 1
objDialog.InitialDir = "F:" 
intResult = objDialog.ShowOpen

If intResult = 0 Then WScript.Quit

Set objExcel = CreateObject("Excel.Application")
objExcel.Workbooks.Open objDialog.FileName   
objExcel.Visible = True
objExcel.DisplayAlerts = False

MsgBox "Fichier ouvert",,objDialog.FileName 

objExcel.Quit 
Set objExcel = Nothing
Set objDialog = Nothing

jean-marc

Ouvrir un fichier exel avec un vbScript

1 réponse

Votre réponse

Discussions similaires