Importer noms feuilles d'un classseur fermé

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Importer noms feuilles d'un classseur fermé

seagull6

Bonjour,
J'ai besoin d'importer la liste des noms de feuilles de mon classeur fermé dans des cellules de mon classeur ouvert et pour cela j'ai fait ceci (je n'ai rien inventé...)

Code :

Private Sub CommandButton1_Click()
Dim XlConnect As Object, XlCatalog As Object
Dim Fichier As String, Resultat As String
Dim Feuille As Object
Dim objCell As Range
Fichier = "h:\monfichierferme.xls"
Set XlConnect = CreateObject("ADODB.Connection" )
Set XlCatalog = CreateObject("ADOX.Catalog" )
XlConnect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Fichier & _
";Extended Properties=Excel 8.0;"
Set XlCatalog.ActiveConnection = XlConnect
Cells(1, 1).Select
'je ne récupére que les noms qui se terminent par "$"
For Each Feuille In XlCatalog.Tables
If UCase(Right(Feuille.Name, 1)) = "$" Then
ActiveCell = Feuille.Name
'et suprime le "$"
For Each objCell In Selection
If Right(objCell.Value, 1) = "$" Then
objCell.Value = Left(objCell.Value, Len(objCell.Value) - 1)
End If
Next objCell
ActiveCell.Offset(1, 0).Select
End If
Next
End Sub

ce code fonctionne parfaitement sous excel 2003 ou 2010 mais bug sous 2000 avec un message d'erreur:
"projet ou bibliothéque introuvable" et surligne de cette façon la ligne

If UCase(Right(Feuille.Name, 1)) = "$" Then

que me faut-il modifier pour que cela fonctionne svp ?
s' agit-il de Microsoft office 11.0 object library coché d'un coté et Microsoft office 9.0 object library de l'autre dans les références ?
puis-je contourner le pobléme ?

Un grand merci pour vos réponses

Publicité

vave

Nice to meet me

Bonjour,
Tu as mis Right en gras, c'est lui qui pose problème ?
Si c'est le cas, essaye en remplaçant Right par vba.Right.

Sinon, essaye de voir qu'est-ce qui pose problème sur ta ligne en la remplaçant à chaque fois comme ça :
1) If Feuille.Name = "$" Then
2) If Right(Feuille.Name, 1) = "$" Then
3) If UCase(Feuille.Name) = "$" Then

Par élimination, tu saura ce qui pose problème.

---------------
Bel ours Vave, je me dois de l’admettre. -Skyl"win"- Mais toi tu es intelligent -Homerde- - Ce génie -SkylWINd- JDD S16M72 10:43:46 GMT-DTC +1

seagull6

Bonjour,
Merci oovaveoo , au final je suis arrivé à ce résultat qui fonctionne dans tous les cas de figure.
reste un cas particulier à gérer qui est le suivant:
quand je lance ma macro fichier fermé tout est ok et j'ai bien la liste des feuilles visibles avec leur nom propre par contre si d'aventure le fichier se trouve être ouvert alors viennent aussi s'ajouter les feuilles cachées(en hidden), ce que je ne souhaite pas.

Code :

Private Sub CommandButton1_Click()
Dim XlConnect As Object, XlCatalog As Object
Dim Fichier As String, Resultat As String
Dim Feuille As Object
Fichier = "h:\monfichierferme.xls"
Set XlConnect = CreateObject("ADODB.Connection" )
Set XlCatalog = CreateObject("ADOX.Catalog" )
XlConnect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Fichier & _
";Extended Properties=Excel 8.0;"
Set XlCatalog.ActiveConnection = XlConnect
Cells(1, 1).Select
'je teste si le nom de chaque feuille se termine par $ ou par $' et si oui l'importe dans ma ellule
For Each Feuille In XlCatalog.Tables
If UCase(Right(Feuille.Name, 1)) = "$" Or UCase(Right(Feuille.Name, 2)) = "$'" Then
ActiveCell.Value = nom
ActiveCell = Feuille.Name
'je reprend chaque valeur et si elle se termine par $ je suprime 1 caractére à la fin
'si elle se termine par $' je suprime 2 caractéres à la fin
Dim objCell As Range
For Each objCell In Selection
If Right(objCell.Value, 1) = "$" Then
objCell.Value = Left(objCell.Value, Len(objCell.Value) - 1)
End If
If Right(objCell.Value, 2) = "$'" Then
objCell.Value = Left(objCell.Value, Len(objCell.Value) - 2)
End If
Next objCell
ActiveCell.Offset(1, 0).Select
End If
Next
End Sub

:hello:

vave

Nice to meet me

Tu peux tester si la feuille est visible :

Code :

if sheets(Feuille.Name).visible then

---------------
Bel ours Vave, je me dois de l’admettre. -Skyl"win"- Mais toi tu es intelligent -Homerde- - Ce génie -SkylWINd- JDD S16M72 10:43:46 GMT-DTC +1

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Importer noms feuilles d'un classseur fermé

Sujets relatifs
imprimer des feuilles excel générées à partir d'une liste de données	[VBA] Macro pour manipuler des valeurs entre 3 feuilles d'un classeur
Incrémenter les noms de variables (var1, var2, var3, ...)	Récupérer tous les noms de fichier dans un dossier
Importer des données d'un autre classeur suivant une date	comment importer Base de données avec extension .frm
importer les dernieres données inseré dans une table	copier toutes les feuilles d'un ensemble de fichiers Excel
formule pour copier la date sur plusieurs feuilles	Noms de tables accentués sous Oracle
Plus de sujets relatifs à : Importer noms feuilles d'un classseur fermé

Page générée en 0.045 secondes