VBA pour excel

Question

Je souhaitais connaitre l'instruction VBA pour une macro EXCEL pour faire :
ENREGISTREZ SOUS en format PDF , sachant qu'il faut communiquer le répertoire de destination .

Merci

jordane45 · Answer

Bonjour ( on commence pas ça ici.. lorsque l'on est poli !! )

Sinon, voilou :

Sub Macro1()
Dim wsh As Worksheet, vWshs, vWshName

'Tableau contenant le nom des feuilles à exporter en PDF :
vWshs = Array("Feuil1", "Feuil2")

' On boucle sur chaque feuille contenues dans vWshs
With ActiveWorkbook
    For Each vWshName In vWshs
    If FExist(vWshName) Then
        .Worksheets(vWshName).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            "C:	mp" & vWshName, Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    Else
      Debug.Print "La feuille " & vWshName & " n'existe pas ! "
    End If
    Next vWshName
End With
End Sub

Function FExist(NomF As String) As Boolean ' test si la feuille existe
Application.ScreenUpdating = False
On Error Resume Next
FExist = Not Sheets(NomF) Is Nothing
Application.ScreenUpdating = True
End Function

VBA pour excel

1 réponse

Votre réponse

Discussions similaires