Odtnhj

I have read a lot of topics about this, but nothing works.
I want to take a PDF already existing

PDFPath = "C:UsersDesktopTest PDF.pdf"

Select all, copy it
then select Excel, and paste everything in TxT format from A2.

Maybe I have problems with Library ?
I have Acrobat Reader DC.

C:Program Files (x86)AdobeAcrobat Reader DCAcroRd32.exe

I already put 2 libraries :

• Adobe Acrobat Browser Control Type Library 1.0


• Adobe Reader File Preview Type Library

.

 Sub pdf_to_excel_adobe()

Dim myWorksheet As Worksheet
Dim adobeReaderPath As String
Dim pathAndFileName As String
Dim shellPathName As String

Set myWorksheet = ActiveWorkbook.Worksheets("Adobe Reader")


adobeReaderPath = "C:Program Files (x86)AdobeAcrobat Reader DCReaderAcroRd32.exe"
pathAndFileName = "C:UsersStagiaireDesktopTest PDF.pdf"
shellPathName = adobeReaderPath & " """ & pathAndFileName & """"

Call Shell( _
 pathname:=shellPathName, _
 windowstyle:=vbNormalFocus)

Application.Wait Now + TimeValue("0:00:03")

SendKeys "%vpc"
SendKeys "^a"
SendKeys "^c"


Application.Wait Now + TimeValue("0:00:30")

With myWorksheet
 .Range("A2").Select
 .PasteSpecial Format:="Text"
End With

Call Shell("TaskKill /F /IM AcroRd32.exe", vbHide)


End Sub

It say that there is a problem with Selection from Range at this line :

.Range("A2").Select

EDIT :

I changed with that :

With myWorksheet
 .Activate
 .Range("A2").Select
 .PasteSpecial Format:="Text"
End With

But it say now that I have the same problem with PasteSpecial…

EDIT :

Now changed with that and it is Working !!!

' activate this wokbook
Windows("Test pdf import.xlsm").Activate
ActiveWorkbook.Worksheets("Adobe Reader").Activate
Range("A2").Select
ActiveSheet.Paste

The problem were Something about the select/activate fonction I think...