Bonjour .
Je déclenche l'ouverture de exel après y avoir exporté une requete avec le code.
Le système fonctionne bien mais plante si jamais l'application est déja ouverte.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 Dim wbk As Excel.Workbook Set wbk = GetObject("C:\STOCK_OUTILS\STATISTIQUE\CONSO_PAR_MACHINES " & Format(Now(), "DD-MM-YYYY") & " .xls") wbk.Application.Visible = True Set wbk = wbk.Application.Workbooks.Open("C:\STOCK_OUTILS\STATISTIQUE\CONSO_PAR_MACHINES " & Format(Now(), "DD-MM-YYYY") & " .xls") Set wbk = Nothing
Est il possible de faire un test pour savoir si le fichier exel est déja ouvert ?
Et comment le codé?
D'avance Merci pour votre aide
Partager