Discussion :

[robert_trudel]

salut

je chercher a naviguer dans tous les fichiers excells d'un répertoire
et dans chaque fichier excelle parcourir toute les worksheet afin de récupérer des valeurs à certain endroit...

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
 
 
Sub BrowseFolders()
    LoopThruExcelFiles ("C:\all")
End Sub
 
 
Function LoopThruExcelFiles(FileDir As String) As String
 
    Dim lCount As Long
    Dim wbResults As Workbook
    Dim wbCodeBook As Workbook
    Dim FileName As String
 
    Application.ScreenUpdating = False
    Application.DisplayAlerts = True
    Application.EnableEvents = True
 
    On Error Resume Next
 
    DoEvents
 
    Set wbCodeBook = ThisWorkbook
 
    With Application.FileSearch
        .NewSearch
         'Change path to suit
        .LookIn = FileDir
        .FileType = msoFileTypeExcelWorkbooks
 
        If .Execute > 0 Then 'Workbooks in folder
            For lCount = 1 To .FoundFiles.Count ' Loop through all.
                Workbooks.Open FileName:=.FoundFiles(lCount)
                FileName = ActiveWorkbook.Name
 
                wbCodeBook.Activate
 
                extractData wbCodeBook.Worksheets
 
                Windows(FileName).Close
 
            Next lCount
        End If
    End With
 
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    Application.EnableEvents = True
End Function
 
Sub extractData(allWs)
 
	Dim ws As Worksheet
 
	For Each ws In allWs
		msgBox ws.Nam
	Next ws
 
end Sub

je vois bien les fichiers excell s'ouvrir... mais je passe vois en tous qu'un seul msgBox... donc la boucle n'a pas lieu...
une idée?

[PPz78]

Avec le code suivant cela marche chez moi :

Code :

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

1
2
3
4
5
6
7
Sub extractData(allWs)
 
    For i = 1 To allWs.Sheets.Count
        MsgBox allWs.Sheets(i).Name
    Next
 
End Sub

A+

[Gorfael]

Salut robert_trudel et le forum
Ton code me gène :
Une Function a des limitations : elle est fait pour retourner un résultat. Ton erreur viens peut-être de son emploie. Remplace-la par un sub
Si tu escamotes toutes les erreurs qu'Excel peut détecter, il obéit. Mais pour trouver l'erreur... c'est pas le plus facile.
Vois pas très bien le but de ScreenUpdating = False alors que tu effaces déjà les erreurs avec Resume Next ?
A+

[Pierre Fauconnier]

Bonjour,

Personnellement, je passerais On Error Resume Next en commentaires et je réaliserais le code en pas à pas pour inspecter les variables. Les outils de débogage sont faits pour être utilisés, il me semble

Gorfaël, screenupdating = false et Resume next n'ont rien de lié, et rien ne me gêne dans le fait de les utiliser ensemble

[ouskel'n'or]

Tu peux aussi jeter un oeil ici qui répond totalement à ton besoin : Liste les fichiers d'un répertoire, les ouvre, liste les feuilles de chaque fichier. Pour "récupérer des valeurs à certains endroits", tu n'as plus qu'à dire où (la macro utilise Dir, plus rapide, à la place de FileSearch)
Bonne journée

[Gorfael]

Salut Pierre Fauconnier et le forum

Gorfaël, screenupdating = false et Resume next n'ont rien de lié, et rien ne me gêne dans le fait de les utiliser ensemble

moi, ça me gène, parce que y un ... qui a changé DisplayAlerts = False en screenupdating =False
Non, je n'avais pas mal lu Le fromage blanc qui me sert à maintenir l'écart entre les oreilles, en voyant les trois au début et à la fin a interprêté une mise à False au début et remise à true, à la fin.
Désolé, mais comme quand je fais une macro, je l'épure au max, dès fois, je lui en travers, et crois voir ce que j'aurais mis. J'espère que ça ne se reproduira plus (sans trop y croire).
A+