Comment enregistrer un fichier excel en pdf avec visual basic ?
assniok
Messages postés3Date d'inscriptionsamedi 10 février 2007StatutMembreDernière intervention19 août 2008
-
19 août 2008 à 08:58
assniok
Messages postés3Date d'inscriptionsamedi 10 février 2007StatutMembreDernière intervention19 août 2008
-
19 août 2008 à 13:20
Bonjour a tous,
Je me suis créé un bouton sous excel me permettant de convertir ma feuille excel en pdf, ce qui me permet de diffuser des documents non modifiable par mes collègues de travail.
Voici le code que j'ai mis :
Sub excel_pdf()
'
' excel_pdf Macro
' Convertir excel en pdf
'
Application.ActivePrinter = "Visage eXPert PDF sur VSP1:"
ActiveWindow.SelectedSheets.PrintOut copies:=1, ActivePrinter:= _
"Visage eXPert PDF sur VSP1:"
End sub
Donc ce que j'aimerais maintenant, c'est enregistrer mon fichier automatiquement sachant que, d'une part ces fichiers seront toujours enregistrés au même endroit et d'autre part le nom du fichier sera toujours le nom.xls qui deviendra nom.pdf (si mon fichier est toto.xls au départ, j'aimerais qu'au final le fichier soit toto.pdf)
Si vous pouviez m?aider à finaliser mon bouton ça me rendrait en grand service ;)
Merci d'avance a ceux qui prendront la peine de me lire et bonne journée.
ZEPS256
Messages postés59Date d'inscriptionmardi 4 décembre 2007StatutMembreDernière intervention28 juin 2012 19 août 2008 à 12:15
salut,
essaie ça :
ActiveWorkbook.SaveCopyAs "[file://\\adresse complète (de préférence adresse IP du PC+chemin)\nom du fier \\adresse complète (de préférence adresse IP du PC+chemin)\nom du fier]chier.pdf"