Discussion :

[Yves2507]

Bonjour .

Je déclenche l'ouverture de exel après y avoir exporté une requete avec le code.

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

Le système fonctionne bien mais plante si jamais l'application est déja ouverte.
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

[Pitou5464]

je pense qu'il y aura des trucs qui peuvent t'aider

http://www.developpez.net/forums/sho...ighlight=excel

[ft035580]

Salut,

Inspires toi du post "déclenchement de Vérification de fichiers ouverts " de cette même page.(Aujourd'hui 10:21).

[pgz]

Bonjour,

Sur ma machine ça ne plante pas. Chez toi ça plante sur quelle ligne?
Sinon un getobject sur Excel.Application renvoie une erreur si aucune fenêtre xl n'est ouverte.

PGZ

[Pitou5464]

createobject si aucune fenetre excel est ouvert
getobject si ya une fenetre d'ouverte
c simple...

[Yves2507]

J'ai utiliser la méthode de ft035580

Sur le post "déclenchement de Vérification de fichiers ouverts " de cette même page.(Aujourd'hui 10:21).

et cela fonctionne à merveille.

Merci à tous.

Encore quelques millions d'années et je serai autonome sur Access !!!!!!!!

[Pitou5464]

oublie pas le tag résolu.