Récupérer un nom de feuille Excel dans un inputbox

Signaler
Messages postés
2
Date d'inscription
jeudi 20 janvier 2005
Statut
Membre
Dernière intervention
21 janvier 2005
-
Messages postés
936
Date d'inscription
lundi 19 janvier 2004
Statut
Membre
Dernière intervention
17 mars 2017
-
Salut à tous,
J'aimerais récupérer un nom de feuille d'un classeur Excel...
Jusqu'ici j'ai réussi à faire ouvrir un explorateur pour sélectionner le fichier xls à traiter, le fichier s'ouvre correctement mais maintenant j'aimerais afficher après son ouverture une fenêtre demandant de cliquer sur l'onglet de la feuille à traiter et récupérer l'info... (j'y arrive très bien avec les références de cellules grâce à une inputbox mais je voudrais le faire avec les onglets maintenant.... est-ce possible avec une inputbox ou faut-il passer par une autre fonction ?)
Merci pour vos réponses et à plus.

nico le dodo

3 réponses

Messages postés
936
Date d'inscription
lundi 19 janvier 2004
Statut
Membre
Dernière intervention
17 mars 2017
4
Salut,
En ce qui concerne ta boite de dialogue tu peux la faire sous VB. Il te faut juste tester si le classeur est ouvert.
Ensuite pour récupérer le nom tu fais TextBox1.Text = ActiveSheet.Name
ActiveSheet te renvoie la Feuille Active donc celle qui a étée cliquer ou feuil1 par défaut à l'ouverture du classeur

____________________________________________________

Cordialement, Jean-Paul

Le Savoir n'a de valeur que s'il est partagé
Messages postés
2
Date d'inscription
jeudi 20 janvier 2005
Statut
Membre
Dernière intervention
21 janvier 2005

Merci beaucoup Jean Paul,
Ton aide m'a été précieuse, je n'ai plus qu'à trouver le moyen de rafraichir le textbox pour chaque clic sur un onglet d'excel - je vais rechercher de ce pas sur le forum...
Mais au fait, suis-je obligé de tester si le classeur est ouvert pour le bon fonctionnement de la boite de dial (vu que je fais l'ouverture par vb juste avant ?).
Encore merci,

nico le dodo
Messages postés
936
Date d'inscription
lundi 19 janvier 2004
Statut
Membre
Dernière intervention
17 mars 2017
4
Salut,
Non tu n'est pas obligé de verifier si le fichier est ouvert si c'est toi qui l'ouvre .....
pour le test voici un bout de code que tu dois adapter à tes besoin

' ~~ Pour récupérer le nom de la feuille active
Dim FeuilleDefautName As String
' ~~ On récupère le nom de la feuille active
FeuilleDefautName = ActiveSheet.Name


Do
If ActiveSheet.Name <> FeuilleDefautName Then
'~~ Ici tu peux renvoyer sur ta sub pour les traitements
MsgBox "vous avez cliqué sur: " & ActiveSheet.Name
FeuilleDefautName = ActiveSheet.Name
End If
'~~ On donne la main à VB
DoEvents
Loop

Voilà c'est juste une idée à perfectionner
____________________________________________________

Cordialement, Jean-Paul

Le Savoir n'a de valeur que s'il est partagé