[VBA] procédure sheets.select
Résolu/Fermé
andy_kaufmann
Messages postés
36
Date d'inscription
vendredi 3 août 2007
Statut
Membre
Dernière intervention
27 mars 2013
-
3 août 2007 à 13:04
andy_kaufmann Messages postés 36 Date d'inscription vendredi 3 août 2007 Statut Membre Dernière intervention 27 mars 2013 - 3 août 2007 à 16:32
andy_kaufmann Messages postés 36 Date d'inscription vendredi 3 août 2007 Statut Membre Dernière intervention 27 mars 2013 - 3 août 2007 à 16:32
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.
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.
A voir également:
- Sheets.select vba
- Sheets select vba - Meilleures réponses
- Vba sheets select - Meilleures réponses
- L'indice n'appartient pas à la sélection vba - Forum VB / VBA
- Incompatibilité de type vba ✓ - Forum Programmation
- Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
- Find vba - Astuces et Solutions
- Excel compter cellule couleur sans vba - Guide
2 réponses
Utilisateur anonyme
3 août 2007 à 16:17
3 août 2007 à 16:17
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
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