Discussion :

[cassidian]

Bonjour,

Etant dans une impassedepuis plusieurs jours sur une macro excel, je lance une bouteille à la mer en espérant qu'elle ne reste pas sans réponce.


Voila mon probleme: j'ouvre un fichier PDF par vba dans acrobat reader - ok
je veux le sauvegarder en format text - moin ok la!
je referme acrobe reader

voila mon code

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
29
30
31
32
33
34
35
36
37
38
Sub ConvertPDFtoTxt()
 
racine = "C:\......\"  'ajuste le chemin
classeur = "nom du fichier"  ' et le le nom du fichier (sans extension)
 
 ExtPDF = ".pdf"
 ExtTxt = ".txt"
 
 'on ouvre le pdf
 
 Shell "C:\WINDOWS\EXPLORER.EXE /n,/e," & racine & classeur & ExtPDF, vbNormalFocus: Cancel = True
 
'on l'enregistre en txt
Application.Wait Now + TimeValue("0:00:01") 'temporisation à ajuster
 
( la partie enregistrement sous un autre format me pausse problème, je contourne le probleme par sendkeys mais c'est très moche! )
 
'SendKeys "%" 'Alt sa ouvre l'onglet fichier
'SendKeys "~" 'validation d'ouverture d'onglet
'SendKeys "{down}" 'on se promene dans les menus de l'onglet fichier
'SendKeys "{down}"
'SendKeys "{down}"
'SendKeys "{down}"
'SendKeys "{right}" 'on choisie enregistrer sous un autre... format texte
'SendKeys "~" 'valide
'SendKeys "~" 'valide
 
 
 
 
 
'Application.Wait Now + TimeValue("0:00:02")
 
 
'on ferme reader
 
SendKeys "^q"
End Sub

Pour certaines raisons je ne peut utiliser d'autre logiciel pour convertir en TXT (trop facile sinon), j'aimerais savoir si il existe une ou des ligne de codes pour remplacer les commandes sendkeys a la suite.
disons un genre "save as"!!

Voila j'espere que quelqu'un pourra apporter ces lumières!

[kiki29]

Salut, voir Copier/Coller le texte d'un PDF dans une feuille Excel via des SendKeys. Si cela peut t'aider, c'est un pis-aller.

A voir, pour info ceci , même si depuis elle n'est plus totalement à jour.