Discussion :

[bert35]

Alors me revoilà,

Après ma question sur la permutations de colonnes, je continue d'améliorer ma macro de mise en forme de fichiers de mesures.

Je vous épargne les détails, mais je souhaite (pq pas) afficher une Msgbox m'indiquant le nombre de feuilles dans mon classeur.
J'ai fouillé un peu partout sur Google, et j'en suis arrivé ici:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub nb_feuilles_du_classeur()
Dim nbfeuilles As Long
nbfeuilles = ThisWorkbook.Sheets.Count
MsgBox ("Ce Classeur contient maintenant : " & nbfeuilles & " Feuille(s)")
 
End Sub

Par contre, quand je test sur un classeur bidon, avec 3 feuilles par exemple, la Msgbox me renvoie qu'il n'y a qu'1 feuille(s).

D'où vient mon erreur svp?

Merci

Bertrand

[Thautheme]

Bonjour Bertrand, bonjour le forum,

Ton code prend en cause le classeur dans lequel il se trouve (ThisWorkbook). Remplace ThisWorkbook par ActiveWorkbook et le code prendra en compte le classeur actif...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub nb_feuilles_du_classeur()
Dim nbfeuilles As Long
nbfeuilles = ActiveWorkbook.Sheets.Count
MsgBox ("Ce Classeur contient maintenant : " & nbfeuilles & " Feuille(s)")
End Sub

[bert35]

Merci Thautheme,

Cela marcche.
par contre, je n'ai pas compris la différence entre ThisWorkSheet et ActiveWorkSheet...

[Thautheme]

Re,

Je n'ai pas parlé de ThisWorksheet (qui n'existe pas) mais de ThisWorkbook, ni d'ActiveWorksheet mais d'ActiveWorkbook, qui font référence à des classeur (fichiers Excel) et pas à des onglets (ou feuilles)...

Imaginons que la macro se trouve dans le classeur A.xlsm et que tu as un autre classeur ouvert, B.xlsm. A contient 3 onglet et B n'en contient qu'un seul. B est le classeur actif.
ThisWorkbook ne contera toujours que 3 onglets (quel que soit le classeur actif), car elle fait référence au classeur où se trouve la macro. ActiveWorkbook contera 1 seul onglet et, si A redevient le classeur actif, alors elle en contera 3.
Est-ce plus clair ? c'est bien pratique quand tu travailles avec plusieurs classeur d'utiliser ThisWorkbook et ActiveWorkbook pour les différencier.

[Menhir]

par contre, je n'ai pas compris la différence entre ThisWorkSheet et ActiveWorkSheet...

Prends l'habitude de rechercher dans l'aide VBA (la touche F1 est magique).
https://msdn.microsoft.com/library/6...ice.15%29.aspx
https://msdn.microsoft.com/library/0...ice.15%29.aspx