FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
En VBA, Comment peut on avoir la liste des feuilles d'un autre classeur sans l'ouvrir ?
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
En VBA, Comment peut on avoir la liste des feuilles d'un autre classeur sans
l'ouvrir ?
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
En VBA, Comment peut on avoir la liste des feuilles d'un autre classeur sans l'ouvrir ?
Merci d'avance pour votre aide. -- @+ David
DAH
Je ne trouve pas les réfénreces VBAProject à utiliser...
Je ne trouve pas les réfénreces VBAProject à utiliser...
Je ne trouve pas les réfénreces VBAProject à utiliser...
michdenis
Bonjour DAH,
Tu cherches ceci :
by Bill Manville '----------------------------------------- Here's a way to do it through ADO (ActiveX Data Objects) in Excel 2000. To use this code, you must first set a reference to "Microsoft ActiveX Data Objects 2.1 Library" and "Microsoft ADO Ext. 2.1 for DDL and Security".
Sub ReadSheetNames(TheCompleteFilePath As String) Dim cnn As New ADODB.Connection Dim cat As New ADOX.Catalog Dim tbl As ADOX.Table
cnn.Open "Provider=MSDASQL.1;Data Source=" _ & "Excel Files;Initial Catalog=" & TheCompleteFilePath cat.ActiveConnection = cnn For Each tbl In cat.Tables MsgBox Left$(tbl.Name, Len(tbl.Name) - 1) Next tbl
Set cat = Nothing cnn.Close Set cnn = Nothing End Sub '-----------------------------------------
Salutations!
"DAH" a écrit dans le message de news:bruf0k$2n8g$ Je ne trouve pas les réfénreces VBAProject à utiliser...
Bonjour DAH,
Tu cherches ceci :
by Bill Manville
'-----------------------------------------
Here's a way to do it through ADO (ActiveX Data Objects) in Excel
2000. To use this code, you must first set a reference to "Microsoft
ActiveX Data Objects 2.1 Library" and "Microsoft ADO Ext. 2.1 for DDL and
Security".
Sub ReadSheetNames(TheCompleteFilePath As String)
Dim cnn As New ADODB.Connection
Dim cat As New ADOX.Catalog
Dim tbl As ADOX.Table
cnn.Open "Provider=MSDASQL.1;Data Source=" _
& "Excel Files;Initial Catalog=" & TheCompleteFilePath
cat.ActiveConnection = cnn
For Each tbl In cat.Tables
MsgBox Left$(tbl.Name, Len(tbl.Name) - 1)
Next tbl
Set cat = Nothing
cnn.Close
Set cnn = Nothing
End Sub
'-----------------------------------------
Salutations!
"DAH" <dah@anti.spam.fr> a écrit dans le message de news:bruf0k$2n8g$1@biggoron.nerim.net...
Je ne trouve pas les réfénreces VBAProject à utiliser...
by Bill Manville '----------------------------------------- Here's a way to do it through ADO (ActiveX Data Objects) in Excel 2000. To use this code, you must first set a reference to "Microsoft ActiveX Data Objects 2.1 Library" and "Microsoft ADO Ext. 2.1 for DDL and Security".
Sub ReadSheetNames(TheCompleteFilePath As String) Dim cnn As New ADODB.Connection Dim cat As New ADOX.Catalog Dim tbl As ADOX.Table
cnn.Open "Provider=MSDASQL.1;Data Source=" _ & "Excel Files;Initial Catalog=" & TheCompleteFilePath cat.ActiveConnection = cnn For Each tbl In cat.Tables MsgBox Left$(tbl.Name, Len(tbl.Name) - 1) Next tbl
Set cat = Nothing cnn.Close Set cnn = Nothing End Sub '-----------------------------------------
Salutations!
"DAH" a écrit dans le message de news:bruf0k$2n8g$ Je ne trouve pas les réfénreces VBAProject à utiliser...
HD
Here's a way to do it through ADO (ActiveX Data Objects) in Excel 2000. To use this code, you must first set a reference to "Microsoft ActiveX Data Objects 2.1 Library" and "Microsoft ADO Ext. 2.1 for DDL and Security".
J'ai un 'Microsoft ActiveX Data Objets 1.5 Library' et un 'Microsoft ActiveX Data Objets Recordset 1.5 Library'... Mais je n'ai pas de 2.1... et avec les précédentes références j'ai une erreur sur la ligne: CreateObject("ADOX.Catalog").
Here's a way to do it through ADO
(ActiveX Data Objects) in Excel
2000. To use this code, you must
first set a reference to "Microsoft
ActiveX Data Objects 2.1 Library"
and "Microsoft ADO Ext. 2.1 for DDL
and Security".
J'ai un 'Microsoft ActiveX Data Objets 1.5 Library' et un 'Microsoft ActiveX
Data Objets Recordset 1.5 Library'... Mais je n'ai pas de 2.1... et avec les
précédentes références j'ai une erreur sur la ligne:
CreateObject("ADOX.Catalog").
Here's a way to do it through ADO (ActiveX Data Objects) in Excel 2000. To use this code, you must first set a reference to "Microsoft ActiveX Data Objects 2.1 Library" and "Microsoft ADO Ext. 2.1 for DDL and Security".
J'ai un 'Microsoft ActiveX Data Objets 1.5 Library' et un 'Microsoft ActiveX Data Objets Recordset 1.5 Library'... Mais je n'ai pas de 2.1... et avec les précédentes références j'ai une erreur sur la ligne: CreateObject("ADOX.Catalog").
HD
J'ai un 'Microsoft ActiveX Data Objets 1.5 Library' et un 'Microsoft ActiveX Data Objets Recordset 1.5 Library'... Mais je n'ai pas de 2.1... et avec les précédentes références j'ai une erreur sur la ligne: CreateObject("ADOX.Catalog").
Petites précisions je suis sous Windows98 avec Excel97...
J'ai un 'Microsoft ActiveX Data Objets 1.5 Library' et un 'Microsoft
ActiveX Data Objets Recordset 1.5 Library'... Mais je n'ai pas de
2.1... et avec les précédentes références j'ai une erreur sur la
ligne: CreateObject("ADOX.Catalog").
Petites précisions je suis sous Windows98 avec Excel97...
J'ai un 'Microsoft ActiveX Data Objets 1.5 Library' et un 'Microsoft ActiveX Data Objets Recordset 1.5 Library'... Mais je n'ai pas de 2.1... et avec les précédentes références j'ai une erreur sur la ligne: CreateObject("ADOX.Catalog").
Petites précisions je suis sous Windows98 avec Excel97...
Clément Marcotte
Va chercher la dernière version de MDAC:
http://www.microsoft.com/data
"HD" a écrit dans le message de news:bs6uu6$1ln1$
Here's a way to do it through ADO (ActiveX Data Objects) in Excel 2000. To use this code, you must first set a reference to "Microsoft ActiveX Data Objects 2.1 Library" and "Microsoft ADO Ext. 2.1 for DDL and Security".
J'ai un 'Microsoft ActiveX Data Objets 1.5 Library' et un 'Microsoft ActiveX
Data Objets Recordset 1.5 Library'... Mais je n'ai pas de 2.1... et avec les
précédentes références j'ai une erreur sur la ligne: CreateObject("ADOX.Catalog").
Va chercher la dernière version de MDAC:
http://www.microsoft.com/data
"HD" <hd@anti.spam.fr> a écrit dans le message de
news:bs6uu6$1ln1$1@biggoron.nerim.net...
Here's a way to do it through ADO
(ActiveX Data Objects) in Excel
2000. To use this code, you must
first set a reference to "Microsoft
ActiveX Data Objects 2.1 Library"
and "Microsoft ADO Ext. 2.1 for DDL
and Security".
J'ai un 'Microsoft ActiveX Data Objets 1.5 Library' et un 'Microsoft
ActiveX
Data Objets Recordset 1.5 Library'... Mais je n'ai pas de 2.1... et
avec les
précédentes références j'ai une erreur sur la ligne:
CreateObject("ADOX.Catalog").
Here's a way to do it through ADO (ActiveX Data Objects) in Excel 2000. To use this code, you must first set a reference to "Microsoft ActiveX Data Objects 2.1 Library" and "Microsoft ADO Ext. 2.1 for DDL and Security".
J'ai un 'Microsoft ActiveX Data Objets 1.5 Library' et un 'Microsoft ActiveX
Data Objets Recordset 1.5 Library'... Mais je n'ai pas de 2.1... et avec les
précédentes références j'ai une erreur sur la ligne: CreateObject("ADOX.Catalog").
HD
Je l'ai installé et maintenant j'ai le message
"Erreur d'execution '3706': Impossible de trouver le fournisseur. Il est peut-être mal installé." Sur la ligne:
