A voir également:
- Excel export plusieurs feuilles pdf selon critère dans une c
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Liste déroulante excel - Guide
- Fusionner plusieurs feuilles excel en une seule - Guide
- Aller à la ligne dans une cellule excel - Guide
- Déplacer une colonne excel - Guide
2 réponses
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
13 janv. 2022 à 17:03
13 janv. 2022 à 17:03
Bonjour
Faire Alt F11 pour accéder à l'éditeur.
Insérer un module et mettre ce code:
Lancer la macro
Faire Alt F11 pour accéder à l'éditeur.
Insérer un module et mettre ce code:
Option Explicit
Sub savepdf()
'Déclare la variable objet Worksheet
Dim Ws As Worksheet
Dim nom As String
Dim chemin As String
'Boucle sur toutes les feuille de calcul du classeur. Les onglets graphiques ne sont pas pris
'en compte.
'ThisWorkbook correspond à l'objet classeur contenant la macro
For Each Ws In ThisWorkbook.Worksheets
Ws.Select
If Range("T1").Value = 1 Then
nom = Range("U1").Value
chemin = Range("V1").Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
chemin & "\" & nom & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End If
Next Ws
End Sub
Lancer la macro
