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

Question

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.

Utilisateur anonyme · Accepted Answer

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

andy_kaufmann · Answer

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

[VBA] procédure sheets.select

2 réponses

Discussions similaires

Newsletters