Discussion :

[pao47]

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,

[BENNASR]

bonjour
pas sure de la proposition
si tu nomme le nv dossier dossier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Set wkB = ActiveWorkbook
with WkB
exportrapport_bis
end with

[pao47]

Bonjour BENNASR,

merci pour ta réponse mais malheureusement cela ne change rien, il lance toujours la macro du 1er fichier et non celle qui est dans le second fichier

peut-être qu'il existe une autre solution?

merci d'avance,

bonne journée,

Paolino

[pao47]

Bonsoir,

j'ai tout compte fait réussi à résoudre mon probleme. je vous ai mis ci-dessous la solution employée au cas où cela pourrait servir à d'autres.

merci encore pour votre aide.

bonne soirée,

paolino

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
24
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
   LaMacro = "'" & ActiveWorkbook.Name & "'!exportrapport_bis"
   Application.Run LaMacro
 
        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