Vbs [Résolu]

Signaler
Messages postés
218
Date d'inscription
mercredi 17 mai 2006
Statut
Membre
Dernière intervention
30 mai 2011
-
Messages postés
218
Date d'inscription
mercredi 17 mai 2006
Statut
Membre
Dernière intervention
30 mai 2011
-
Bonsoir

Je cherche comment ajouter la référence "microsoft excel object library" dans un ficher vbs

merci d'avane

@+

2 réponses

Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
26
 Bonsoir à tous

Rien à déclarer en vbs.
Exemple d'Excel:

Path = "D:\test_computer_excel.xls"

MsgBox FnListeClasseur(Path),,"liste des onglets du classeur " & path

Function FnListeClasseur(strPath)
Dim objExcel, objClasseur
Set objExcel=CreateObject("Excel.Application")
Set objClasseur=objExcel.WorkBooks.Open(strPath)

objExcel.DisplayAlerts=False 
objExcel.Application.Visible=False

For i=1 To objClasseur.Sheets.Count
    onglets = onglets &vbCrLf& objClasseur.Path &vbTab& _
              objClasseur.Name &Space(5)& objClasseur.Sheets(i).Name
   
Next

objExcel.ActiveWorkbook.Close
objExcel.DisplayAlerts=True
objExcel.Application.Visible=True
Set objExcel = Nothing
Set objClasseur = Nothing
FnListeClasseur = onglets
End Function

jean-marc
Messages postés
218
Date d'inscription
mercredi 17 mai 2006
Statut
Membre
Dernière intervention
30 mai 2011

merci