Posez votre question Signaler

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

andy_kaufmann 30Messages postés 3 août 2007Date d'inscription 23 septembre 2011Dernière intervention - Dernière réponse le 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.
Lire la suite 

[VBA] procédure sheets.select »

2 réponses
Réponse
+1
moins plus
Lupin.A 972Messages postés 15 mars 2006Date d'inscription 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

 Ajouter un commentaire
Ajouter un commentaire
Réponse
+1
moins plus
andy_kaufmann 30Messages postés 3 août 2007Date d'inscription 23 septembre 2011Dernière intervention 3 août 2007 à 16:32
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

 Ajouter un commentaire
Ajouter un commentaire
Posez votre question
Ce document intitulé « [VBA] procédure sheets.select » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
Passage au tout numérique : quel coût pour les particuliers ?