Re : SVP Besoin d' aide pour adapter une macro "JBOBO"
Re bonjour a tous,
ci après le code:
Sub Export_pdf_xls()
'ws In Worksheets
'Dim ws As Variant
'ws.Select
mystr = Format(Date, "dd-mm-yyyy")
Sheets(Array(ActiveSheet.Name)).Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
ThisWorkbook.Path & "\" & ActiveSheet.Name & " " & mystr & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Application.ActivePrinter = "PDFCreator sur Ne00:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"PDFCreator sur Ne00:"
ActiveWindow.Close
FileCopy "\\Data\" & ActiveSheet.Name & " " & mystr & ".pdf", ThisWorkbook.Path & "\" & ActiveSheet.Name & " " & mystr & ".pdf"
Kill (ThisWorkbook.Path & "\" & ActiveSheet.Name & " " & mystr & ".xls") ', FileFormat:= _"
Kill ("\\Data\" & ActiveSheet.Name & " " & mystr & ".pdf")
Application.DisplayAlerts = True
End Sub
Je galère a chercher une solution, mais je n' y arrive pas. Il y a eu des fausses joie en remplacant "
Sheets(Array(ActiveSheet.Name)).Copy
par
activesheet.select et selection.copy
mais cela enregistrement l' ensemble du classeur....
Merci pour votre aide