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
| Dim CheminDuRepertoire As String
Dim objFSO, objDossier, objFichier
On Error Resume Next
CheminDuRepertoire = "tu mets ici le chemin absolue de ton répertoire"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objDossier = objFSO.GetFolder(CheminDuRepertoire)
If (objDossier.Files.Count > 0) Then
For Each objFichier In objDossier.Files
If (InStr(1, objFichier.Name, ".xls", 1) > 0) Then
' ICI TU FAIS TON TRAITEMENT, Tu ouvres le classeur avec la méthode que je t'ai donné précedement allez je suis gentil, je te donne une ébauche
Set Classeur = Workbooks.Open(Filename:=CheminDuRepertoire & "\" & objFichier.Name)
Classeur.Activate ' Tu actives ton classeur pour pouvoir faire des traitements dedans
' SI TU AS UN TRAITEMENT A FAIRE DANS LE CLASSEUR TU LE FAIS ICI
Classeur.save ' Tu sauvegardes ton classeur
Classeur.close ' et tu fermes ton classeur
End if
Next
Else
MsgBox ("Il n'y a aucun fichier dans ce répertoire !")
End If
Set objDossier = Nothing
Set objFSO = Nothing |
Partager