VBA Excel : récupérer le nom des feuilles

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : VBA Excel : récupérer le nom des feuilles

josserand_joss

Bonjour à tous !!

J'ai besoin de récupérer le nom des feuilles d'un classeur externe.
(la macro de classeur1.xls veut savoir les noms des différentes feuilles de classeur2.xls)

Comment faire ??

Grand merci d'avance !!

Joss

Publicité

DamienCYS

je sai pas si c'est vraiment ca ton besoin
essaye ; Sheets(x).name //ou x est le numéro de ta feuille

josserand_joss

Salut DamienCYS,

Non, en fait j'ai besoin de savoir les noms des feuilles d'un classeur fermé. (l'existence du classeur a déjà été testé.)
En gros, il faut que je teste l'existence d'une feuille pour continuer mon programme.

Si le classeur 'enfouieqqpart.xls' contient une feuille appelée "Fappelée" alors...

J'espère que je suis un peu plus clair.

Merci !

Joss

DamienCYS

Je pense qu'il faut que tu ouvre ton classeur, je verrai ca de la manière suivante :

Workbook.Open Filename := "<Chemain d'accès de ton fichier>"
Windows("<nom de ton fichier>" ).Activate
for compteur% = 1 to 10 // pour 10 feuilles maxi a toi de voir
if Sheets(compteur%).name = "<le nom que tu veu chercher>" then
..........
end if
next

josserand_joss

Il a l'air de planter comme ça (où j'ai mal remplacer les chemins).

Par contre, j'ai trouvé une autre soluce un peu plus compliquée où il a fallut que je rajoute un ligne pour qu'il marche :

Code :

Dim cn
Dim cat
Dim xlSheet As Variant
Dim Fichier$
'Initialisation
Set cn = CreateObject("ADODB.Connection" )
Set cat = CreateObject("ADOX.Catalog" )
Fichier = chemin & "\" & fileNom //prédéfini avant
ClasseurVide = True
'Open the Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Fichier & ";Extended Properties=Excel 8.0;"
'Open the catalog
Set cat.ActiveConnection = cn
For Each xlSheet In cat.Tables
If xlSheet.Name = "'MaFeuille$'" Or xlSheet.Name = "MaFeuille$" Then
ClasseurVide = False
End If
'MsgBox xlSheet.Name
Next
'Nettoyage
cn.Close //sans ça, ça plantait
Set cn = Nothing: Set cat = Nothing

C'est pas top top, étant donné que ça ne récupère pas QUE les feuilles, mais ça m'a permis d'avancer.

Merci quand même pour ton aide !!

Joss

FORUM HardWare.fr

Programmation

VB/VBA/VBS

VBA Excel : récupérer le nom des feuilles

Sujets relatifs
VBA: macro qui se lance apres modif de certaines cell	[Java][VBA] Java ou VBA pour cet usage ?
[VBA POWERPOINT] [done]Supprimer toutes les images du slide1	Comment afficher/récupérer des éléments (POO) d'un tableau
VB WORD EXCEL	[VBA]GetOpenFilename ne fonctionne pas
[VBA] mise en forme conditionnelle Excel sous Access	[VBA EXCEL 03] Probleme de mise en forme auto du graph
Plus de sujets relatifs à : VBA Excel : récupérer le nom des feuilles

Page générée en 0.054 secondes