Bonjour,

je me permets de venir vers vous car après plusieurs essais je reste bloquer.

j'ai plusieurs fichiers contenant la même macro "exportrapport_bis".

j'ouvre le 1er fichier et à partir de ce premier fichier je lance la macro "ActionTousFichiers" ci-dessous qui sert à ouvrir un à un tous les autres fichiers fichiers de mon répertoire et normalement de lancer sur le nouveau fichier ouvert la macro "exportrapport_bis".

Cependant au lieu de lancer "exportrapport_bis" sur le fichier nouvellement ouvert, il le fait sur le premier fichier à partir duquel j'ai lancé "ActionTousFichiers".

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
Sub ActionTousFichiers()
    Dim chemin As String, Fichier As String
    Dim Wb As Workbook
    Set Wb = ThisWorkbook
    MacroDebut = Now
    chemin = Wb.Path + "\"
    Fichier = Dir(chemin & "*.xlsb*")    ' 1er fichier
    Do While (Len(Fichier) > 0)
        If Fichier <> ThisWorkbook.Name Then
            Workbooks.Open chemin & Fichier
            ' traitement
            exportrapport_bis
        End If
        'ActiveWorkbook.Close
        Fichier = Dir()    ' fichier suivant
    Loop
 
 
Call fermerTousFichiers
 
           MsgBox "le rapport a été mis à jour en : " & Format(Now - MacroDebut, "hh:mm:ss")
 
End Sub
Pouvez-vous m'aider?

merci d'avance,

bonne journée,