Bonjour à tous,
Merci d'avance de m'accorder un peu de votre temps, pour m'aider à résoudre mon problème.

Je vous solicite car je voudrais récupérer la valeur d'une cellule dans plusieurs classeurs identiques sauf le nom qui change.
Je voudrais donc copier ces valeurs situées dans les cellules "F12" des feuilles "Cover Page CAA" de chaque classeurq afin de coller toutes ces valeurs dans un fichier "test_list2" dans la feuille "Listes_Devis" à partir de la cellule "D13".

Voilà le début du code mais sa marche pas :s, où est mon erreur.

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 test()
 
Dim objFSO, objDossier
Dim mWbk As Excel.Workbook
 
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objDossier = objFSO.GetFolder("D:\totot\")
 
If (objDossier.Files.Count > 0) Then
   For Each objFichier In objDossier.Files
      If (InStr(1, objFichier.Name, ".xls", 1) > 0) Then
 
          Set mWbk = Excel.Workbooks.Open(objDossier.Path & "\" & objFichier.Name)
 
      mWbk.Worksheets("Cover page CAA").Range("F12").Value
      Workbook("test_list2").Worksheets("Liste_Devis").Range("D" & 13).End(xlUp)(2).Row.Paste   
 
      mWbk.Close
      Set mWbk = Nothing
      End If
   Next
 End If
 
 
End Sub
Merci d'avance de votre aide.