XL 2019 enregistre tous les feuille dans un seul fichier .pdf

[le___destin]

bonsoirs tout le monde
je besoin d'aide .. je veux que les pages s'enregistrer dans un meme fichier .pdf au lieu d'etre imprimer
merci pour tout vos aide

Sub Imprimer()
Application.Volatile
Application.ScreenUpdating = True
Taille = [NumeroLigne].End(xlDown).Row
Reponse = MsgBox("Voulez vous vraiment imprimer les " & (Taille - 1) & " pages ?", vbYesNo)
If Reponse = vbNo Then Exit Sub
For i = 2 To Taille
    [NumLigEnCours] = [NumeroLigne].Cells(i, 1)
    Calculate
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Next i
End Sub

 

[Staple1600]

Bonjour

Tu as déjà posté la question et tu as-eu une réponse, non?

XL 2019 - imprimer tous les feuille dans un seul fichier .pdf

bonsoirs tout le monde je besoin d'aide .. je veux que les pages s'enregistrer dans un meme fichier .pdf au lieu d'etre imprimer merci pour tout vos aide Sub Imprimer() Application.Volatile Application.ScreenUpdating = True Taille = [NumeroLigne].End(xlDown).Row Reponse = MsgBox("Voulez vous...

www.excel-downloads.com

 

[le___destin]

bonsoire
la reponce pas clair .. je suis un debutat
j'aime que quelqu'un me faire adapter mon code
et merci

 

[Staple1600]

Re,

•>le____destin
Dans ce cas, il faut poster un troisième message dans la première discussion (c'est ce qu'on appelle ici faire un up)
Plutôt que de recréer une seconde discussion pour la même question.

 

[le___destin]

A vos ordre