MACRO Enregistrement pdf nominatif

Antoine MAZET

XLDnaute Nouveau
Bonjour,
Dans le cadre de mon travail je manipule chaque jour un fichier excel qui comprend 43 onglets différents. J'aimerais utiliser une macro me permettant d'imprimer chacun de ces onglets (une page par onglet) en lui donnant un nom différent à chaque fois.

Parmi ces 43 onglets avons dans l'ordre :
- De 1 à 10 = ces onglets nous importe peu
- De 11 à 20 = onglets Q1; Q2; Q3; Q4; Q5; Q6; Q7; Q8; Q9; Q10
- De 21 à 30 = onglets A1; A2; A3; A4; A5; A6; A7; A8; A9; A10
- De 31 à 40 = onglets DT1; DT2; DT3; DT4; DT5; DT6; DT7; DT8; DT9; DT10
-De 41 0 43 = ces onglets nous importe peu

7c1496dde7b8109d75aa764a7b74d119-full.jpg


J'aimerais donc utiliser une macro qui me permettrait d'enregistrer en format PDF les onglets Q1 à Q10 + A1 à A10 + DT1 à DT10 en les nommant de la manière suivante :
- Q1 - (Nom renseigné en cellule [D12] de la feuille en question)
- A1 - (Nom renseigné en cellule [D4] de la feuille en question)
- DT1 - (Nom renseigné en cellule [K2] de la feuille en question)

Pour le moment j'utilise la fonction suivante :

Sub Macro1()
For i = 1 To Sheets.Count
Sheets(i).Select
ChDir "C:\Users\amazet\Desktop"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\amazet\Desktop\feuille_" & i & ".pdf"
Next i
End Sub

Elle me permet d'imprimer toutes les pages en PDF en un seul clique, mais je dois rentrer ensuite chaque nom à la main ce qui me fait perdre un temps fou....

Si quelqu'un sait améliorer cette formule, je suis preneur....
Merci d'avance et bonne journée !
 
Haut Bas