Récupérer infos d'un onglet

[azerta]

Je ne sais pas si ce que je veus faire est réalisable. En faite, je travail sous Excel via VB et j’ai une dizaine d’onglet. J’ai un onglet qui s’appelle « Estim.00 » et il y a donc ds l’onglet index en C7 « travail xxx.00 ». Les 2derniers chiffres de l’onglet Estim doivent être récupérés ds les 2derniers chiffres de la cellule C7 de l’onglet Index. Or, il se peut que plus tard soit crée l’onglet Estim.01 ou/et Estim.02 etc.. et j’aimerai qu’à l’ouverture et à la fermeture du document Excel on puisse repérer l’onglet Estim le plus récent ( donc par les deux derniers chiffres d’Estim qui doivent être les plus élevés) et mettre à chaque fois les deux derniers chiffres à la place des deux derniers chiffres en C7 ds l’onglet « Index »

Je souhaite réaliser cela via VB..
Je ne sais pas si j’ai été clair…
Si quelqu’un peut m’aider svp..
Merci

 

[tototiti2008]

Re : Récupérer infos d'un onglet

Bonjour azerta,

via VB ou via VBA ?

 

[azerta]

Re : Récupérer infos d'un onglet

Bonjour ,

Via VB..

 

[tototiti2008]

Re : Récupérer infos d'un onglet

En VBA, avec les évènements d'Excel, tu vas pouvoir gérer "l'ouverture et la fermeture" du classeur. VB te permettra sans doute de contrôler le classeur mais pas trop les évènements, je crois. Ceci dit je suis loin d'être un spécialiste VB...

 

[azerta]

Re : Récupérer infos d'un onglet

Oui en effet il y a les évènements Worbookbefore_close et Worbook_Open
Mais ce que je veus surtout c récupérer les deux deniers chiffres de l'onglet Estim le plus récent pour les mettre ds la cellule C7 de l'index..
Comment faire déja pour arriver à coder : si il y a plusieurs onglet Estim , récupérer les deux derniers chiffres de l'onglet ayant le plus grand numéro à la fin...

 

[tototiti2008]

Re : Récupérer infos d'un onglet

Avec un truc du genre :
Dim Num as Long, i as long
Num = 0
For i = 1 to Activeworkbook.worksheets.count
if Activeworkbook.worksheets(1).name Like "Estim*" and clng(right(Activeworkbook.worksheets(1).name,2))>Num then
Num =clng(right(Activeworkbook.worksheets(1).name,2))
end if
Next i