ELLE MARCHE
Bon j'en ai bavé mais avec les combinaisons de touches modifiées maison ca tourne nikel je ma paie même le luxe re refermer mon pdf et adobe après
ca donne ca !
Sub pdffinal()
Const ThePath As String = "K:\trans\"
Dim ThePDF As String
ThePDF = "12345677.pdf"
ThisWorkbook.FollowHyperlink ThePath & ThePDF
SendKeys "%el", True
SendKeys "%ep", True
Sheets("Feuil3").Select
Range("A1").Select
ActiveSheet.PasteSpecial Format:="Texte Unicode", Link:=False, _
DisplayAsIcon:=False
SendKeys "%fq", True
End Sub
Encore merci à tous pour votre aide et bravo à ce forum qui m'a plusieurs fois sauvé la mise
Stephane