[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
A voir également:
- Vba sheets select
- Sheets.select vba - Meilleures réponses
- Vba select sheet - Meilleures réponses
- L'indice n'appartient pas à la sélection vba - Forum VB / VBA
- Reboot and select proper boot device - Forum Windows
- Please select boot device ✓ - Forum BIOS
- Vba range avec variable ✓ - Forum VB / VBA
- Erreur 1004 vba ✓ - Forum VB / VBA
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