Bonjour,

Voici mon petit soucis, j'ai un vba dans un classeur qui ouvre tous les fichiers excel présent dans le dossier du classeur.
Tout fonctionne nickel jusqu'à ce que j'essai de mettre la partie ouverture de fichier dans un sous programme. Là sa ne marche plus et je ne sais pas pourquoi.
Voici la base qui fonctionne :

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
 
Sub Principal()
    Dim Fichier As String, Chemin As String
    Dim Wb As Workbook
 
    Chemin = ThisWorkbook.Path & "\"
    Fichier = Dir(Chemin & "*.xlsm")
    Do While Fichier <> ""
    ...
    ...
    Wb.Close True
    Set Wb = Nothing
    Fichier = Dir
    Loop
End Sub
Et la même chose mais qui ne fonctionne plus :
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
 
Sub Principal()
    Dim Fichier As String, Chemin As String
    Dim Wb As Workbook
 
    Chemin = ThisWorkbook.Path & "\"
    Fichier = Dir(Chemin & "*.xlsm")
    Sec
End Sub
 
Private Sub Sec()
    Dim Fichier As String, Chemin As String
    Dim Wb As Workbook
    Do While Fichier <> ""
    ...
    ...
    Wb.Close True
    Set Wb = Nothing
    Fichier = Dir
    Loop
End Sub
Un petit coup de pouce :-) ?