bonjour tt le monde - mon problème du jour est d'ouvrir dans l'application hôte Access des feuilles excel qui se touve à l adress Z:\dossier_prog_vba

et le programme que j'ai fait marche pas bien - il maffiche un message d erreur comme quoi une feuille excel n'est pas trouvé - alors qu'il me précise le nom de cette feuille qui fait parti du dossier Z:\dossier_prog_vba - c bizzare

merci de votre aide.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Compare Database
 
Sub ouvrir_fichiers()
 
Dim apli As Excel.Application
Set apli = New Excel.Application
 
Shell "C:\Program Files\Microsoft Office\OFFICE11\EXCEL.exe"
 
ChDir "Z:\dossier_prog_vba"
monfichier = Dir("*.*")
While monfichier <> ""
 
apli.Workbooks.Open monfichier
 
'Windows("monfichier.xls").Activate
 
monfichier = Dir()
Wend
End Sub