XL 2019 VBA Connaitre l'index d'un classeur

[Marcham]

Bonjour,
Autant j'ai trouvé comment connaitre le nom des classeurs ouverts dans un ordinateur Windows avec

For I = 1 To Workbooks.Count
Workbooks(I).Activate
MsgBox "Le classeur " & Workbooks(I).Name & " est ouvert."
Next I

Autant je n'arrive pas à faire le contraire.
En fait, j'aimerai bien savoir comment connaitre l'index de certain classeurs ouverts.
J’ai bien compris que ces index sont incrémentés en fonction de leurs ordres d’ouverture et c’est justement ça qui m’intéresse. Je pourrais trouver ça en utilisant "I" dans la boucle ci-dessus. Mais ma préoccupation c'est de trouver une instruction plus directe.

Voici ce que j'ai déjà essayé :
Workbooks("LeNomDuClasseur").Index
Workbooks("LeNomDuClasseur").item

Merci d'avance, Marc

 

[Compte Supprimé 979]

Bonjour et bienvenue,

Et quel est le but de votre demande, quel intérêt ?

A+

 

[mapomme]

Bonjour à tous 🙂,
Une piste :

Sub test()
Dim i As Long, monClasseur As String
   monClasseur = "toto.xlsm"
   For i = 1 To Workbooks.Count
      If LCase(Workbooks(i).Name) = LCase(monClasseur) Then Exit For
   Next i
   If i = Workbooks.Count + 1 Then MsgBox monClasseur & " n'est pas ouvert." Else MsgBox monClasseur & "  => Index = " & i
End Sub

 

[Marcham]

Bonjour Bruno.
Le but, c'est pour apprendre, j'aime bien apprendre.
Donc je voudrais savoir si tout comme on peut faire <Sheets("UneFeuille").Index>, on peut faire pareil avec des classeurs.
Et si on ne peut pas, et bien j'aurais appris qu'on ne peut pas.

 

[Marcham]

Salut laPomme, je pense que tu as dû mettre la réponse pour quelqu'un dans ce post à tord.
Regarde ça de prêt afin que ta réponse soit utile à la personne concernée.
Bonne journée, Marc

 

[Marcham]

Sinon, il suffit juste de rajouter <Son num est " & I> dans la ligne du msgbox.
Mais j'aimerai savoir s'il n'y a pas une instruction plus directe.

 

[job75]

Bonjour,

Donc je voudrais savoir si tout comme on peut faire <Sheets("UneFeuille").Index>, on peut faire pareil avec des classeurs.

L'objet Workbook n"a pas de propriété Index donc il faut passer en revue les éléments de la collection Workbooks pour trouver son numéro d'ordre.

A+

 

[mapomme]

Salut laPomme, je pense que tu as dû mettre la réponse pour quelqu'un dans ce post à tord.
Regarde ça de prêt afin que ta réponse soit utile à la personne concernée.
Bonne journée, Marc

Re,
Tu n'as donc pas examiné le code ou tout du moins pas entièrement compris.
Lis donc le post de @job75 et à sa lumière éclairante, parcours à nouveau le code de mapomme (et non laPomme) 😉 .

nota : Il est vrai que j'aurais pu expliquer le pourquoi du code comme l'a fait @job75.