[VBA] procédure sheets.select [Résolu/Fermé]

Signaler
Messages postés
36
Date d'inscription
vendredi 3 août 2007
Statut
Membre
Dernière intervention
27 mars 2013
-
Messages postés
36
Date d'inscription
vendredi 3 août 2007
Statut
Membre
Dernière intervention
27 mars 2013
-
salut,

je suis sur un petit programme VBA sur excel.
j'ai une macro qui doit m'ouvrir une feuille de calcul. jusqu'à là ça va... genre sheets("sheet1").select

le problème c'est que le nom de la feuille à ouvrir est variable, j'en ai une 50taine... l'information est dans un textbox (txt_feuille).

le code sheets(txt_feuille).select ne fonctionne pas.

quelqu'un peut-il m'aider à ce sujet.

2 réponses


Bonjour,

Si le textbox est sur la feuille de calcul et nom sur un userform :

Dim Valeur As String

Valeur = ActiveSheet.OLEObjects("txt_feuille").Object.Value
Workbooks.Open Filename:=Valeur


si au contraire le textbox est sur un userform :

Dim Valeur As String

UserForm1.Show
Valeur = UserForm1.txt_Feuille.Text
Workbooks.Open Filename:=Valeur
Range("A1").Select


Lupin
2
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 57358 internautes nous ont dit merci ce mois-ci

Messages postés
36
Date d'inscription
vendredi 3 août 2007
Statut
Membre
Dernière intervention
27 mars 2013
6
Merci Lupin.

c'est l'instruction Valeur = UserForm1.txt_Feuille qui me manquait.

j'ai remplacé ton code par :

Dim valeur As String

valeur = userform1.txt_Feuille
Sheets(valeur).Select
Range("A1").Select