Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "%f", True
WshShell.SendKeys "i", True
Sleep 10
WshShell.SendKeys " ", True
WshShell.SendKeys "{tab 3}", True
WshShell.SendKeys "~", True
Sleep 600
WshShell.SendKeys NomFichier, True
WshShell.SendKeys "~", True
Sleep 10
WshShell.SendKeys "{tab 3}", True
WshShell.SendKeys "~", True
If LongPx = 0 Then
Exit Sub
End If
Sleep 10
MyData.SetText LongPx
MyData.PutInClipboard
WshShell.SendKeys "^v", True
WshShell.SendKeys "{tab}", True
Sleep 10
MyData.SetText LargPx
MyData.PutInClipboard
WshShell.SendKeys "^v", True