Bonjour ,
Je suis à la recherche d'un peu d'aide concernant un code, plus précisément une boucle que je n'arrive pas à boucler !
J'ai plusieurs classeurs ouverts. Chacun avec 5 onglets contenant des données. Je cherche à exporter en PDF tous les onglets de chaque classeur sur un fichier contenant le nom du classeur ex :
Classeur 1 / Onglets A-B-C --- PDF C1 avec les pages A-B-C
Classeur 2 / Onglets A-B-C --- PDF C2 avec les pages A-B-C
J'ai réussi à initialiser une boucle qui me crée bien un document par classeur avec le nom du classeur, mais le soucis est qu'il ne change pas de selection de feuille : sur tous les documents (avec un nom différent), je vois les même données.
Je suis débutant en VBA c'est pour cela que je me permet de vous solliciter.
Voici mon code :
Sub export_pdf()
Dim wb As Workbook
Dim rep As String
rep = "C:\....\A SUP\"
Application.ScreenUpdating = False
For Each wb In Application.Workbooks
Sheets(Array("Lundi", "Mardi", "Mercredi", "Jeudi", "Vendredi")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
rep & wb.Name, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Next wb
Application.ScreenUpdating = True
End Sub
Je suis à la recherche d'un peu d'aide concernant un code, plus précisément une boucle que je n'arrive pas à boucler !
J'ai plusieurs classeurs ouverts. Chacun avec 5 onglets contenant des données. Je cherche à exporter en PDF tous les onglets de chaque classeur sur un fichier contenant le nom du classeur ex :
Classeur 1 / Onglets A-B-C --- PDF C1 avec les pages A-B-C
Classeur 2 / Onglets A-B-C --- PDF C2 avec les pages A-B-C
J'ai réussi à initialiser une boucle qui me crée bien un document par classeur avec le nom du classeur, mais le soucis est qu'il ne change pas de selection de feuille : sur tous les documents (avec un nom différent), je vois les même données.
Je suis débutant en VBA c'est pour cela que je me permet de vous solliciter.
Voici mon code :
Sub export_pdf()
Dim wb As Workbook
Dim rep As String
rep = "C:\....\A SUP\"
Application.ScreenUpdating = False
For Each wb In Application.Workbooks
Sheets(Array("Lundi", "Mardi", "Mercredi", "Jeudi", "Vendredi")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
rep & wb.Name, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Next wb
Application.ScreenUpdating = True
End Sub