salut

dans une macro excell, j'ai quelques function et procédure

je lance ma procédure BrowseFolders qui appèle la fonction LoopThruExcelFiles
qui appèlle la procédure extractData

celle dernière appèlle une fonction ...

aussitot que ca démare j'ai

Compille error:

Variable required - can't assign to this expression


la valeur passé est bien une string

voici le code


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
 
Sub BrowseFolders()
    LoopThruExcelFiles ("C:\test")
End Sub
 
 
Function LoopThruExcelFiles(FileDir 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
 
                Windows(FileName).Close
 
            Next lCount
        End If
    End With
 
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    Application.EnableEvents = True
End Function


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
 
Sub extractData()
	Dim tmpCode As String
	Dim code As String
	...
	code =  clean(tmpCode)
 
 
End Sub
 
Function clean(tmpCode As String)
...
End Function
 
 
une idée?