Discussion :

[ash_rmy]

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

[SfJ5Rpw8]

il faut rajouter le chemin..

Code :

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

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

autre chose à quoi sert la ligne :

Code :

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

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

[ash_rmy]

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 :

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

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

[SfJ5Rpw8]

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

Code :

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

1
2
3
 
Set apli = New Excel.Application
Apli.Visible =true

[ash_rmy]

oui merci cela a résolu mon problème

ash.