Discussion :

[Chipss]

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 :

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
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

[delphine35]

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

[Chipss]

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

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
 
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

[fring]

Bonjour,

Il manque également un "End With"

Code :

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

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

[AlexL.]

Essaye avec
Call stockage_folder (Tabl)
ou (au choix)
stockage_folder Tabl)

[Didier Gonard]

Bonjour,

vois ici

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

cordialement,

Didier

[AlainTech]

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

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

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

[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