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
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 !
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
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 !
