Discussion :

[Nako_lito]

Bonjour a tous,

je souhaite ouvrir un fichier Excel via ACCESS, mais le problème c'est que certain fichier ont des liaisons externe ce qui arrete la macro en plein milieu.
Il est inconcevable de cliquer sur "ne pas mettre a jour" a chaque fois, il y a plus de 400 classeur qui vont être ouvert.

je pensais a un sendkeys, mais malheureusement je ne sais pas bien l'utiliser, j'ai eu beau regarder sur google, je n'ai pas réussi a comprendre comment l'utiliser ... (je dois etre débile )

je vous mets le code que j'ai:

Code :

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

1
2
3
4
5
6
 
Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
SendKeys "{RIGHT}{~}", True
xlApp.Workbooks.Open ("B:\monFichier.xls")

Merci par avance.

[helas]

Bonjour,
et avec

Code :

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

1
2
 
xlApp.Workbooks.Open ("B:\monFichier.xls", 0)

Le 0 interdirait la mise à jour des liaisons ( voir l'aide )
je n'ai pas testé.