inventaires produits chimiquesdepuis pdf "Fiches de Données Sécurité"

Version imprimable

Voir 40 message(s) de cette discussion en une page

26/06/2019, 10h25
IronHeavy

Nickel - la visioneuse affiche convenablement l'intégralité du pdf, la navigation fonctionne comme tu l'as précisé!

PS : tes animations son géniales: pertinentes et simples !
26/06/2019, 10h36
patricktoulon

re

bon
alors maintenant essaie la visionneuse en ayant une fenêtré chrome ou ie ou edge ouverte en arrière plan (derrière Excel)
je veux juste voir si ta pas un soucis de priorité

re je viens de me rendre compte que sur W10 sendkeys ctrl +a sélectionnais tout le pdf alors qu'avec W7 et excel2007 sa sélectionne juste la page

il est peut être la notre problème
26/06/2019, 10h51
IronHeavy

Cela fonctionne aussi bien!

J'utilise excel 2013 sur mon pc win 10 et excel 2010 sur win ? au boulot...
26/06/2019, 11h08
patricktoulon

1 pièce(s) jointe(s)

re

re
bon ben chez moi W7 2007, w10 2013 ca match

sinon on sera obligé de faire un principe quasiment identique mais avec le vrai Reader pdf installé sur ta bécane
26/06/2019, 11h13
IronHeavy

L'exécution de la fonction est très lente... peut être n'aboutit elle pas?
26/06/2019, 11h15
patricktoulon

re

il me viens une idée
il me semble que tu a dis que tu n'avais pas le droit d'installer une app au boulot

MAIS !!!
a tu le droit d'exécuter des petites apps portables(non installé)parce que dans ce cas la on se servirait de pdftotext.exe qui est portable
26/06/2019, 11h41
IronHeavy

oui probablement!

de toutes manière, si je développe des applis sur mon pc perso qui fonctionnent selon les intérêts de l'entreprise, je pourrais faire une demande d'autorisation d'application je pense (mais les délais... aïe aïe ïe!)

Du coup, comment proposes tu de procéder?

Attends!! on a pas tout essayé en core

voila un vieux code qui a déjà pas mal d'année

en esperant que tu es IE dispo bien sur

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub test()
    Dim IE As Object, T
     Dim filetoopen As Variant
    ChDrive ("G:\")    'cible le dique dur
    ChDir "G:\vba excel"    'cible le dossier
    filetoopen = Application.GetOpenFilename("Text Files (*.pdf), *.pdf", 1, "ouvrir un fichier")
    If filetoopen <> False Then
 
 
    Set IE = CreateObject("InternetExplorer.Application")
    With IE
        While .Busy: DoEvents: Wend
        .Visible = True
        IE.navigate filetoopen
    End With
    Application.Wait (Now + TimeValue("00:00:02"))    'pause
    With CreateObject("WScript.Shell")    'creation wsshell dynamique late binding
        .SendKeys "^a", True    'selectionne tout
        .SendKeys "^c", True    'copy
        Application.Wait (Now + TimeValue("00:00:01"))    'pause
        .SendKeys "%{F4}", True    'ferme la fenetre
        '----------------------------------------------------------------------------------------
        'récupération du text dans le presse papier dans la variable T
        With CreateObject("htmlfile"): T = .parentwindow.clipboardData.GetData("TEXT"): End With
        '----------------------------------------------------------------------------------------
    End With
    'maintenant on a le choix
    'collage dans le sheet de ce qu'il y a dans le presse papier
    With ActiveSheet: .Cells(1, 1).Select: .Paste: End With
    'OU
    'utilisation de la variable T exemple :affichage du text de  la  variable T
    MsgBox "RUBRIQUE 14" & Split(Split(T, "RUBRIQUE 14")(1), "RUBRIQUE ")(0)
Else
End If
End Sub

dis moi si tu a bien la rubrique 14 dans le message

26/06/2019, 14h26
IronHeavy

l'indice n'appartient pas à la sélection

Code:

MsgBox "RUBRIQUE 14" & Split(Split(T, "RUBRIQUE 14")(1), "RUBRIQUE ")(0)

deuxième essai:" erreur d'exéution 94 : utilisation icorrecte de Null" après désactivation de activesheete ...paste
26/06/2019, 14h50
patricktoulon

re

re
Bon il est clair que tu n'a pas accès a ton clipboard de manière fiable

pour le coup si tu a les outils élémentaires en vrac je sais plus quoi te proposer

perso j'ai testé sur 2007;2013:2016 W7 et W10 et j'ai pas de soucis toutes mes solutions fonctionnent même les plus vielles qui ont plusieurs années
aurait tu essayé par hasard d'augmenter les wait d'une ou 2 seconde de plus

et d'après plusieurs post que j'ai pu lire office 2010 c'est pas fait pour aider non plus
26/06/2019, 15h03
IronHeavy

Ah AAAAAAH !

avec 2 sec de + sur les waits, ta dernière proposition fonctionne!
26/06/2019, 15h06
patricktoulon

re

Ok c'est bien ce que je pensais puré de truc pourri de W10:ptdr:
bon je vais adapter avec mon UserForm perso si c'est possible
26/06/2019, 15h14
patricktoulon

1 pièce(s) jointe(s)

re

re
logiquement maintenant celui ci devrait fonctionner

si ca fonctionne je te le rend plus générique au niveau de la section des parties pour l'exploiter pour d'autres pdfs
26/06/2019, 15h48
IronHeavy

Grrrrrrrrr...

Erreur d'éxécution '94' : référence incorrecte de null

Code:

GetPDFtexte = .T
26/06/2019, 16h17
patricktoulon

re

re
non mais la tu es en train de me rendre fou toi

maintenant c'est la variable T en public du UserForm qui n'est pas accessible

ta des soucis avec tes librairies toi et costaud les soucis
même si ca ne fonctionne pas t devrait te renvoyer une chaine vide(= à vbnullstring)
26/06/2019, 16h41
patricktoulon

1 pièce(s) jointe(s)

re

re
tiens voila une version plus générique
si ca fonctionne pas je te recommande a minima de réinstaller office et une autre version si tu peux
j'ai mis 5 secondes d'attente après plus c'est de la connerie ,5 secondes c'est déjà énorme pour un texte comme celui la
j'ai agrandi le UserForm pour que tu vois ce qu'il s'y passe

après ca je peux plus rien pour toi mémé pdf2text utilise le clipboard(en ligne de commande) alors ca servirait a rien d'aller chercher un élément externe
lance la sub et ne touche plus rien
26/06/2019, 16h56
IronHeavy

je suis désolé de te faire perdre des cheveux!

je rencontre: utilisation incorrecte de null

Code:

With CreateObject("htmlfile"): T = .parentwindow.clipboardData.GetData("TEXT"): End With

puis :"ereur d'exécution - argument non valide"

Code:

CreateObject("htmlfile").parentwindow.clipboardData.setData "TEXT", rubrique

avec 2 versions d'excel (2007 propre et 2013 bof) - je testerai lundi sur excel 2010 au boulot (là je suis en formation).

je te remercie pour tes efforts
26/06/2019, 17h00
Arkham46

Bonjour,

Il est inutile de réinstaller office.
On ne peut pas jouer avec des sedkeys et temporisations, puis mettre en cause l'installation.
Il n'est pas facile de lire des pdf, c'est l'utilité de ce format.
Désolé.
26/06/2019, 17h25
patricktoulon

re

bonjour arkham46

je n'ai aucun soucis avec les sendkeys par wscript.shell sur le control webbrowser dans le UserForm
que ce soit sur 2007 W7 ou 2013 W7 ou 2016 W10

a partir de 2013 et/ ou avec W10 il y a en effet une temporisation nécessaire pour l'accès au clipboard

mais je match a tout les coups

les erreurs sont jamais les mêmes chez lui
un coup c'est le clip
un coup c'est la variable text
un coup c'est la gestion d'attente

on en fini plus
alors que je peux t'affirmer que chez moi sur 2007,2013,2016 en (32 bits)ca match a 100%
2007 et 2013 sont sur un même pc
2016 est sur un pc récent avec W10
26/06/2019, 18h02
Arkham46

Patrick,

Ce qui fonctionne chez toi ne fonctionne pas toujours chez les autres.
D'ailleurs chez moi ça ne fonctionne pas.

Voir 40 message(s) de cette discussion en une page