XL 2016 La méthode 'paste' de l'objet 'worksheet' a échoué

[eilalab1996]

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

 

[fanch55]

Salut,
Avec les fichiers fournis, aucun problème lors du Paste .

Vous pourriez toutefois tester le classeur joint
(modifiez le fichier en hyperlien)

 

[eilalab1996]

salut
Merci pour votre réponse cependant à chaque fois que j'exécute il m'indique un erreur
Merci de m'aider

 

[fanch55]

modifiez le fichier en hyperlien
document modifié

 

[eilalab1996]

Salut,
J'ai modifié le lien hypertexte mais ça m'affiche encore le même type d'erreur.

 

[patricktoulon]

re
bonjour
c'est normal
selon le pc et ou son UC occuper le folow va mettre plus ou moins de temp a ouvrir le pdf
et par pitié vos sendkeys faite les par un wscript.shell avec application vous risquez d'envoyer les touches dans l'application et non dans la fenêtre pdf qui s'ouvre

NomPDF = "C:\Users\212814114\Downloads\BV8010 - CB112.pdf" 'Nom du PDF
ActiveWorkbook.FollowHyperlink NomPDF
' ICI!!!!!! IL TA FAUT UNE GESTION D'ATTENTE du chargement complet du pdf dans l'appinstallée qui s'ouvre '
with createobject("wscript.shell")
.SendKeys "^a" 'sélectionne la totalité du pdf
.SendKeys "^c" 'copie la totalité du pdf
end with
'ICI!!! POUR LES GROS PDF IL FAUT GERER L ATTENTE QUE LE CLIPBOARD AI BOUFFER!!!  LES DONNEES'
WITH ThisWorkbook.Sheets("Sheet1")
.activate
.[A1].select
.Paste
end with

 

[fanch55]

Salut à tous,
J'ai horreur des sendkeys qui fonctionnent aléatoirement ... c'est pour cela que je passe par un Power Query .
Peut-être que le fichier Pdf n'est pas du même type que celui fourni, faire les étapes suivantes:

 

[patricktoulon]

bonjour fanch55
il fonctionne pas aléatoirement
il faut pas utiliser le membre de application c'est tout
celui de wscript.shell fonctionne tres bien

mais il est bien évident que si la fenêtre pdf n'est pas complètement ouverte(donc pas active) ton sendkeys va taper dans la fenêtre active et je te le donne dans le mille la quelle?.. ben excel
LOL et RE LOL

 

[kiki29]

Salut, à lire

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

pour intercaler un Sleep xxxx à l'endroit idoine
ou autre

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

 

[patricktoulon]

bonour @kiki29

j'ai pas voulue les amener dans les api tu le fait

sinon j'ai retrouvé dans mes vieux trucs
ajouter un userform dans le quel on met un webbrowser
et mettre ce code dans le userform

Option Explicit
Public destination As Range
Public Function grabb(fichier, destination As Range)
    With PdfGrabber
        Set .destination = destination
       startupposition = 0
       .Left = 0
       .Top = -15
       .Height = 0
        
         .WebBrowser1.Navigate fichier
         .Show 0
    End With

End Function

Private Sub UserForm_Click()

End Sub

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
     With CreateObject("wscript.shell")
        .SendKeys ("^a")
        .SendKeys ("^c")
    End With
    Application.Wait TimeValue(Now) + 0.00002
   Me.Hide
   With destination
        .Parent.Activate
        .Select
        .Parent.Paste
    End With
    Unload Me
End Sub

dans un module standard une sub pour tester

1. adapter le nom du fichier
2. adater la cellule(1) de destination

Sub test()
fichier = "G:\vba excel\32 Bit And 64 Bit Api Declarations For Vba Developers - Excel Titan.pdf"
PdfGrabber.grabb fichier, Sheets(1).[A1]
End Sub

 

[fanch55]

Salut à tous,

J'ai l'impression qu'on dérive ..

Le copier/coller avec les sendkeys fonctionne correctement sur mon Pc.
Les data du fichier PDF sont bien collés à la queue leu leu dans la première colonne et mon pavé numérique est désactivé , grrrrr..... ( tout ce qui est sendkey le désactive , ce n'est pas nouveau) .

Ce que je proposai à @eilalab1996 c'est une autre approche du Pdf vers Excel via le Power Query ..

 

[kiki29]

Salut, je ne sais pas ce qu'eilalab1996 cherche, une réponse déjà donnée ici

 

[fanch55]

Bonsoir @kiki29 ,
Ben t'avais déjà tout fait ....

 

[job75]

Bonsoir à tous,

Téléchargez les fichiers joints dans le même dossier (le bureau).

Les macros dans le code de la feuille du fichier Excel :

Private Sub CommandButton1_Click()
ThisWorkbook.FollowHyperlink ThisWorkbook.Path & "\BV8010 test.pdf"
Application.OnTime Now + 2 / 86400, Me.CodeName & ".Copie"
End Sub

Sub Copie()
CreateObject("wscript.shell").SendKeys "^a^c" 'sélectionne et copie la totalité du pdf
Application.OnTime Now + 2 / 86400, Me.CodeName & ".Colle"
End Sub

Sub Colle()
ThisWorkbook.Sheets("Sheet1").Activate
Range("A1").PasteSpecial 'colle l'ensemble de la sélection
AppActivate "Excel"
End Sub

Toutes les données copiées du fichier PDF se retrouvent dans la cellule A1.

Le tableau Excel des lignes 7 à 27 est rempli au moyen de cette fonction VBA très simple :

Function Suite$(txt$, ordre%)
On Error Resume Next
Suite = Split(txt)(ordre)
End Function

A+

 

[fanch55]

Salut @job75,
Sur mon Excel 2016, le paste est dispatché directement en colonne A et non pas uniquement en cellule A1 ...