By ref lors d'un appel de procedure

[nicoloc]

bonjour,
j'ai un pb avec mon code lorsque j'appel une procedure il me retourne une erreur By ref .
si je remplace la variable par le calcul qui la determine alors tout va bien
pouvez vous m'expliquer ce qui me manque ?

Sub copy()
Dim deniere_lign_source_502, deniere_lign_source_505, j As Integer
Dim fichier_source As String
fichier_source = ActiveWorkbook.Name
deniere_lign_source_502 = Workbooks(fichier_source).Sheets("502").Cells(Rows.Count, 5).End(xlUp).Row - 12
deniere_lign_source_505 = Workbooks(fichier_source).Sheets("505").Cells(Rows.Count, 5).End(xlUp).Row - 12

'selection de la zone dans le fichier source
Workbooks(fichier_source).Sheets("502").Range("A12:N" & deniere_lign_source_502).Select
Selection.copy

' copie dans le fichier compilation
Windows("compilation Fabricom.xls").Activate
Sheets("502").Range("A" & j).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
 xlNone, SkipBlanks:=False, Transpose:=False

Call remplissage("502", fichier_source, deniere_lign_source_502)


End Sub

Sub remplissage(feuille_a_remplir As String, fichier_source As String, derniere_ligne As Integer)
Dim i As Integer
For i = 0 To derniere_ligne
Sheets(feuille_a_remplir).Cells(j + i, 1) = Left(fichier_source, 13)
Next i
End Sub

Merci d'avance
Nicoloc

 

[BOISGONTIER]

Re : By ref lors d'un appel de procedure

Bonjour,


Peut être :

temp=Cstr(feuille_a_remplir)
Sheets(temp).Cells(j + i, 1) = Left(fichier_source, 13)

JB

 

[nicoloc]

Re : By ref lors d'un appel de procedure

le code coince sur la variable "deniere_lign_source_502" qui est un entier.