Discussion :

[ifi77]

Bonjour,

j'ai une macro qui fonctionne dans un classeur, jaimerais avec le meme systeme de report que la macro fonctionne entre 2 classeurs séparés

la macro:

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
Sub enregistrer()
 
'enregistrement colonne vsav sav
    Dim i, j, r, rep1
    For i = 0 To 7
        If Not IsEmpty(Range("D" & 8 + i)) Then
            Workbooks.Open Filename:="C:\SPP\personnel.xls"
            Sheets(Range("D" & 8 + i).Value).[G10000].End(xlUp).Offset(1, 0) = Range("K15")
 
            j = 0
            For j = 0 To 7
                If Range("L" & 8 + j) = True Then _
                    Sheets(Range("D" & 8 + i).Value).[F10000].End(xlUp).Offset(1, 0) = Range("H" & 8 + j)
 
             Next
        End If
    Next

je vous mets en pièce jointe les 2 classeurs, le premier dénommé "octobre avec macro et report" et le second "personnel" ou je cherche à faire le report. (la macro se trouve dans le module 3)

j'ai tourné dans tous les sens mais je n'y arrive pas

d'avance merci