XL 2019 imprimer 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

 

[kiki29]

Salut, voir par ici , à adapter à ton contexte.

Avec la possibilité de fusion en 1 seul pdf de l'ensemble des feuilles, ou de génération des feuilles sélectionnées de façon séparée, de gestion des doublons via un indice, le tout dans un dossier créé automatiquement et nommé par défaut Dossier PDFs à la racine de l'application. L'ensemble des feuilles ( visibles ou pas ) est listé via le bouton Récap.

 

[le___destin]

je suis nul en excel peut tu m'ameliorer se code vba