Bonjour à tous,

Je souhaiterais transformer une feuille Excel en PDF. J'utilise alors ce code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub CommandButton1_click()
If CheckBox1 = True Then
B = Worksheets("Tel").Cells(11, 2) & "T"
Else
B = Worksheets("Tel").Cells(11, 2)
End If
 
Worksheets(B).Activate
 
    Application.ActivePrinter = "Adobe PDF"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "Adobe PDF", Collate:=True
End Sub
Je souhaite alors que la feuille B soit transformée en PDF. Or, lorsque je lance ce code, il me dit débogage à la ligne "Application.ActivePrinter = "Adobe PDF". J'ai vérifier le nom de mon imprimante et c'est bien celui ci. Qu'est qui ne va pas d'après vous ?

Merci de votre aide