Discussion :

[jeanhilo22]

Bonjour,

Voila mon problème, j’ai des travaux Excel répétitif donc j’ai créé une macro et ça fonctionne ce qui a résolu une partie du problème.

Mon soucis c’est que je dois appliquer cette macro sur 2500 fichiers Excel différents de 80000-100000 lignes, donc plutôt que d’ouvrir chaque fichiers manuellement, d’exécuter la macro, d’enregistrer je me demande si il est possible d’automatiser cette taches sous Windows avec un logiciel qui ouvrirait les fichiers pour moi, exécuterait la macro et enregistrerais

[kiki29]

Salut, en partant de : Liste des fichiers d'un dossier : Win 32/64 Bits, il te restera à boucler sur cette liste pour exécuter ta macro.

[jeanhilo22]

Salut, en partant de : Liste des fichiers d'un dossier : Win 32/64 Bits, il te restera à boucler sur cette liste pour exécuter ta macro.

Merci, j'ai mis les fichiers dans "Liste-des-fichiers-d-un-dossier-Win-32-64-Bits" mais je ne comprends pas trop comment boucler sur cette liste. Faut-il que je demande à une "macro global" Excel de venir ouvrir chaque fichiers et d'exécuter ma macro ou est ce que je dois utiliser un autre logiciel?

[kiki29]

Salut, à lire

Via l'ajout de qqch comme ceci, dans un module standard, en adaptant ta procédure si besoin.

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 Explicit
 
Sub Traitement()
Dim LastRow As Long, i As Long
Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    With ShParam
        LastRow = .Range("B" & Rows.Count).End(xlUp).Row
        For i = RDepart To LastRow
            If FSO.FileExists(.Cells(1, 1) & "\" & .Cells(i, 2)) Then
                Ta_Procédure
            End If
        Next i
    End With
    Set FSO = Nothing
End Sub
 
Private Sub Ta_Procédure()
'.....
End Sub