Discussion :

[mumu64]

Bonjour,

Je suis encore sur mon problème d'ouverture d'Excel par Access....
J'ai écrit ce bout de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application")
xlApp.Workbooks.Open "C:\mondossier\monfichier.xls"
xlApp.Visible = True

Le problème, c'est que de temps à autre, pas à chaque fois, j'ai une fenêtre d'erreur qui me demande de cliquer sur "basculer vers" pour pouvoir activer un Inputbox écrit dans monfichier.xls.
Du coup, je me demande s'il est possible d'écrire une ligne équivalente à "basculer vers" à la place de xlApp.visible = true ???

Quelqu'un aurait-il la solution ? pour l'instant j'ai rien trouvé sur la FAQ....

D'avance merci !!

Mumu64

[Invité]

Bonjour

Est-ce que cela arrive au premier lancement de ton code après redémarrage de ton ordinateur ?

Est-ce que dans ton code tu fermes correctement le classeur ?

Starec

[mumu64]

Salut Starec,

Le message d'erreur se manifeste quand je fais des essais plusieurs fois de suite et quand je laisse excel ouvert entre deux essais. Sans redémarrer le PC entre temps....... Sinon, ça marche correctement si excel est fermé au moment de l'essai.
Mais j'aimerais que ça marche si Excel est ouvert........

Merci !