application.visible=false
rétablir la propriété "visible"Mon fichier n'est plus fisible, il y a un moyen de forcer le fichier en affichage ?
application.visible=True
'XLcheck.vbs
' Find an invisible instance of Excel
' from Rob Bruce
Dim objXL,objWD, strMessage
On Error Resume Next
' Try to grab a running instance of Excel:
Set objXL = GetObject(, "Excel.Application")
Set objXL = GetObject(, "Excel.Application")
'Set objWD = GetObject(, "Word.Application")
'Set objWD = GetObject(, "Word.Application")
'objWD.Visible = true
objXL.Visible = true
objXL.Visible = true
sendkeys("~")
' End of VBS code
UserForm1.Show 0