Générer pdf

clelia1897 -  
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,
J'ai un excel(ci joint), avec un nombre de pages variables, on peut sélectionner un certain nombre de pages avec le userform1. Mon problème est que ma macro PDF qui génère un pdf à partir du excel, ne fonctionne pas. Il y a une erreur. Et même lorsque ça marche, il ne prend en compte que les deux dernières pages.
Je suis sur excel 2013, donc le redimensionnement des listes ne marchent pas;
Merci d'avance
<Sub pdf()
Sheets("Feuil5").Select
Nom = Range("B13") & " - " & Range("B12") & "(" & Range("B9") & ")" & ".xlsm"

sRep = "C:\Users\Desktop\"
NomPDF = sRep & Nom
maTab = Array("Feuil5")

If Sheets("Feuil1").Visible = True Then

maTab = Array(maTab, "Feuil1")
End If

Sheets(maTab).Select
ThisWorkbook.PrintPreview
'ActiveWindow.SelectedSheets.PrintOut copies:=1, Collate:=True


'ActiveWindow.SelectedSheets.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NomPDF, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

End Sub>

Configuration: Windows / Chrome 80.0.3987.122
A voir également:

1 réponse

Réponse 1 / 1
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
Bonjour,
Eh bien, je ne trouve pas le : J'ai un excel(ci joint)!!!
0

Discussions similaires

Quelqu'un a le corrigé du livre transmath 3eme ?
leila -
irongege -

1 réponse