jeromeN95
XLDnaute Impliqué
Bonsoir à tous,
j'souhaite crée un PDF à partir de l'onglet N°3 (Page de garde) jusqu'au dernier onglet (qui peut varier) :
J'ai essayer aussi :
Mais ça ne fonctionne pas.
Aurais-je de l'aide svp ?
j'souhaite crée un PDF à partir de l'onglet N°3 (Page de garde) jusqu'au dernier onglet (qui peut varier) :
VB:
Sub PDFTEST()
Dim sNomFichierPDF As String 'pour PDF
Dim i As Integer
Dim Ar(1) As String
sNomFichierPDF = ThisWorkbook.Path & "\" 'chemin du fichier
Ar = "3" ToCount
Application.ScreenUpdating = False
Sheets(Ar).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & Range("Sommaire!B51").Value _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Application.ScreenUpdating = True
Sheets("Sommaire").Select
Application.ScreenUpdating = True 'a supprimer?
Application.ScreenUpdating = True
MsgBox "La création est terminée. !", vbInformation, "Planche"
End Sub
J'ai essayer aussi :
VB:
For i = 3 To Sheets.Count
Sheets(i).Select
Next i
sNomFichierPDF = ThisWorkbook.Path & "\" 'chemin du fichier
Sheets(i).Select 'selection des onglets...
Application.ScreenUpdating = False
Sheets(i).Select
Mais ça ne fonctionne pas.
Aurais-je de l'aide svp ?