Problème de dates avec un copier/coller depuis PDF
Bonjour, j'ai un énorme problème avec le format de mes dates.
En fait j'ai besoin d'importer les infos d'un PDF dans une feuille excel pour faire ressortir certaines données dont j'ai besoin par la suite. je commence par ouvrir le PDf avec la fonction shellExecute, en suite via les sendkeys je selectionne les champs dans le PDF, je les copie et en suite je les colle dans un feuille excel.
Mais voila le problème c'est que excel me transforme les dates !!! Il me les mets au format US, il m'échange le mois et les jours sur les 12 premiers jours de chaque mois...
Quand je fais le copier coller (même procédure que la macro) mais à la main, ca ne me le fais pas... Je n'arrive pas à comprendre.
Voici la fonction d'importation de mon PDF :
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
39
| Function impr_OF_GC(sfichier As String, chemin As String)
Dim sAcro As String
Dim wk As ThisWorkbook
Dim i As String
Dim imprim_defaut As String
Dim reachRange As String
Change_Default_Printer ("RV & NB")
sAcro = "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe"
ShellExecute 0, "open", sfichier, "", "", 0
Application.Wait (Now + TimeValue("00:00:03"))
Application.SendKeys "^p", True
Application.Wait (Now + TimeValue("00:00:03"))
Application.SendKeys "%g", True
Application.SendKeys "{TAB}", True
Application.SendKeys "{LEFT}", True
Application.SendKeys "{RIGHT}", True
Application.SendKeys "{BS}", True
Application.SendKeys "2", True
Application.Wait (Now + TimeValue("00:00:02"))
Application.SendKeys "~", True
Application.Wait (Now + TimeValue("00:00:06"))
'selectionne tout le pdf
SendKeys "^a", True
'attend 1 seconde l'exe de la cmd
Application.Wait Now + TimeValue("00:00:01")
'copie les champs du pdf
SendKeys "^c"
'attend 1 seconde l'exe de la cmd
Application.Wait Now + TimeValue("00:00:01")
'active le workbook et la feuille d'import
ThisWorkbook.activate
'vide la feuille d'import
import.Cells.ClearContents
import.activate
Application.Range("a2").Select
import.PasteSpecial Format:="Texte Unicode", Link:=False, _
DisplayAsIcon:=False, NoHTMLFormatting:=True
KillAcrd32
End Function |
J'ai essayé avec un paste classique, ça ne fonctionne pas, ici avec un pasteSpécial, ça ne fonctionne pas non plus... Je ne sais pas trop quoi faire d'autre.
Je précise que mes dates d'entrée sont au format JJ/MM/AAAA
Si quelqu'un a une idée
Merci
