Ouvrir successivement plusieurs fichiers [Résolu]

[Arsene12]

Bonsoir,

Je voudrais trouver une méthode qui me permette d'ouvrir successivement tous les fichiers d'un répertoire. Actuellement, j'utilise un code qui m'oblige à énumérer tous les fichiers :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    v1 = 1    
    While v1 < 1000     
If v1 = 1 Then v2 = "MonFichier1"
If v1 = 2 Then v2 = "MonFichier2"
...
...
If v1 = 8 Then v2 = "MonFichier999"
If v1 = 9 Then v2 = "MonFichier1000"  
 
    ChangeFileOpenDirectory "C:\MonDossier"
    Documents.Open FileName:= v2...
    Application.Run MacroName:="MaMacro"        
            v1 = v1 + 1  
    Wend
      End

J'ai cherché sur les forums, j'ai pas trouvé la solution. Je pense qu'il devrait exister un code simple pour cette opération.

[Heureux-oli]

Salut,

Il existe une bibliothèque qui permet la manipulation des fichiers : Micrsoft Scripting Runtime (FSO)

http://warin.developpez.com/access/fichiers/

Il suffit de la déclarer et d'utiliser ses objets.

To code devrait ressembler à ça :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim oFSO As FileSystemObject
Dim oFol As Folder
Dim oFil As File
 
Set oFSO = New FileSystemObject
Set oFol = oFSO.GetFolder("c:\temp\")
 
For each oFil in oFol.Files
    Documents.Open FileName:=oFil.path
Next Ofil
 
Set oFol = Nothing
Set oFSO = Nothing

si tu as d'autres fichiers que des documents dans le répertoire, il faut faire un test sur l'extention du fichier avant de l'ouvrir.

Si tu as des sous-répertoires, il faut utiliser la même bibliothèque, mais d'une autre façon.
Une façon de faire est décrite là : http://access.developpez.com/sources...ercheRecursive

[Arsene12]

Merci. J'ai recopiéle code tel quel, et j'ai un message d'erreur qui apparaît : "Type défini par l'utilisateur non défini"

=> oFSO As FileSystemObject

J'aimerais savoir comment ajouter la référence Microsoft Scripting Runtime, car d'après mes recherches l'erreur viendrait de là.

(j'ai lu ceci : N'oubliez pas d'ajouter la référence Microsoft Scripting Runtime à votre projet sans quoi une erreur sera levée)

[Heureux-oli]

Salut,

C'est ce qui te manque, la référence.

Là : http://word.developpez.com/faq/index...tion_reference

[Arsene12]

Je m'excuse, je suis arrivé à le rajouter, c'est tout simple. Il suffit d'aller sur :

VBE, menu Outils / Références...

Lorsque le sous-menu "Références" dans "Outils" est grisé, il faut appuyer sur le bouton qui affiche un carré (sa bulle d'aide est "Réinitialiser")