texsolne35
XLDnaute Nouveau
Bonjour,
J'ai un souci concernant une macro qui fonctionnait bien en début d'année mais qui ne fonctionne plus maintenant, voilà le code utilisé :
Sub Save_PDF()
' enregistrer plusieurs onglets en un pdf
Dim nom_pdf As String
Dim sDate As String
' identifier les noms fichier et format date
nom_pdf = "mon pdf.pdf"
sDate = Format(Now, "dd mm yyyy") 'Format(Now, "dd mmmm yyyy")
'selectionner les onglets par nom et les selectionner
Sheets(Array("Sommaire", "Présentation fournisseurs", "Origine - Caractéristiques", _
"Aptitude au contact", "Déclaration de substances", "REACH", _
"Etiquetage-Condi-Tracabilité ", "Déclaration environnementale", _
"Coordonnées crise", "Annexe questionnaire qualité")).Select
'créer le pdf
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\" & "CDCemballage_ " & sDate & ".pdf", Quality _
:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub
J'ai un souci concernant une macro qui fonctionnait bien en début d'année mais qui ne fonctionne plus maintenant, voilà le code utilisé :
Sub Save_PDF()
' enregistrer plusieurs onglets en un pdf
Dim nom_pdf As String
Dim sDate As String
' identifier les noms fichier et format date
nom_pdf = "mon pdf.pdf"
sDate = Format(Now, "dd mm yyyy") 'Format(Now, "dd mmmm yyyy")
'selectionner les onglets par nom et les selectionner
Sheets(Array("Sommaire", "Présentation fournisseurs", "Origine - Caractéristiques", _
"Aptitude au contact", "Déclaration de substances", "REACH", _
"Etiquetage-Condi-Tracabilité ", "Déclaration environnementale", _
"Coordonnées crise", "Annexe questionnaire qualité")).Select
'créer le pdf
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\" & "CDCemballage_ " & sDate & ".pdf", Quality _
:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub