Ouvrir fichier excel dans une boucle

**Nako_lito** · 06/08/2010, 16h02

Bonjour,

j'ai une question certainement un peu simple sous VBA access, mais bon, sait on jamais.

je souhaite ouvrir en automatique une liste de fichier excel dans un répertoire.

je met le code que j'ai mis et ensuite j'exposerai ma problématique.

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
21
22
23
24
25
26
27
28
29
30
Dim objFSO As Object
Dim objDossier As Object
Dim objExcel As Object
'initialisation des variable
Set objFSO = CreateObject("Scripting.FileSystemObject")
'definit l'objet comme étant un répertoire
Set objDossier = objFSO.GetFolder(Form_FrmAccueil.TextBoxPath)
'définit l'objet comme étant un applicatif excel
Set objExcel = CreateObject("Excel.Application")
 
'ouvrir excel
Excel.Application.Visible = True
 
For Each objExcel In objDossier.Files
'ouvrir le fichier
objExcel.Workbooks.Open objExcel.path
 
------------
------------
------------
 
'ferme le fichier excel.
objExcel.Workbooks.Close saveChanges:=False
 
Next
Excel.Application.Quit
'detruire les variables
Set objFSO = Nothing
Set objDossier = Nothing
Set objExcel = Nothing

Ma problème est le suivant, quand il arrive sur la ligne "objExcel.Workbooks.Open objExcel.path", il m'avertit d'une erreur 438 "propriété ou méthode non gérée par l'objet".

J'ai tenté de mettre le chemin en dur, de ne mettre que "objExcel". J'ai cherché sur g**gle, c'est bien la synthaxe que j'ai appliqué, mais il est nulle part fait référence au fait que la ligne qui ouvre le fichier se trouve dans une boucle.

merci par avance de votre aide.

**Manhexter** · 06/08/2010, 16h47

Salutations,

Pour moi le problème vient de cette ligne :

Code :

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

For Each objExcel In objDossier.Files

Elle defini ta variable objExcel comme un objet File et non plus comme étant une variable de type Excel. Application
C'est pour cela qu'il te dit propriété non géré par cet objet. Essaies de changer de variable sur cette ligne.

Cordialement,