Bonjour à tous,
J'ai créer une macro qui me permet de créer un PDF de mes mise en plan avec un indice en préfixe et un deuxiéme PDF avec un préfixe indice suivi de "ADV",
Mon probléme est le suivant sur le deuxiéme PDF je souhaiterai qu'il est que la premiére page de ma mise plan, car lors de l'enregistrement sous on peut dire les pages souhaitées ou pas mais en VBA je ne sais pas le faire.
Actuellement j'utilise Acrobat que j'ouvre à partir de ma macro pour supprimer les deux derniéres
Vous trouverez ci-dessous ma macro :
*****************************************************************************
Sub main()
Dim SwApp As Object
Dim Part As Object
Dim SelMgr As Object
Dim selObj As Object
Dim AcroApp As Acrobat.AcroApp
Set SwApp = CreateObject("SldWorks.Application")
Set Part = SwApp.ActiveDoc
Dim indice As String
indice = InputBox("indice?")
Dim myModelView As Object
Set myModelView = Part.ActiveView
Dim cible As Scripting.filesystemobject
Dim valeur As Scripting.file
Set cible = CreateObject("scripting.filesystemobject")
Set valeur = cible.getfile(Part.GetPathName)
longstatus = Part.SaveAs3("U:\PDF à diffuser\" & cible.GetBaseName(valeur) & "-" & indice & ".pdf", 0, 0)
If MsgBox("ADV", vbYesNo, "Faut-il un PDF pour l'ADV ?") = vbYes Then
longstatus = Part.SaveAs3("U:\PDF à diffuser\" & cible.GetBaseName(valeur) & "-" & indice & "-ADV" & ".pdf", 0, 0)
Shell ("C:\Program Files (x86)\Adobe\Acrobat 7.0\Acrobat\Acrobat.exe U:\PDF à diffuser\" & cible.GetBaseName(valeur) & "-" & indice & "-ADV" & ".pdf"), vbMaximizedFocus
End If
MsgBox ("Terminer")
End Sub
*****************************************************************************
Merci d'avance pour vos réponses
Julien.