Discussion :

[jgs012]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jgs012]

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