bonjour,
j'ai une macro que je mes sers pour reporter des information dans un meme classeur.
J'amerais lui faire reporter vers un autre classeur dénommé "personnel"
J'ai tourné la syntaxe dans tous les sens mais il doit le me manquer des éléments voici la macro original:
Dim a, z, Rep2
For a = 0 To 7
If Not IsEmpty(Range("D" & 17 + a)) Then
Workbooks.Open Filename:="C:\SPP\personnel.xls"
Sheets(Range("D" & 17 + a).Value).[G10000].End(xlUp).Offset(1, 0) = Range("K24") z = 0
For z = 0 To 7
If Range("L" & 17 + z) = True Then _
Sheets(Range("D" & 17 + a).Value).[F10000].End(xlUp).Offset(1, 0) = Range("H" & 17 + z)
apparait en rouge le liaisons qu'il faudrait dirigée vers les feuilles de meme nom mais dans le classeur "personnel"
D'avance merci
j'ai une macro que je mes sers pour reporter des information dans un meme classeur.
J'amerais lui faire reporter vers un autre classeur dénommé "personnel"
J'ai tourné la syntaxe dans tous les sens mais il doit le me manquer des éléments voici la macro original:
Dim a, z, Rep2
For a = 0 To 7
If Not IsEmpty(Range("D" & 17 + a)) Then
Workbooks.Open Filename:="C:\SPP\personnel.xls"
Sheets(Range("D" & 17 + a).Value).[G10000].End(xlUp).Offset(1, 0) = Range("K24") z = 0
For z = 0 To 7
If Range("L" & 17 + z) = True Then _
Sheets(Range("D" & 17 + a).Value).[F10000].End(xlUp).Offset(1, 0) = Range("H" & 17 + z)
apparait en rouge le liaisons qu'il faudrait dirigée vers les feuilles de meme nom mais dans le classeur "personnel"
D'avance merci
