Discussion :

[anisr]

Bonjour,
J'essaye de récuperer des données situées dans des fichiers xls situées dans un même réprtoir.

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
27
28
29
30
31
32
Sub ListFilesInFolder(strFolderName As String, bIncludeSubfolders As Boolean)
RunTime
  Static FSO As FileSystemObject
  Dim oSourceFolder As Scripting.Folder
  Dim oSubFolder As Scripting.Folder
  Dim oFile As Scripting.File
  Dim wksDest As Worksheet
  Dim Classeur As Workbook
  Dim DD As Integer
 
    Set wksDest = ActiveSheet
    Set FSO = CreateObject("Scripting.FileSystemObject")
  Set oSourceFolder = FSO.GetFolder(strFolderName)
 
 i = 1
 
  For Each oFile In oSourceFolder.Files
   Application.ScreenUpdating = False
 
   Workbooks.Open oFile, True
 
   wksDest.Range(cell1, i) = Sheets(2).Name
   wksDest.Range(cell2, i) = "=SUM('" & Sheets(2).Name & "'!AF:AF)"
 
   Workbooks.Close
    i = i + 1
 
  Next oFile
 
Application.ScreenUpdating = True
 
End Sub

Mais le code ne fonctionne pas

Comment faire pour corriger ce code?

[SfJ5Rpw8]

Comment faire pour corriger ce code?

ben c'est quoi qui ne marche pas..?

déjà commence par éviter de travailler sur le classeur Actif ( instruction sheets sans rien devant...)

pour ouvrir le classeur

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim wksSource As Worksheet
...
...
...
set wksSource =  Workbooks.Open (oFile, true)
...
 
wksSource.sheets(2).....
...
 
wksSource.close false 'Sortie sans sauver...

c'est quoi cell1 et cell2 ....?