[VBA] procédure sheets.select
Résolu
andy_kaufmann
Messages postés
41
Statut
Membre
-
andy_kaufmann Messages postés 41 Statut Membre -
andy_kaufmann Messages postés 41 Statut Membre -
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
- Sheet select vba - Meilleures réponses
- Vba worksheet select - Meilleures réponses
- L'indice n'appartient pas à la sélection vba - Forum VB / VBA
- Please select boot device ✓ - Forum BIOS
- Select boot device première utilisation ✓ - Forum Windows
- Please select boot device - Forum Matériel & Système
- Erreur d'execution 9, l'indice n'appartient pas à la sélection ✓ - Forum Programmation
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
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
