Incompabilité de type!

Version imprimable

Bonjour,

J'ai dans un de mes programme le code suivant qui va passer un tableau en parametre d'une fonction. Malheureusement lors de l'appel de cette fonction, l'editeur VBA me renvoit l'erreur de compilation : "Incompatiblité de type: tableau ou type défini par l'utiliateur"!

Je ne vois pas du tout d'ou peut venir l'erreur :/
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Private Sub CommandButton1_Click() b = compte_nb_item r = ListeFichiersDans("C:\Documents and Settings\f-freyssinier\Desktop\Factures") If b - a <> 0 Then Dim Tabl() As String ReDim Tabl(b - a) With Workbooks("classeur_ref.xls").Sheets(1) For i = 0 To b - a - 1 Tabl(i) = .Range("B" & i + 2) Next i stockage_folder (Tabl) Me.Hide End If End sub
Chipss

11/10/2010, 10h23
delphine35

peux tu mettre la déclaration de ta procédure stockage_folder ?

Euh oui bien sur! Je te met même la fonction complete :)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub stockage_folder(Tabl() As String)
 
Dossier = creer_folder()
MyPath = "C:\Documents and Settings\f-freyssinier\Desktop\Factures\"
fic = Dir(MyPath & "*.pdf")
nb_fact = UBound(Tabl())
 
Do Until fic = ""
    On Error Resume Next
    For i = 0 To nb_fact
        If fic = Tabl(i) Then
            Name MyPath & fic As Dossier & "\" & fic
        End If
    Next i
fic = Dir
Loop
 
End Sub

Bonjour,

Il manque également un "End With"
Code:

1 2 3 4 5 With Workbooks("classeur_ref.xls").Sheets(1) '... '... '... End With

11/10/2010, 10h36
AlexL.

Essaye avec
Call stockage_folder (Tabl)
ou (au choix)
stockage_folder Tabl)
11/10/2010, 10h54
Didier Gonard

Bonjour,

vois ici

Ps : stockage_folder est une procédure, pas une fonction...

cordialement,

Didier
11/10/2010, 11h00
Chipss

Bon j'ai rajouté le End with qu'il manquait et fait appel à la fonction grâce à un Call!

Cela marche très bien. Merci! :)

Chipss
16/10/2010, 10h19
AlainTech

Citation:

Envoyé par Chipss

et fait appel à la fonction grâce à un Call!

Cette phrase n'a pas de sens, essaye de lire ce qu'on t'écrit.

Citation:

Envoyé par Ormonth

Ps : stockage_folder est une procédure, pas une fonction...