Variable required. Can't assign to this expression

**robert_trudel** · 06/02/2009, 17h44

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?

**pgz** · 06/02/2009, 18h09

Bonjour.

Pas facile de voir comme cela.
Tu n'as pas déterminé la ligne qui pose pb? Quand tu fais Debug tu n'as pas déjà une erreur.
Tu as déjà une erreur qui devrait sortir au debug:

Code :

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

Function clean(tmpCode As String) As String

PGZ

**robert_trudel** · 06/02/2009, 18h21

non pas déterminer... mais quand je lance le tout.. ca me rend tout de suite a

Function clean(tmpCode As String) as string... et c'est en jaune... impossible d'aller plus loin