Dante Amor respondió:
Te anexo la macro para hacer las 2 copias Sub PDFyLibro() 'Por.Dante Amor Application.DisplayAlerts = False Application.ScreenUpdating = False Set l1 = ThisWorkbook ruta1 = "C:\ruta\de\ejemplo\FacturasPDF\" ruta2 = "C:\ruta\de\ejemplo\FacturasExcel\"...