Nommer Vignettes fichier pdf par macro Excel

Nommer Vignettes fichier pdf par macro Excel - VB/VBA/VBS - Programmation

Marsh Posté le 17-03-2011 à 14:01:31    

Bonjour,  
J'ai une question qui concerne autant pdf que VBA, j'ai choisi ce forum en esperant ne pas me tromper.  
J'ai pour plusieurs fichiers excel une macro qui imprime un ou plusieurs onglets en pdf.  
Pour les fichiers où plusieurs onglets sont concernés, est-il possible de stipuler dans le code de la macro que chaque vignette crée doit porter le nom de l'onglet qui lui correspond ?  
Si quelqu'un à la réponse...

Reply

Marsh Posté le 17-03-2011 à 14:01:31   

Reply

Marsh Posté le 17-03-2011 à 14:54:19    

Salut,la réponse est oui

Reply

Marsh Posté le 17-03-2011 à 15:04:39    

Bonjour,
 
Merci kiki29, et est-ce que tu peux me dire comment faire ?

Reply

Marsh Posté le 17-03-2011 à 15:07:41    

Re,


Option Explicit
 
Sub Tst_2007()
Dim sNomFichierPDF As String
Dim Ar() As Variant, i As Long
 
    Application.ScreenUpdating = False
 
    Ar = Array("Feuil1", "Feuil3", "Feuil5" )
 
    For i = LBound(Ar) To UBound(Ar)
        sNomFichierPDF = ThisWorkbook.Path & "\" & Ar(i) & ".pdf"
        Worksheets(Ar(i)).ExportAsFixedFormat _
                Type:=xlTypePDF, Filename:=sNomFichierPDF, Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    Next i
    Application.ScreenUpdating = True
End Sub


Message édité par kiki29 le 17-03-2011 à 16:21:11
Reply

Marsh Posté le 17-03-2011 à 15:44:29    

Ca fonctionne nickel,
 
Merci beaucoup !!!

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed