Enregistrer un PDF en format TXT par VBA
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:
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!