eilalab1996
XLDnaute Nouveau
Salut,
J'espère que vous allez bien et en bonne santé.
A chaque fois que je lance le macro un message indiquant que la méthode 'paste' de l'objet 'worksheet' a échoué
Comment je peux améliorer le script svp
Merci
Private Sub CommandButton1_Click()
'Ouvre un PDf et lit les informations
Dim NomPDF As String 'chemin+nom du fichier
Dim NomPdf2 As Object
Dim test As Variant
Dim n As Object
NomPDF = "C:\Users\212814114\Downloads\BV8010 - CB112.pdf" 'Nom du PDF
ActiveWorkbook.FollowHyperlink NomPDF
Application.SendKeys "^a" 'sélectionne la totalité du pdf
Application.SendKeys "^c" 'copie la totalité du pdf
ThisWorkbook.Sheets("Sheet1").Activate
Range("A1").PasteSpecial 'coller l'ensemble de ma sélection
End Sub
J'espère que vous allez bien et en bonne santé.
A chaque fois que je lance le macro un message indiquant que la méthode 'paste' de l'objet 'worksheet' a échoué
Comment je peux améliorer le script svp
Merci
Private Sub CommandButton1_Click()
'Ouvre un PDf et lit les informations
Dim NomPDF As String 'chemin+nom du fichier
Dim NomPdf2 As Object
Dim test As Variant
Dim n As Object
NomPDF = "C:\Users\212814114\Downloads\BV8010 - CB112.pdf" 'Nom du PDF
ActiveWorkbook.FollowHyperlink NomPDF
Application.SendKeys "^a" 'sélectionne la totalité du pdf
Application.SendKeys "^c" 'copie la totalité du pdf
ThisWorkbook.Sheets("Sheet1").Activate
Range("A1").PasteSpecial 'coller l'ensemble de ma sélection
End Sub