Bonjour Le Forum,
Je souhaiterais créer un bouton sur une feuille de calcul afin de transformer une partie de la feuille Cellule B1 à J91en un fichier pDF et l'envoyer par mail.
J'ai confectionner le code Suivant :
Private Sub mail_pdf_Click()
With Sheets("tableau_de_bord")
.Select
.Range("A1").Select
ActiveSheet.PageSetup.PrintArea = "$B$1:$J$91"
Application.ActivePrinter = "PDFCreator sur Ne00:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"PDFCreator sur Ne00:", Collate:=True
End With
End Sub
Le souci : certain utilisateur n'ont pas PDFCREATOR.
Avez vous une solution afin qu'une instruction puisse fonctionner sur n'importe quel type de poste.
Merci par avance,
Hugues
Je souhaiterais créer un bouton sur une feuille de calcul afin de transformer une partie de la feuille Cellule B1 à J91en un fichier pDF et l'envoyer par mail.
J'ai confectionner le code Suivant :
Private Sub mail_pdf_Click()
With Sheets("tableau_de_bord")
.Select
.Range("A1").Select
ActiveSheet.PageSetup.PrintArea = "$B$1:$J$91"
Application.ActivePrinter = "PDFCreator sur Ne00:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"PDFCreator sur Ne00:", Collate:=True
End With
End Sub
Le souci : certain utilisateur n'ont pas PDFCREATOR.
Avez vous une solution afin qu'une instruction puisse fonctionner sur n'importe quel type de poste.
Merci par avance,
Hugues
