le___destin
XLDnaute Occasionnel
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
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
VB:
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