Bonjour à toutes et à tous,
Je cherche à ouvrir à fichier dans une application ouverte, j'arrive à ouvrir une application et un fichier en même temps mais pas quand l'appli est ouverte.
Mon code :
Merci d'avance pour votre aide.
Je cherche à ouvrir à fichier dans une application ouverte, j'arrive à ouvrir une application et un fichier en même temps mais pas quand l'appli est ouverte.
Mon code :
Code:
'Fonction pour voir si l'appli est ouverte
Function ApplyLancee(strChemin As String) As Boolean
On Error Resume Next
Open strChemin For Binary Access Read Write Lock Read Write As #1
Close #1
If Err.Number <> 0 Then
ApplyLancee = True
Err.Clear
End If
End Function
'Code
If ApplyLancee("C:\Program Files\Mon_appli.exe") = True Then
MsgBox "l'application est déja lancéé"
Shell "C:\Mes documents\Mon fichier.(extension)" 'là j'ai un problème !!!!
Else
'MsgBox "application non lancée"
Shell "C:\Program Files\Mon_appli.exe C:\Mes documents\Mon fichier.(extension)" 'là tout va bien
End If
Merci d'avance pour votre aide.