Bonjour à tous,
J'aurais besoin de votre aide,

Je m'explique j'ai des devis répartit sur plusieurs dossier "Customer Approval Application" et dans ce dossier il ya des sous-dossiers (en attente, accepté ou refusé). Les devis sont tous identiques en termes d'onglet et de format.

Ce que je voudrais donc c'est récupéré l'information qui se situe en celule "F9" de l'onglet "Cover Page CAA" de tous les devis qui se situent dans les sous-dossier du dossier "Customer Approval Application".

Je sais pas si c'est assez clair.
Ci-dessous le code vba qui marche seulement lorsque le classeur, (où se situe la macro), récupérer les informationd es fichiers situés dans le même emplacement que ce classeur.

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
25
26
Sub Importer()
Dim i As Long
Dim sDossier As String, sFichier As String, sFeuille As String
 
    Application.ScreenUpdating = False
 
    ShDatas.Range("A2:D65536").Clear
    sDossier = ThisWorkbook.Path & "\"
    sFeuille = "Cover page CAA"
 
    For i = 1 To 1
        With ShDatas
            sFichier = .Cells(1, i)
            .Cells(2, i) = ExtraireValeur(sDossier, sFichier, sFeuille, "F9")
 
        End With
    Next i
 
    Application.ScreenUpdating = True
End Sub
 
Private Function ExtraireValeur(ByVal Dossier As String, ByVal Fichier As String, ByVal Feuille As String, ByVal Cellule As String)
Dim Argument As String
    Argument = "'" & Dossier & "[" & Fichier & "]" & Feuille & "'!" & Range(Cellule).Address(, , xlR1C1)
    ExtraireValeur = ExecuteExcel4Macro(Argument)
End Function
Merci d'avance de votre aide.