Ouverture fichier Excel en boucle via VBA

[mgrelou]

Bonjour le forum,

J'ai à nouveau un petit problème avec VBA !

Je désire écrire une macro qui fait les choses suivantes à partir d'une certaine heure:

- ouvrir le premier fichier excel du dossier (sachant que je ne connais pas le nom du fichier)
- un traitement se lance à l'ouverture du fichier excel, traitement que j'ai déja écrit
- une fois le traitement terminé, fermer le fichier
- supprimer ce fichier
- ouvrir le second fichier Excel (qui est donc devenu le premier de la liste)
- etc etc etc

Mon problème principal réside dans le fait que je ne sais comment lancer tous les fichiers les uns après les autres surtout en ne connaissant pas leur nom !

J'espère que j'ai été assez clair
Merci pour votre attention

 

[Robert]

Re : Ouverture fichier Excel en boucle via VBA

Bonsoir Mgrelou, bonsoir le forum,

à adapter :

Sub Macro1()
Dim sf As Object 'déclare la variable sf (Système de Fichiers)
Dim ca As String 'déclare la variable ca (Chemin d'Accès)
Dim d As Object 'déclare la variable d (Dossiers)
Dim fs As Object 'déclare la variable fs (FichierS)
Dim f As Object 'déclare la variable f (Fichier)
Dim cl As Workbook 'déclare la variable cl (CLasseur)

ca = ThisWorkbook.Path 'définit le chemin d'accès (à adapter à ton cas)
Set sf = CreateObject("Scripting.FileSystemObject") 'définit le système de fichiers sf
Set d = sf.getfolder(ca) 'définit le dossier d
Set fs = d.Files 'définit les fichiers fs
For Each f In fs 'boucle sur tous les fichiers f
    Workbooks.Open (ca & "\" & f.Name) 'ouvre le fichier
    Set cl = ActiveWorkbook 'définit le classeur cl (la variable cl sera utilisée pour le traitement des données)
    'ton code de traitement
    cl.Close SaveChanges:=False 'ferme le classeur cl
Next f 'prochain fichier de la boucle
End Sub

 

[mgrelou]

Re : Ouverture fichier Excel en boucle via VBA

Merci beaucoup Robert !