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
|
DoEvents
SendKeys "^p"
DoEvents
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
DoEvents
SendKeys "^c"
DoEvents
SendKeys "{ESC}"
DoEvents
SendKeys "%{F4}"
DoEvents
ThisWorkbook.Worksheets("Feuil2").Range("A1").NumberFormat = "@"
ThisWorkbook.Activate
Worksheets("Feuil2").Select
Range("A1").Select
ThisWorkbook.Worksheets("Feuil2").PasteSpecial Format:="Texte Unicode", Link:=False, DisplayAsIcon:=False
num = ThisWorkbook.Worksheets("Feuil2").Range("A1")
If InStr(num, "-") <> 0 Then
num = Trim(Split(num, "-")(1))
Else
num = 1
End If
ThisWorkbook.Worksheets("Feuil1").Range("A1") = num
Worksheets("Feuil1").Select
End Sub |
Partager