Problème VBA conversion Excel en PDF

Bonjour,

J'ai un soucis concernant la conversion de excel 2007 en pdf.

Je ne m'y connais pas du tout en VBA?

Tous les mois , je dois lancer des scripts qui receuillent des données pour les insérer dans un excel qui traite les données puis sors trois rapports en PDF. Le mois dernier tout a bien marché. Ce mois-ci la conversion en PDF de mes données en fin de script s'est mal passée.

Au lieu d'avoir une seule page par feuille excel je me retrouve en PDF avec 10 pages et des bouts de tableaux un peu partout.

Le code :

W.Worksheets("TDB").Select

With W.Worksheets("TDB").PageSetup

.Orientation = xlLandscape

.Zoom = False

.FitToPagesTall = 1

.FitToPagesWide = 1

End With

Call CreatePDFThroughPDFMaker("Report")

Public Sub CreatePDFThroughPDFMaker(name As String)

Dim Mois As String

Dim PDFAddInIndex As Integer

Dim PDFAddIn

Dim OriginalFile As String

Dim NewFile As String

Dim temp As Object

Mois = Left(Worksheets("Report_Safecom_Mois_Gabon").Range("Y2").Value, 7)

Application.DisplayAlerts = False

Application.ScreenUpdating = False

Application.EnableEvents = False

For PDFAddInIndex = 1 To Application.COMAddIns.Count

If Application.COMAddIns(PDFAddInIndex).Description = "Acrobat PDFMaker Office COM Addin" Then Exit For

Next PDFAddInIndex

If PDFAddInIndex > Application.COMAddIns.Count Then

MsgBox "You must have Adobe Professional 8 or later installed!", vbCritical, "Adobe Professional NOT Installed"

Else

Set PDFConverter = Application.COMAddIns(PDFAddInIndex).Object

PDFConverter.GetCurrentConversionSettings PDFOptions

PDFOptions.AddTags = True

PDFOptions.AddLinks = True

PDFOptions.AddBookmarks = True

PDFOptions.FitToOnePage = False

PDFOptions.OutputPDFFileName = "W:\Entity\SG-SI\29-CPI\05-Activités\13-Ingenierie\20-Infographie\master infographie\INDICATEURS SAFECOM\GABON\" & name & "_Gabon-" & Mois & "" & ".pdf"

PDFOptions.PromptForPDFFilename = False

PDFOptions.ShouldShowProgressDialog = False

PDFOptions.ViewPDFFile = False

PDFOptions.PromptForSheetSelection = False

PDFOptions.PreserveTransparency = True

PDFOptions.PreserveSpotColor = True

PDFOptions.ConversionRoute = True

PDFConverter.CreatePDFEx PDFOptions, 0

End If

End Sub

Merci d'avance pour votre aide