bellenm
XLDnaute Impliqué
Bonjour à tous,
je cherche en vain les codes pour:
1. ouvrir une fenêtre pour choisir une imprimante
2. ensuite si je choisis l’impression papier, le choix entre une, deux ou trois copie
3. si pas d’impression papier (PDF, par exemple sous office 2013) le nom du fichier serait celui d’une cellule (ici « Z4 »)
Voilà ce n’est pas grand-chose mais je n’y arrive pas, j’arrive à choisir l’imprimante, mais pour le reste du code je bloque.
D’avance merci.
je cherche en vain les codes pour:
1. ouvrir une fenêtre pour choisir une imprimante
2. ensuite si je choisis l’impression papier, le choix entre une, deux ou trois copie
3. si pas d’impression papier (PDF, par exemple sous office 2013) le nom du fichier serait celui d’une cellule (ici « Z4 »)
Voilà ce n’est pas grand-chose mais je n’y arrive pas, j’arrive à choisir l’imprimante, mais pour le reste du code je bloque.
Code:
Sub ImpressionCHOIX()
If Application.Dialogs(xlDialogPrinterSetup).Show Then
With ActiveSheet.PageSetup
.PrintArea = "$b$4:$aa$59"
NomFichier = Range("z4").Value
End With
'ici j'aimerais que si le choix d'impression se fait sur un fichier pdf, que la cellule "Z4" en soit le nom ‘ si non, imprimante papier, choisir le nombre de fois à imprimer 1, 2 ou 3.
NomFichier = Range("z4").Value
NomFichier = ThisWorkbook.Path & "\" & Range("z4").Value
ActiveSheet.PrintOut
End If
End Sub
D’avance merci.
Dernière modification par un modérateur: