Posez votre question Format imprimable Liste des forums Aidez-les Statistiques Rechercher Charte Forum Programmation

[VBA] procédure sheets.select

Dernière réponse le 3 aoû 2007 à 16:32:53 andy_kaufmann, le 3 aoû 2007 à 13:04:57

Signaler ce message aux modérateurs

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.

Configuration: Windows XP
Firefox 2.0.0.6

Meilleures réponses pour « [VBA] procédure sheets.select » dans :

[VBA] Procédure pour plusieurs UserForm (Résolu) Voir

Excel VBa Changer nom sheet (Résolu) Voir

Selection d'une cellule d'autre sheet excel Voir

Oracle - Fonctions et procédures stockées Voir

VBA Ajouter commandButton et le code qui va avec VoirCode relativement simple et qui ne nécessite pas d'explication complémentaire. Coller ces deux sub dans un module général (Module1 par exemple). Sub CréerBouton() Dim Obj As Object Dim Code As String Sheets("Feuil1").Select 'crée le...

[VBA] Ecrire/lire une série de TextBox en une seule Sub VoirEn VBA, les TextBox ne disposent pas d'un index et dans la plupart des cas, pour entrer du texte, on procède par.. TextBox1.Text = Cells(2,1).value TextBox2.Text = Cells(2,2).value TextBox3.Text = Cells(2,3).value Et l'inverse pour lire les...

Requête sql sous vba (Résolu) Voir

Gestion des feuilles d'un classeur en vba (Résolu) Voir

Debutant en VBA j'ai un pb avec select case Voir

Posez votre question Répondre

Lupin.A, le 3 aoû 2007 à 16:17:33

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

Répondre à Lupin.A

andy_kaufmann, le 3 aoû 2007 à 16:32:53

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

Répondre à andy_kaufmann

Posez votre question Répondre