Vbs
Résolu
dodo1309
Messages postés
218
Date d'inscription
mercredi 17 mai 2006
Statut
Membre
Dernière intervention
30 mai 2011
-
24 août 2007 à 22:32
dodo1309 Messages postés 218 Date d'inscription mercredi 17 mai 2006 Statut Membre Dernière intervention 30 mai 2011 - 25 août 2007 à 11:13
dodo1309 Messages postés 218 Date d'inscription mercredi 17 mai 2006 Statut Membre Dernière intervention 30 mai 2011 - 25 août 2007 à 11:13
2 réponses
cs_JMO
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
27
24 août 2007 à 23:53
24 août 2007 à 23:53
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
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
dodo1309
Messages postés
218
Date d'inscription
mercredi 17 mai 2006
Statut
Membre
Dernière intervention
30 mai 2011
25 août 2007 à 11:13
25 août 2007 à 11:13
merci
