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.
Merci d'avance de votre aide.
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
Partager