cedric cadre
XLDnaute Nouveau
Bonjour,
Voila , j'ai une macro qui donne ça pour enregistrer en PDF certaines feuilles de mon classeur:
Sub ImpressionGlobale()
If Sheets("Impression").Range("B3").Value <> "" Then Sheets("Calcul Global").Select Replace:=False
...........................
If Sheets("Impression").Range("B15").Value <> "" Then Sheets("Page1").Select Replace:=False
If Sheets("Impression").Range("B16").Value <> "" Then Sheets("PageN").Select Replace:=False
Sheets("Page1").Activate
ChDir "C:\Users\pose soleil\Desktop\Offre Particuliers ASE"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\pose soleil\Desktop\Offre Particuliers ASE\pdf.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub
ça marche nikel, mais je souhaiterai que quand on l’exécute, la fenêtre s'ouvre pour me demander ou je veux l'enregistrer et à quel nom.
je sais que c'est après "filename= " qu'il faut mettre autre chose, mais koi?
merci
Voila , j'ai une macro qui donne ça pour enregistrer en PDF certaines feuilles de mon classeur:
Sub ImpressionGlobale()
If Sheets("Impression").Range("B3").Value <> "" Then Sheets("Calcul Global").Select Replace:=False
...........................
If Sheets("Impression").Range("B15").Value <> "" Then Sheets("Page1").Select Replace:=False
If Sheets("Impression").Range("B16").Value <> "" Then Sheets("PageN").Select Replace:=False
Sheets("Page1").Activate
ChDir "C:\Users\pose soleil\Desktop\Offre Particuliers ASE"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\pose soleil\Desktop\Offre Particuliers ASE\pdf.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub
ça marche nikel, mais je souhaiterai que quand on l’exécute, la fenêtre s'ouvre pour me demander ou je veux l'enregistrer et à quel nom.
je sais que c'est après "filename= " qu'il faut mettre autre chose, mais koi?
merci