Impression a partir d'un textbox

Version imprimable

Bonjour,
je souhaite en cliquant sur 1 bouton imprimer la page dont le nom est celui porté dans un textbox. Voici ce que j'ai fais:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub ImpRef_Click()
 'Tester si la feuille existe
 
 If TesterExistenceFeuille(UCase(tbxRef.Text)) Then
      TrierRef Sheets(UCase(tbxRef.Text))
    Else
        MsgBox "La feuille n'existe pas."
        Exit Sub
    End If
 
    'Imprimer une feuille
    Sheets(UCase(tbxRef.Text)).Columns("A:E").PrintOut Copies:=1
    '  Effacer Box Tournée
    tbxRef.Text = ""
     'Retour curseur text box
    tbxRef.SetFocus

Cela ne fonctionne pas et je ne vois pas ou j'ai fais une ereur.
Merci:cry:

30/12/2010, 16h07
Philippe Tulliez

Ajouté le n° de version d'excel
Bonjour,
Chez moi cela fonctionne parfaitement (Excel 2003), en mettant toutefois en remarque le code qui fait appel à la fonction 'TesterExistenceFeuille' qui est absente de la procédure collée dans le message.
Code:

1 2 3 4 5 6 ' If TesterExistenceFeuille(UCase(tbxRef.Text)) Then ' TrierRef Sheets(UCase(tbxRef.Text)) ' Else ' MsgBox "La feuille n'existe pas." ' Exit Sub ' End If
26/04/2011, 08h16
jgs012

imprimer a partir d'un textbox

Problème résolu. Cela ne fonctionnait pas car j'avais masqué les feuilles à imprimer.
Merci.