Jean philippe94
XLDnaute Nouveau
Bonjour,
Je cherche à imprimer une feuille execl avec une macro. Jusque là pas de probleme :d
Là ou cela se corse, c'est que je veux deux impréssions differente l'une sur une imrpimante par defaut et la 2eme sur une imprimante virtuel dont le nom de l'imprimante est PDF995.
Le nom de fichier à donner au ducument pdf se trouve dans une cellule qui doit être rafraichie avant d'en copier le contenue.
j'ai essayé avec avec la macro ci dessous :
Sub PDF4()
'
' PDF4 Macro
'
'
Sheets("DEVIS").Select
Range("B14").Select
Selection.Copy
Application.ActivePrinter = "DELL5110cn3EC6A2 sur Ne01:"
ExecuteExcel4Macro _
"PRINT(1,,,1,,,,,,,,2,""DELL5110cn3EC6A2 sur Ne01:"",,TRUE,,FALSE)"
Application.ActivePrinter = "PDF995 sur Ne00:"
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,""PDF995 sur Ne00:"",,TRUE,,FALSE)"
Sheets("CALCUL").Select
Range("E13").Select
End Sub
J'ai plusieurs problemes:
- je ne sais pas comment rafraichir la feuille avant de copier la cellule B14
- Je ne sais pas comment insérer la cellule B14 comme nom de fichier dans la fenetre de PDF995.
- et je ne sais pas comment selectionner le chemins de repertoire pour enregistrer le fichier pdf.
D'avance merci pour votre aide.
PS: la cellule B14 s'appele ' NUMERODEDEVIS ' et si possible j'aurais voulu rajouter a la suite la cellule 'NOMDUCLIENT'. Afin de pouvoir retrouver plus facilement le fichier.
Je cherche à imprimer une feuille execl avec une macro. Jusque là pas de probleme :d
Là ou cela se corse, c'est que je veux deux impréssions differente l'une sur une imrpimante par defaut et la 2eme sur une imprimante virtuel dont le nom de l'imprimante est PDF995.
Le nom de fichier à donner au ducument pdf se trouve dans une cellule qui doit être rafraichie avant d'en copier le contenue.
j'ai essayé avec avec la macro ci dessous :
Sub PDF4()
'
' PDF4 Macro
'
'
Sheets("DEVIS").Select
Range("B14").Select
Selection.Copy
Application.ActivePrinter = "DELL5110cn3EC6A2 sur Ne01:"
ExecuteExcel4Macro _
"PRINT(1,,,1,,,,,,,,2,""DELL5110cn3EC6A2 sur Ne01:"",,TRUE,,FALSE)"
Application.ActivePrinter = "PDF995 sur Ne00:"
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,""PDF995 sur Ne00:"",,TRUE,,FALSE)"
Sheets("CALCUL").Select
Range("E13").Select
End Sub
J'ai plusieurs problemes:
- je ne sais pas comment rafraichir la feuille avant de copier la cellule B14
- Je ne sais pas comment insérer la cellule B14 comme nom de fichier dans la fenetre de PDF995.
- et je ne sais pas comment selectionner le chemins de repertoire pour enregistrer le fichier pdf.
D'avance merci pour votre aide.
PS: la cellule B14 s'appele ' NUMERODEDEVIS ' et si possible j'aurais voulu rajouter a la suite la cellule 'NOMDUCLIENT'. Afin de pouvoir retrouver plus facilement le fichier.
