[vba excel & access] ouvrir feuille excel avec access

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:

---

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

---

il faut rajouter le chemin..

Code:

---

1 2	apli.Workbooks.Open "Z:\dossier_prog_vba\" & monfichier

---

autre chose à quoi sert la ligne :

Code:

---

1 2	Shell "C:\Program Files\Microsoft Office\OFFICE11\EXCEL.exe"

---

merci de ton aide bbil

pour le shell je sais juste que ça lance un éxécutable - on m a dit que c'est pour éviter que sa bugue qu il faut le mettre...

sinon le prog marche à moitié car il compile bien (sa pas d erreur ) cependant il m ouvre pas de feuille excel et lorsque je louvre avec clike le pc maffiche un message d erreur : le document est déjà ouvert. bizzare non??


voici le code que j' ai modifié avec le post précédent.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

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 "Z:\dossier_prog_vba\" & monfichier   monfichier = Dir() Wend End Sub

---

il l'ouvre bien mais n'est pas visible par défaut.. rajoute

Code:

---

1 2 3

Set apli = New Excel.Application Apli.Visible =true

---

oui merci cela a résolu mon problème

ash.