Problème import données pdf
Bonjour,
Lorsque j'importe des données issues d'un fichier pdf, j'ai les signes "-" qui ne sont pas importés et qui le plus souvent me génèrent un retour à la ligne.
Et ceci quelle que soit la façon d'ouvrir et de convertir le fichier pdf. Le code ci-dessous utilise SendKey, mais en exécutant pdftotext.exe j'ai le même soucis.
Voici le code que j'utilise :
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 GetPDFnow()
Dim varRetVal As Variant, strFullyPathedFileName As String, strDoIt As String
'Add a new worksheet
Sheets.Add After:=Sheets(Sheets.Count)
'Name it
ActiveSheet.Name = "Input01"
'Back to "A1"
Range("A1").Activate
'HERE YOU DEFINE THE FULLY PATHED PDF FILE
strFullyPathedFileName = "G:\Documents\MonFich.pdf"
'HERE YOU SET UP THE SHELL COMMAND
strDoIt = "C:\Program Files (x86)\Adobe\Reader 9.0\Reader\AcroRd32.exe " & strFullyPathedFileName
'The Shell command
varRetVal = Shell(strDoIt, 1)
'Clear CutCopyMode
Application.CutCopyMode = False
AppActivate varRetVal
'Wait some time
Application.Wait Now + TimeValue("00:00:03") ' wait 3 seconds
DoEvents
'IN ACROBAT :
'SELECT ALL
SendKeys "^a"
'COPY
SendKeys "^c"
'EXIT (Close & Exit)
SendKeys "^q"
'Wait some time
Application.Wait Now + TimeValue("00:00:03") ' wait 3 seconds
DoEvents
'Paste
ActiveSheet.Paste
'Go back to cell A1
Call BackToA1
End Sub |
Et voici ce que j'obtiens :
Dans le pdf :
Citation:
10. Les Globe-Trotters 806 695 5 4 0.537
Dans le fichier Excel généré :
Citation:
10. Les GlobeTrotters
806 695 5 4 0.537
Le caractère "-" a été supprimé et à généré un retour à la ligne à la fin du mot suivant...
Quelle est la solution ? CA fait une demi-journée que je cherche et je n'arrive pas à trouver de solution...
