Discussion :

[titeelo]

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

[ouskel'n'or]

Désigne le chemin de ton imprimante
Ex : MonImprimantePDF = "pdfcreator sur Ne01:"

[titeelo]

Merci j'ai trouvé . En fait, je ne savais pas comment trouver le chemin alors je me suis enregistrer afin de le connaitre. Je te remercie.