Conversion automatique sous VB d un xls en pdf

  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"

  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"

Voici une solution super simple et tres efficace

 

tu installe win2pdf

dispo ici par exemple : [ Lien ]

dans ton projet vb tu ajoute la reference microsoft excel xx.0 object library

dans le code d'un bouton par exemple tu mets

Private Sub Command1_Click()
   'la ligne qui suit peut servir si tu veut imprimer autre chose que excel
   'SaveSetting "Dane Prairie Systems", "Win2PDF", "PDFFileName", "c:\TEST.PDF"
   Dim XlApp As New Excel.Application
   XlApp.Visible = False
   XlApp.Workbooks.Open "c:\MonFichier.xls", , True
   XlApp.Workbooks(1).PrintOut 1, 5, 1, 0, "Win2PDF", 1, , "c:\TEST.PDF"
   XlApp.Workbooks(1).Saved = True
   XlApp.Quit
End Sub


Le fichier test.pdf est a changé par le nom que tu veut
Les chiffres 1,5 sont dans l'ordre le numero de la page debut et fin 
Les1,0 sont dans l'ordre le nombre de copie et l'affichage en preview
Le 1 signifie que tu ecrit ton pdf sans confirmation, attention il efface le precedant si le nom est identique 
La ligne saved=true permet d'eviter que vb te demande systematiquement si tu veut sauvegarder ton fichier excel a la fin de l'impression

@+
Metalcoder