Discussion :

[RyuAutodidacte]

Re, je viens de tester mais sur Mac le code pour le presse papier n'a pa l'air de passer,
c'est pour cela d'ailleurs que je l'ai fait comme sur le post #123
ce type d'erreur ne me dit rien je suppose donc que c'est de l'activeX, non?



Sais tu à quoi ça correspond ?

Edit : Modif post : c'est bon j'ai trouvé l'erreur, au taf j'ai copié avec Acrobat pro, et là je l'ai fait avec un Reader mais ça à l'ai de poser un problème - je vais voir

[patricktoulon]

l'erreur 8004006A signal que le format dans le presspapier n'est pas bon cela voudrais dire que ca n'apas eu le temps de copier
peut etre mettre une temporisation je vais essayer de reproduire cette erreur

rallonge la pause augmente le 3

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.OnTime Now + 0.00003, "colle2"

[RyuAutodidacte]

Je ne suis pas sur mais tu le mets où exactement ce code ??

Pour info je ne sais pas si le problème viens de là, mais j'ai mis acrobat Reader DC la copie a fonctionné mais ne marche pas avec VBA - idem avec la version 11 d'acrobat reader
par contre si je copie avec acrobat reader DC ou 11 et que je le met dans un fichier texte puis copie de fichier texte là c'est ok
à mon taf j'ai acrobat Pro et c'est ok le problème doit venir surement alors d'acrobat reader.
Qu'en penses-tu ?

[patricktoulon]

regarde si l'exe s'appelle bien acrod32.exe pour le DC pour le pro je sais c'est bon
il faudrait changer la méthode de détermination du chemin de l'exécutable pdf

[RyuAutodidacte]

Hola attention, là je suis sur Mac OS X
Si tu me dis que ça marche que sur PC, il faut que je boot Windows

[patricktoulon]

ben oui ca fonctionne sur PC Windows tu l'a bien vu dans la capture plus haut non??
maintenant avec adobe Reader DC je sais pas il faudrait modifier la partie chemin exécutable pdf

[RyuAutodidacte]

Re,
j'ai installé adobe Reader DC sur windows -> ctrl C -> ctrl V _ du PDF
puis lancer la macro colle2
C'est ok
par contre :

1795	1	2h17:35.794	67	1:51.219	11h47:36.152000
1811	2h18:48.459	YELLOW	FLAG
1820	1	2h19:27.725	68	1:51.931	11h49:28.083000
1842	1	2h22:15.331	69	2:47.606	11h52:15.689000
1861	2h25:00.850	START
1865	1	2h25:07.170	70	2:51.839	11h55:07.528000

Les parties avec "YELLOW FLAG" et "START" ne sont pas ok

PS :J'ai testé aussi sur mon Mac en reprenant les Replace (vite fait - j'ai pas tout fait) dans mon code et le résultat est quasi similaire (moins les parties que je n'ai pas faites)

[patricktoulon]

je les ai laissé par ce que se sont des interruption et reprise de courses

tu peux les élever dans la boucle des lignes si tu veux "if instr(tabl(i),"yellow")=0 then......
etc.....

[RyuAutodidacte]

Pas de problème pour les laisser, mais il y a un décalage
si tu prends le Yellow, il a pris la place de "2h18:48.459" qui devrait être en 3è colonne (pour le Start => idem) et Yellow en 4è colonne

[patricktoulon]

puré t dur en affaire hein !!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Sub colle2()
Cells.Clear
Dim PP As New MSForms.DataObject, Txt As String, texte, Tabl, i As Long, derlig
 PP.GetFromClipboard: Txt = PP.GetText()
'un peu de netoyage
Txt = Replace(Txt, "[OUT] ", "[OUT]")
Txt = Replace(Txt, "[IN] ", "[IN]")
 Txt = Replace(Txt, "Heure Chrono", "Heure-Chrono")
Txt = Replace(Txt, "YELLOW FLAG", " YELLOW-FLAG")
Txt = Replace(Txt, "START", " START")
Tabl = Split(Txt, "Seq Num Heure Tour Temps Heure-Chrono")
For i = 0 To UBound(Tabl)
If Tabl(i) <> "" Then texte = texte & "Seq Num Heure Tour Temps Heure-Chrono" & vbCrLf & Split(Tabl(i), "VolaSoftControlPdf")(0) & vbCrLf
Next
Tabl = Split(texte, vbCrLf)
 
Cells(1, 1).Resize(UBound(Tabl), 1) = Application.Transpose(Tabl)
Range("A1.H" & Rows.Count).NumberFormat = "@"
Range("a1:a" & Rows.Count).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Range("A1").CurrentRegion.TextToColumns , Space:=True
'il nous reste mainteant un tout petit soucis certaine ligne manque une colonne (la derniere elle est décallée)
'alors
derlig = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To derlig
If Cells(i, "F") = "" Then Cells(i, "F") = Cells(i, "E"): Cells(i, "E") = ""
If Cells(i, "c") = "" Then Cells(i, "c") = Cells(i, "b"): Cells(i, "b") = ""
Next
End Sub

si tu veux décaler d'une colonne en plus les yellox et start
pour le yellow tu ajoute encore un espace dans la ligne de son replace

pour le start en bas tu change le c par D
voila

[RyuAutodidacte]

puré t dur en affaire hein !!!

j'ai repris une grande partie du ménage dans mon code pour le mettre sur Mac/PC

J'ai juste cette partie que j'essaie de comprendre de quel manière tu l as faite :

VolaSoftControlPdf
VAL DE VIENNE
LAMERA CUP
Course
Historique
Volla Tiimiing ((www..volla..ffrr)) // Ciirrcuiitt Prro 5..0..23 DATAWARE Tiimiing & Eventts
timing.dataware.fr 11/09/2016 - 18:07 / Page 1/57

[patricktoulon]

re
en fait je split le text par la ligne "seq num........

je me retrouve donc avec les tables sans sec num... et sans ce paragraphe tout simplement
les "seq num.... je les ajoute a chaque split

c'est assez simple comme raisonnement pourtant

exemple si j'ai "toto robert toto henry toto max toto" et que le le split par "toto"

je me retrouve avec un tableau a 1 dim (array) avec dedans "robert henry max"

c'est plus clair pour toi

[unparia]

Bonjour
de passage dans cette discussion uniquement pour renseigner RyuAutodidacte sur ce point :

Oui en effet Marc, je l'ai testé récemment. Je l'avais testé, afin de voir si il était possible de la faire fonctionner avec un array, sans résultat malheureusement, ça ne marche qu'avec range. Mais efficace et sans boucle

C'est bien évidemment possible, mais ainsi (exemple) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
toto = "1:52.248 1:51.988 1:50.626 1:51.651 1:51.133 1:51.299 1:50.381 1:50.643"
titi = Split(toto, " ") ' on a là un array. On va le traiter
Range("A1:A" & UBound(titi) + 1) = WorksheetFunction.Transpose(titi)

[patricktoulon]

Bonjour
bien evidament unparia
l'object de ce post était cela scinder une chaine par les espace

RYU tu ne m 'a toujours pas donner le chemin complet de ton exécutable pdf

[RyuAutodidacte]

Hi
Patrick :
je vais regarder cela pour faire la dernière modif dans mon code
Pour le chemin de l'appli je regarderai ce soir, car là c'est pas possible

unparia :
Merci pour la démo , en effet cette façon de faire est judicieuse quand l'on utlise l'Array

[RyuAutodidacte]

Hi,
Dsl hier des choses importantes à faire;
j'ai l'info que tu demandais pour le Acrobat DC Reader :
C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe
Merci

[patricktoulon]

tiens
change la sub dans mon fichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub copie(sFichier As String)
    fichier = sFichier
    Shell "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe" & " " & sFichier, vbNormalFocus 'pour adobe DC
    ' Shell "C:\Program Files (x86)\Adobe\Reader 9.0\Reader\AcroRd32.exe" & " " & sFichier, vbNormalFocus pour adob normal et pro
    With CreateObject("WScript.Shell")
        .SendKeys "^a^c", True
        Sleep 3000
        .SendKeys "^q", True
    End With
    'Application.OnTime Now + 0.00003, "pdf_to_fich_text" pour enregistrer en fichier texte
    Application.OnTime Now + 0.00003, "colle2"
 
End Sub

[kiki29]

Salut, juste pour info, fonctionne d'XP à W10 et renvoie le chemin du Reader

[patricktoulon]

bonjour kiki
oui c'est celle que j'utilise mais visible pour reader DC ca ne semble pas fonctionner

peut être que le nom de la clé est différent je sais pas

[kiki29]

Salut, ici fonctionne depuis XP Acrobat Reader 6.x à W10 Acrobat Reader 15.
.