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